[Poojaaa]

Private Sub Command1_Click()
Dim conn1 As New ADODB.Connection
Dim cmd1 As New ADODB.Command
Dim rs1 As New ADODB.Recordset
Dim amnt As Double
Dim d_value As Double
Dim accessconnect As String
Dim accnt_no As String
Dim stSQL As String
accessconnect = " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=POOJA-D4FD585E2\SQL2000"
conn1.ConnectionString = accessconnect
conn1.Open
accnt_no = Val(Text1.Text)
Text2.Text = amnt
If Len(Text1.Text) > 0 And Len(Text2.Text) > 0 Then
    cmd1.ActiveConnection = conn1
    cmd1.CommandText = " select balance from account where account_number= ' " & accnt_no & " ' "
    Set rs1 = cmd1.Execute
    dValue = rs1("balance")
    
 
   stSQL = " update account set balance = balance + ' " & amnt & " ' where account_number = ' " & accnt_no & " ' "
    conn1.Execute stSQL
    conn1.Close
MsgBox (" AMOUNT DEPOSITED SUCCESSFULLY ")
Else
MsgBox ("Enter some value")
End If
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 45 Or (KeyAscii >= 65 And KeyAscii <= 90)) Then
MsgBox "enter proper values!"
KeyAscii = 0
End If
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)
If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 127 Or KeyAscii = 8) Then
MsgBox "enter proper value"
KeyAscii = 0
End If
End Sub

This code fails to update database any suggestions??? Attaching error screenshot

Attached File(s)

•  VBerror.bmp (898.65K)
  Number of downloads: 23

[modi123_1]

' where account_number = ' " & accnt_no & " ' "

Spaces - remove them so the tick marks are right up near the value

Also use parameters and not this sort of method.. it leaves you open, vulnerable, and is not a good programming practice.

' where account_number = '" & accnt_no & "' "

[thava]

where did you get the value for the amount variable

i am not sure i think you wrongly assigned the variable

	Text2.Text = amnt

would be like this

	amnt =val(Text2.Text)

and also follow the suggestions of modi123_1 too
eliminate the spaces and also remove the single Quote(') around the amnt variable

i think this will solve your problem

This post has been edited by thava: 01 October 2012 - 03:05 AM

[Poojaaa]

IT IS NOT WORKING

[Poojaaa]

The spaces and single quotes are the part of the syntax. the user defined variables are declared as

' " & amt & " '

What i want to do is a simple deposit transaction at bank. Balance should be added to the amount user want to deposit and new value shold be updated in database

[modi123_1]

yes, and we are telling you the sql syntax needs changing.

[Poojaaa]

modi123_1, on 01 October 2012 - 08:07 AM, said:

yes, and we are telling you the sql syntax needs changing.

No Use SIR it's not working

[maj3091]

Please post your code as you now have it, with the changes suggested by modi123_1, so we can see what you have changed.

Do you get any errors?