vb如何访问access(紧在线等待)

Question

vb如何访问access(紧在线等待)

Answer 1

在工程中引用ADO
然后就可以使用它的强大数据库功能了

Answer 2

引用ado工程--引用
Microsoft ActiveX Data Objects 2.X Library联接/断开数据库
Public gConn                    As ADODB.ConnectionPublic Function ConnDB() As Integer
On Error GoTo ConnDB_Error    ConnDB = STS_NORMAL    Set gConn = New ADODB.Connection
    gConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & MDBFile & ";Persist Security Info=False"    GoTo WayOut
ConnDB_Error:
    gsErrModule = "ConnDB"
    Call ErrorProc
ErrOut:
    ConnDB = STS_ERROR
WayOut:
End FunctionPublic Function DisConnDB() As Integer
    Set gConn = Nothing
End Function

Answer 3

还可以用microsoft fixgird control 6.0 部件 ,然后与文件框或一些与数据敏感的控件与绑.

Answer 4

用ADO连接：
工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）Option ExplicitDim WithEvents adoRS As Recordset
Dim db As Connection
'提数据事件
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;"
'                           ##########################################
'打开密码是1234的Access2000数据库db1.mdb
'不需要密码，就把Jet OLEDB:Database Password=1234;这段去掉    Set adoRS = New Recordset
    
    adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic
    Set DataGrid1.DataSource = adoRS
    DataGrid1.Refresh
'添加事件
    adoRS.AddNew
    adoRS![字段a] = text1.Text
    adoRS![字段b] = text2.Text
    adoRS.UpdateBatch adAffectAll'删除
    adoRS.Delete
    adoRS.Requery
    Set DataGrid1.DataSource = adoRS
    DataGrid1.Refresh