0

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"
rs.open
rs.addnew

rs!fname=txtfname.text

rs.close
conn.close

End Sub

Edited by Dani: Formatting fixed

2
Contributors
3
Replies
7
Views
9 Years
Discussion Span
Last Post by ohyeah
0
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
        .addnew
        .Fields("FieldName") = str
        .Update
        .Close
    End With

End Sub

Edited by Dani: Formatting fixed

0

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 topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.