Sql Problem ( Adding Records)

[darrel]

HI vb Wizards, good day, just wanted to ask if somebody there can help me iwth my problem. Am having difficulty in adding up records in my table, the table is in Microsoft Access format.

It Like this when i run my program, there no conflicts at no error pop up message or anything. but not satisfied with the outcome, here my code:

Private Sub Command3_Click()
Dim rsShowRec As New ADODB.Recordset
Dim cnn As New ADODB.Connection
 
Set cnn = New ADODB.Connection
cnn.ConnectionString = _
 "Provider=Microsoft.Jet.OLEDB.3.51;" & _
          "Data Source=" & App.Path & "\dbTimeScheduling2.mdb;"
cnn.Open
 
 
 
Set rsShowRec = New ADODB.Recordset
 
For x = 0 To 15
rsShowRec.Source = "Select * from RECORDS Where CODE = 'txtCode(x).Text' "
rsShowRec.Open , cnn, adOpenStatic, adLockOptimistic
 
    If Not rsShowRec.EOF Then
        Else
            rsShowRec.AddNew
                If IsNull(txtCode(x).Text) Then rsShowRec.Fields("CODE") = "" Else rsShowRec.Fields("CODE") = UCase(txtCode(x).Text)
 
            rsShowRec.Update
            Set rsShowRec = Nothing
    End If
Next
 
    MsgBox ("Records are Added")
End Sub
 

it doesnt anything at all, it appends a blank entries on my tables, but thats not what i want... i do suspect that theres a problem on my sql statement, i hope somebody can configure out or tell me whats wrong with my codes.

Really hoping fro your help... i cant understand why it doesnt add up the records in my table from my form (txtCode.txt).. but the it up add up only the rows which are blanks i dont why?.... it seems like it doesnt get value of my textboxes to save in the table..


Thank you very much for any help..

[brando1202]

HI vb Wizards, good day, just wanted to ask if somebody there can help me iwth my problem. Am having difficulty in adding up records in my table, the table is in Microsoft Access format.

It Like this when i run my program, there no conflicts at no error pop up message or anything. but not satisfied with the outcome, here my code:

Private Sub Command3_Click()
Dim rsShowRec As New ADODB.Recordset
Dim cnn As New ADODB.Connection
 
Set cnn = New ADODB.Connection
cnn.ConnectionString = _
 "Provider=Microsoft.Jet.OLEDB.3.51;" & _
          "Data Source=" & App.Path & "\dbTimeScheduling2.mdb;"
cnn.Open
 
 
 
Set rsShowRec = New ADODB.Recordset
 
For x = 0 To 15
rsShowRec.Source = "Select * from RECORDS Where CODE = 'txtCode(x).Text' "
rsShowRec.Open , cnn, adOpenStatic, adLockOptimistic
 
    If Not rsShowRec.EOF Then
        Else
            rsShowRec.AddNew
                If IsNull(txtCode(x).Text) Then rsShowRec.Fields("CODE") = "" Else rsShowRec.Fields("CODE") = UCase(txtCode(x).Text)
 
            rsShowRec.Update
            Set rsShowRec = Nothing
    End If
Next
 
    MsgBox ("Records are Added")
End Sub
 

it doesnt anything at all, it appends a blank entries on my tables, but thats not what i want... i do suspect that theres a problem on my sql statement, i hope somebody can configure out or tell me whats wrong with my codes.

Really hoping fro your help... i cant understand why it doesnt add up the records in my table from my form (txtCode.txt).. but the it up add up only the rows which are blanks i dont why?.... it seems like it doesnt get value of my textboxes to save in the table..


Thank you very much for any help..

Check your SQL statement.
-----

rsShowRec.Sourc e = "Select * from RECORDS Where CODE = '" & txtCode(x).Text & "' "

[darrel]

thank you very very very much, it works, i have a little sharing to i used jet 4.0 instead of jet 3.51, it works very well on it.. again thank you.