please help! my boss is back in office tomorrow and I need a solution
I used an Access-Db via jet in the last five projects without any problems.
Now I should access the db via odbc and it doesn't work just as fine.
It's no problem to read data out of the tables but I'm not able to update or edit them.
Vb always complains that my db is write protected.
thanks in advanceCode:Dim wks As Workspace Set wks = CreateWorkspace("wksTest", "Admin", "admin", dbUseODBC) Dim dbs As Database Set dbs = wks.OpenDatabase("Test", dbDriverNoPrompt, False, "ODBC;DSN=Test;") Dim rsTest As Recordset Set rsTest = dbs.OpenRecordset("SELECT * FROM Test", dbOpenDynaset) With rsTest .Edit 'runtime-error 3027 !strData = "Edited" .Update End With With rsTest .AddNew 'runtime-error 3027 !strData = "New" .Update End With 'works well While (Not (rsTest.EOF)) Debug.Print rsTest!strData rsTest.MoveNext Wend Debug.Print dbs.Updatable 'prints true Debug.Print rsTest.Updatable 'prints false Dim fld As Field For Each fld In rsTest.Fields Debug.Print fld.Name, CStr(fld.DataUpdatable) 'prints false Next fld
__________________
da_bob
vb6 enterprise, sp3, nt




Reply With Quote