vb codes for sql update

[alfeena]

i'm not sure whether this shud b in vb or sql but i'm havin a problem with updating the data in access using the sql commands in vb. It seems that it will not update but no error messages were shown. So i'm simply lost in verifying the error. Here is a sample for my code:

strDate = Format(txtInvoiceDate.Text, "dd/mm/yyyy")

If saveType = 2 Then ' New Record

strSQL = "INSERT INTO tb_GTotalFL (InvoiceDate,AccNo,Discount,Tax) " _
& "VALUES ('" & txtInvoiceDate.Text & "'," _
& "'" & txtAccNo.Text & "'," _
& "" & txtDiscount.Text & "," _
& "'" & txtTax.Text & "')"
Else
'Edit Record
strSQL = "UPDATE tb_GTotalFL SET Discount=" & txtDiscount.Text & ", " _
& " Tax=" & txtTax.Text & "" _
& " WHERE AccNo='" & txtAccNo.Text & "' AND InvoiceDate= #" & strDate & "#"
End If
' Open a connection using OLEDB.
cnn.ConnectionString = VDataFile
cnn.Open
Set rs = cnn.Execute(strSQL)
'close connection
Set rs = nothing
Set cnn = nothing
cnn.close

...no errors..but wont update record edited..can any1 advice..? help is very much appreciated

[daniel aristidou]

i'm not sure whether this shud b in vb or sql but i'm havin a problem with updating the data in access using the sql commands in vb. It seems that it will not update but no error messages were shown. So i'm simply lost in verifying the error. Here is a sample for my code:

strDate = Format(txtInvoiceDate.Text, "dd/mm/yyyy")

If saveType = 2 Then ' New Record

strSQL = "INSERT INTO tb_GTotalFL (InvoiceDate,AccNo,Discount,Tax) " _
& "VALUES ('" & txtInvoiceDate.Text & "'," _
& "'" & txtAccNo.Text & "'," _
& "" & txtDiscount.Text & "," _
& "'" & txtTax.Text & "')"
Else
'Edit Record
strSQL = "UPDATE tb_GTotalFL SET Discount=" & txtDiscount.Text & ", " _
& " Tax=" & txtTax.Text & "" _
& " WHERE AccNo='" & txtAccNo.Text & "' AND InvoiceDate= #" & strDate & "#"
End If
' Open a connection using OLEDB.
cnn.ConnectionString = VDataFile
cnn.Open
Set rs = cnn.Execute(strSQL)
'close connection
Set rs = nothing
Set cnn = nothing
cnn.close

...no errors..but wont update record edited..can any1 advice..? help is very much appreciated

are you using vb6??
Im not to familiar with vb6 if you are using a later version use snippets

[debasisdas]

try like this

cnn.BeginTrans
cnn.execute "Your insert or update SQL query here."
cnn.CommitTrans

[alfeena]

thx 4 the feedback..finally solved the problem..it seems that my date format is whats causing the problem. So i changed the format to (mm/dd/yyyy) n am able to update the records..thx again!