lgg3 xp框架:vb简单小问题(请高手帮忙)追加50分

来源:百度文库 编辑:神马品牌网 时间:2024/05/06 08:27:36
请问如何用vb连接我自己网站的数据库access
并读取和修改数据信息?

Module _Module
Public Engine As DAO.DBEngine = New DAO.DBEngine
Public TestWS As DAO.Workspace
Public TestDB As DAO.Database
Public TestRS As DAO.Recordset
Public TestRS1 As DAO.Recordset
Public EditFlag As String
End Module

TestWS = Engine.Workspaces(0)
'申请数据空间
TestDB = TestWS.OpenDatabase(Application.StartupPath() + "\1.mdb")
'打开数据库
TestRS = TestDB.OpenRecordset("SELECT * FROM a")
'打开记录集