VB6怎样能够访问Access2000数据库？？？

Question

各位大虾，，请问VB6怎样能够访问Access2000数据库？？？

Answer 1

'首先引用Microsoft Activex Data Objects 2.x Library 
'access 不带密码
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\infoTable.mdb"
objrs.Open "select * from infoTable ", objcon, 3, 1
while not objrs.eof
list1.additem objrs.fields(0)
objrs.movenext
wend

Answer 2

工程->引用->microsoft ADO 2.7 library
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="数据库文件路径";Persist Security Info=False"
cnn.CursorLocation = adUseClient
cnn.Open
rst.Open "select * from Apost", cnn, adOpenStatic, adLockPessimistic

Answer 3

补充一句，上面的apost是你的库里面的一张表

Answer 4

ADO的
Dim Cnn As ADODB.Connection
Dim ConnStr As String
Set Cnn = New ADODB.Connection
  Set Rgas = New ADODB.Recordset
  ConnStr = " Provider=Microsoft.Jet.OLEDB.4.0;" & _
                     "Data Source=" + App.Path + "\report.mdb;" & _
                    "Persist Security Info=True;" & _
                    "Jet OLEDB:Database Password="
  
  Cnn.Open ConnStr
  SqlStr = "Select Sum(Kbishu),Sum(Kgas),Sum(KJinE),Sum(Sbishu),Sum(Sgas),Sum(SJinE),Sum(Bbishu),Sum(Bgas),Sum(BjinE),Sum(HBbishu),Sum(HBgas),Sum(HBJinE) from MYreport"
  With Rgas
      .ActiveConnection = Cnn
      .Source = SqlStr
      .Open
  End WithDAO的
Dim rePath As String
   
    MyPath = App.Path + "\ranqi_ic.mdb"
    rePath = App.Path + "\report.mdb"
   
    Set Db = DBEngine.OpenDatabase(MyPath, False, False, ";pwd=hisourcesoft")
    Set db1 = DBEngine.OpenDatabase(rePath, False, False)
    
    Set rd2 = Db.OpenRecordset("dangan2", dbOpenDynaset)