ADO

I hate it when people do this, but I need some help

http://forums.vb-world.net/showthrea...threadid=30256

nobody has answered yet.....
Thanks....

[pro2]

I dont understand qhat you want..
cant you explain the REAL thig you want whit a lot
of exemples ??
i'm realy tired..

I have 2 records in My DB, I want to add 1 at the end, how do I do this?

[pro2]

like the question I ask there :
http://forums.vb-world.net/showthrea...threadid=30283
??????

[jason1972]

Assuming you have an Access 97 database 'C:\MyDB.mdb',
and that database has a table named 'MyTable' with the
fields 'PageID' and 'Content', this is one way to do it:

Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim strConnect As String
Dim strQuery As String

Set cnn = New ADODB.Connection
Set cmd = New ADODB.Command

'Create the connection string.
strConnect = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Persist Security Info=False;Data Source=C:\MyDB.mdb"

'Open a connection to the database.
cnn.Open strConnect

'Create the query string.
strQuery = "insert into MyTable (PageID, Content) " & _
"values ('Hello', 'hehehe')"

'Create the insert query.
Set cmd.ActiveConnection = cnn
cmd.CommandType = adCmdText
cmd.CommandText = strQuery

'Execute the insert query.
cmd.Execute

'Close the connection to the database.
cnn.Close