对于空access2000数据库,注意是空的即只有一个表而表里面没有记录,怎样通过data控件添加记录.

Question

请给为谨慎答复,(最好是亲身经历过)因为我已经在论坛上问了好多人,但都没有非常有效的方法.

Answer 1

Private Sub Command1_Click()
    Data1.Recordset.AddNew
    Data1.Recordset.Fields(0) = Val(Text1.Text)
    Data1.Recordset.Fields(1) = Val(Text2.Text)
    Data1.Recordset.Fields(2) = Val(Text3.Text)
    Data1.Recordset.Update
End Sub

Answer 2

with Data1
    .DataBaseName="C:\My Document\Sample.MDB"
    .RecordSource="Person"
    .Refresh
    .Recordset.AddNew
    .Recordset("Name").Value="张三"
    .Recordset("Sex").Value=True
    .Recordset("Birthday").Value=#1973-01-01#
    .Recordset("Memo").Value=Text1.Text
    .Recordset.Update
end with