怎样加入数据

Question

dim mydb as database,mytable as recordset
set mydb=workspaces(0).opendatabase(databasename)
set mytable=mydb.openrecordset(tablename,dbopendynaset)
mytable.addnew
mytable(field1)=m
mytable(field2)=n
mytable.update
mydb.close

Answer 1

Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrWith rst
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "select * from stu", cnnstr
    .AddNew
    .Fields("字段1") = "1"
    .Fields("字段2") = "2"
    .Fields("字段3") = "3"
    .Fields("字段4") = "4"
    .Fields("字段5") = "5"
    .Update
    .UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

Answer 2

Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrWith rst
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "select * from stu", cnnstr
    .AddNew
    .Fields("字段1") = "1"
    .Fields("字段2") = "2"
    .Fields("字段3") = "3"
    .Fields("字段4") = "4"
    .Fields("字段5") = "5"
    .Update
    .UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close