Gustav Brock
Gustav at cactus.dk
Thu Apr 19 12:10:41 CDT 2007
Hi all In A2003, if I try to add a record to a MySQL table via the OLE DB provider, nothing happens. No errors, it runs fine, but no record added. Any ideas why? Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim lngRow As Long Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset cnn.ConnectionString = "Provider=MySQL Provider;Data Source=10.20.30.40;User ID=root;Password=password;Initial Catalog=TestDb;Mode=Read|Write" cnn.Open cnn.CursorLocation = adUseClient With rst .Open "Select * From tblSample", cnn, adOpenKeyset, adLockOptimistic For lngRow = 1 To lngRows .AddNew .Fields(1).Value = "Some text" .Update Next .Close End With Set rst = Nothing Set cnn = Nothing End Function If I link the table (via ODBC) and run an append query, records are appended as expected. /gustav