Ado / Adox ?

  • Thread starter Thread starter silvest
  • Start date Start date
S

silvest

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=
& Worksheet.mdb
sqlstring = "DELETE FROM Table1"
conn.Execute sqlstring
conn.Close

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="
Worksheet.mdb

Dim Recordset1 As ADODB.Recordset
Set Recordset1 = New ADODB.Recordset

Recordset1.Open "SELECT * FROM Table1"
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Worksheet.mdb, adOpenStatic, adLockOptimistic
 
Hi silvest:

Re read your code.
sqlstring = "DELETE FROM Table1"
conn.Execute sqlstring
Click to expand...

You have deleted all records in Table1
Recordset1.Open "SELECT * FROM Table1",
Click to expand...

nothing left in Table1 to select

so the error statement is correct.

A couple of reminders:
use DELETE with a WHERE to remove selected records
use the INSERT statement to add records
use UPDATE to change existing records

Also in your statement Recordset1.Update if you were updating a record
it would have to be something like

Update Table1
Set Field_whatever =' new value'
where field_whatever = ' condition '

Good Luck
TK
 
Back
Top