Update Record Set - Error

[kcal]

Hi,

I've put the following code into my VB project for Adding a new record and when I run the programe The following is highlighted and the record set is not updated.
Set rs1 = cn1.Execute(sqlstring)

rivate Sub Command1_Click()
'Add New Record ######################
Dim sqlstring As String
'If (text1ClientId <> "") And (text3Initials <> "") And (text4FirstName <> "") And (text5Surname <> "") _
'And (text6Address1 <> "") And (text12DOB <> "") Then

If (Text1.Text <> "") And (Text5.Text <> "") Then
sqlstring = "INSERT INTO ClientTable (ClientId,Title,Initials,FirstName,Surname,DOB,Tel ephone,Address1," & _
"Address2,Town,County,PostCode,Salutation)" _
& "VALUES ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text _
& "','" & Text5.Text & "','" & CDate(Text6.Text) & "','" & Text7.Text & "','" & Text8.Text _
& "','" & Text9.Text & "','" & Text10.Text & "','" & Text11.Text & "','" & Text12.Text _
& "','" & Text13.Text & "')"

Set rs1 = cn1.Execute(sqlstring)


'Show recorded added #################
MsgBox "New record Added"

Else
MsgBox "You must enter ClientID, ClientInitials, ClientFirstName,ClientSurname, " & _
"ClientAddress1 and ClientDOB."
End If

End Sub



Private Sub Form_Load()
Text1.Text = "C0023"
Text2.Text = "R"
Text3.Text = "EE"
Text4.Text = "JJJ"
Text5.Text = "GGGGGGGGGGGGG"
Text6.Text = "10/08/1990"
Text7.Text = "AAAAAAAAAAA"
Text8.Text = "BBBBBBBBBBBBBB"
Text9.Text = "CCCCCCCCCCCCCCCC"
Text10.Text = "DDDDDDDDDDDDDD"
Text11.Text = "EEEEEEE"
Text12.Text = "Ne25 8PY"
Text13.Text = "Hand Shake"
' Text1.SetFocus
End Sub

[cmrhema]

Hi,

I've put the following code into my VB project for Adding a new record and when I run the programe The following is highlighted and the record set is not updated.
Set rs1 = cn1.Execute(sqlstring)

rivate Sub Command1_Click()
'Add New Record ######################
Dim sqlstring As String
'If (text1ClientId <> "") And (text3Initials <> "") And (text4FirstName <> "") And (text5Surname <> "") _
'And (text6Address1 <> "") And (text12DOB <> "") Then

If (Text1.Text <> "") And (Text5.Text <> "") Then
sqlstring = "INSERT INTO ClientTable (ClientId,Title,Initials,FirstName,Surname,DOB,Tel ephone,Address1," & _
"Address2,Town,County,PostCode,Salutation)" _
& "VALUES ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text _
& "','" & Text5.Text & "','" & CDate(Text6.Text) & "','" & Text7.Text & "','" & Text8.Text _
& "','" & Text9.Text & "','" & Text10.Text & "','" & Text11.Text & "','" & Text12.Text _
& "','" & Text13.Text & "')"

Set rs1 = cn1.Execute(sqlstring)


'Show recorded added #################
MsgBox "New record Added"

Else
MsgBox "You must enter ClientID, ClientInitials, ClientFirstName,ClientSurname, " & _
"ClientAddress1 and ClientDOB."
End If

End Sub

Perhaps you have misquoted one of the details. I would rather suggest that you update the below way which is much clearer
Sample code

If Rs1.State = adStateOpen Then Rs1.Close
        Rs1.Open "select * from ClientTable",cn1, adOpenDynamic, adLockOptimistic
        Rs1.AddNew
        Rs1("code") = Trim(txtCODE.Text)
    Rs1("name") = Trim(txtNAME.Text)
    Rs1("billno") = Trim(txtBILLNO.Text)
' Here I would suggest one more thing. Try using dtpicker control for dates. Here there is no need to convert to date
        Rs1.Update
        MsgBox "Added new details"
        Rs1.Close
 

Try out and reply
Good luck