VB读写ACCESS数据库操作实例源码免费下载

Private Sub Command1_Click()

Set yc_tab = total_database.OpenRecordset("select * from yc_point  ", dbOpenDynaset)

'修改表 yc_point

With yc_tab

    .MoveLast

    .MoveFirst

    .Move Val(Text1(0))

    .Edit

    .Fields(Val(Text1(1))).Value = Text2.Text

    .Update

End With

End Sub

Private Sub Command2_Click()

Set yc_tab = total_database.OpenRecordset("select * from yc_point  ", dbOpenDynaset)

'修改表 yc_point

................................................................