Database not getting updated

• • Reply

  12 years ago

  by kayun

  kayun chan

  , Thailand

  Joined 13 years ago

  My vb.net application runs on a sql server 2000 and it is about making bills in a fast running gift counter with 5 to 6 client and server is placed at a distance of 200 meters

  . The store sells maximum of 50-60 gifts. The user does all the transaction through clicks. Two tables are involved for making a transaction.

  One is mastertable and detailtable. In the mastertable my application is inserting the total of the bill, date, amount and the counter person’s code. It then generates an auto number which I picks up after the data is inserted in the mastertable and then uses the same in the detailtable. The detailtable holds fields like item, qty, rate,id of mastertable etc.

  My application is running smooth, but recently I noticed that say one in 500th time, row is not added to mastertable while it is present in detailtable with the id of mastertable. I have binded the sql with commit. I have digged my code but am not finding any logic behind this error.

  Please help. Thanks in advance.

  Report abuse
• • Reply

  12 years ago

  by JosephNathan

  Joseph Nathan

  , South Africa

  Joined 13 years ago

  post your coding if u hav....

  Report abuse
• • Reply

  12 years ago

  by kayun

  kayun chan

  , Thailand

  Joined 13 years ago

  Here is the code:

  con = connect()
  con.Open()
  
  'transaction begins here-------
  trans = con.BeginTransaction()
  
  Try
  
  'Data is inserted into mastertable---------
  
  cmd = New SqlClient.SqlCommand("INSERT INTO mastertable(mbno,mbdate,mbamount,mbcperson) VALUES(" & counter_bill_no & ",'" & server_date & "'," & billvalue & "," & countercode & ")", con, trans)
  cmd.ExecuteNonQuery()
  
  cmd = New SqlClient.SqlCommand("select mbid from mastertable WHERE mbno=" & counter_bill_no & " and mbcperson=" & countercode & " ", con, trans)
  mb_id = cmd.ExecuteScalar
  
  'Data inserted into detailtable-----------
  
  i = 0
  For i = 0 To row_no - 1
  selling_rate = DataGridView1.Item(2, i).Value
  If selling_rate <> 0 Then
  cmd = New SqlClient.SqlCommand("INSERT INTO detailtable(dbno,dbdate,dbicode,biquantity,dbamount) VALUES(" & mb_id & ",'" & server_date & "'," & DataGridView1.Item(4, i).Value & "," & DataGridView1.Item(1, i).Value & "," & DataGridView1.Item(3, i).Value & ")", con, trans)
  cmd.ExecuteNonQuery()
  End If
  Next i
  
  'Data commited--------
  
  trans.Commit()
  
  Catch ex As Exception
  
  trans.Rollback()
  MsgBox("Bill could not be generated, Please try again.")
  
  End Try
  
  con.Close()

  Report abuse