Database connection

[rede96]

Hi,

I am fairly new to VBscript, although I have done some VBA.

I need to connect to a database using VBScript and then read/write some data to the tables in the .mdb

I have found the following code to connect to the mdb, which works well.

    Dim objConn     ' Our Connection Object
    Dim objRS       ' Our Recordset Object
    Dim strSQL      ' Our SQL string to access the database
    Dim strConnection    ' Our Connection Object string to access the database
    Set objConn = CreateObject("ADODB.Connection")
    Set objRS = CreateObject("ADODB.Recordset")
    objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\AdamDB\AdamDB.mdb" 
    strSQL = "SELECT * FROM tblData"
    Set objRS = objConn.Execute (strSQL)

The problem is when I try and add new records to the recordset using objRS.Addnew I get an error message. ("Current recordset does not support updating.")

Can anyone help me with the correct connection method please?

[ALL]

That is becuase you should be using SQL statments to add,modify, or retrieve data from the database.

SQL has some pretty simple syntax, if you want to read more check out this

for example to add a record it would be soming like:
"INSERT INTO the_table_you_want_to_insert_into (COL1,COL2,COL3) VALUES ('COL1_value','COL2_value','COL3_value')"
to remove a record it would be something like this:
"DELETE FROM the_table_you_want_to_delete_from WHERE COL1 = '1'" (this would delete any record where COL1 equals 1)
To update data it would be like this:
"UPDATE the_table_you_want_to_update SET COL1='2' WHERE COL1='1'"
To get data from the database you do this:
"SELECT * FROM the_table_you_want_to_select_from WHERE COL1 = '2'" (but then you gotta do some stuff in VB to actually get the data)

[rede96]

Thanks ALL

By the way, as I was looking around the SQL and searching for some other stuff I found a different way to connect;

objRS.Open strSQL, objConn, adOpenStatic, adLockOptimistic

When I connect this way I can use the.AddNew method.

Typical, when I was actually looking for it I couldn't find it, look for something else and there it is!

Anyway, thanks again.