问题1
引用DAO 3.6
dim db as database, rs as recordset
set db = dbengine.opendatabase("......")
set rs = db.openrecordset("......")
set data1.recordset = rs
下面的代码实现字段id值改变,可是不好用,错在哪? 请指教。多谢!!
Dim MyData As Database
Set MyData = Workspaces(0).OpenDatabase(App.Path & "\gdzc.mdb")
On Error Resume Next
i = Data1.Recordset.Fields("id") - 1
n = Data1.Recordset.RecordCount
For j = i To n
MyData.Execute "Update [cl] set [id] = " & "'" & j & "' Where [id]= " & "'" & j + 1 & "'"
Next