Hi all,

Please somebody tell me the code.

I have :
a textbox name txtfname
a table named Customer (located in Database.mdb)

the customer table has only 1 field fname.

How do i create a connection such that whenever i click on add button, whatever is in the txtfname textbox is added to the table Customer.

I want to do it without Adodc. I want it to be with connection objects.

It starts like :

Private Sub cmdAdd_click()
Dim rs as new adodb.recordset
Dim conn as new adodb.connection
Dim str as String

conn.open “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=”& App.Path & "\database.mdb"



End Sub
Private Sub cmdAdd_click()
Dim str As String
Dim rs As New adodb.Recordset

    str = txtfname.Value
    rs.Open "SELECT * FROM [Customer]", CurrentProject.Connection, adOpenStatic, adLockOptimistic '

    With rs
        .Fields("FieldName") = str
    End With

End Sub

Where the field name is the name of one of the columns in your table that you want to add the text in your textbox to.

This article has been dead for over six months. Start a new discussion instead.