vb如何与access2000数据库连接？（很菜的问题50分

Question

连97可以使用DAO3.51，2000必须使用DAO3.6
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = DBEngine.Workspaces(0).OpenDatabase(App.Path + "\数据库.mdb")
Set Rs = Db.OpenRecordset("select * from 表")当然也可以使用ADO连接，不过在对access的数据库连接中，我个人认为还是使用DAO较好呀！

Answer 1

Private Sub Form_Load()
Dim adoconn As ADODB.Connection
Set adoconn = New ADODB.Connection
adoconn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Mick\桌面\test.mdb;Persist Security Info=False")
If adoconn.State = adStateOpen Then
  MsgBox "ok"
Else
 MsgBox "error"
End IfEnd Sub这是ado的，路径可以改成相对路径

Answer 2

'先引用ado。
'打开数据库.aaa.mdb为数据库名称。
Set Cnn = New ADODB.Connection
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=aaa.mdb;Persist Security Info=False"
Set Rs = New ADODB.Recordset'然后使用sql语言.
StrSql = "select * from FOperator"
Rs.Open StrSql, Cnn, adOpenKeyset, adLockOptimistic
'得到rs记录集

Answer 3

Public cnn As New ADODB.Connection
Public 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 表", cnn, adOpenStatic, adLockPessimistic
sql="..............."
Set rst= cnn.Execute(SQL)

Answer 4

既然是菜问题，那就给一个菜办法吧^^:
用 Add-Ins/Visual Data Manager （我用的英文版，中文版的菜单名自己看好了）来帮你搞定，Visual Data Manager窗体上的file菜单可以打开数据库，Utility菜单可用图形界面设计查询，够简单吧！不过还是管用的。

Answer 5

很简单的,先引用ado2.5再使用如下的函数:
  '用特定的筛选条件(MyRecordSource)连接特定的数据库(MyDatabase)两个参数来连接数据库中的某张表(MyTable),数据库的密
                                     '码为DataBasePassword 
                                      '并指定特定的字段(MyFields)，返回特定的值,不绑定数据控件Function adoconnect3(ByVal MyDatabase As String, ByVal MyTable As String, ByVal MyFields As String, ByVal MySQLCondition1 As String) As Recordset
   
   Dim MyRs As ADODB.Recordset
   Dim MyConnectString As String
   Dim sql As String
   
 ''' 打开连接。
   MyPath = getapppathparent + "database\"
   MyConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & MyPath & MyDatabase & ";Jet OLEDB:Database Password=" & DataBasePassword 
   Set MyCnn = New ADODB.Connection
   MyCnn.Open MyConnectString
   
   ''建立RecordSet
   Set MyRs = New ADODB.Recordset
   sql = "SELECT " & MyFields & "  FROM " & MyTable & MySQLCondition1
    MyRs.CursorLocation = adUseClient
   MyRs.LockType = adLockBatchOptimistic
   MyRs.CursorType = adOpenKeyset
  
   ''给函数赋值
   MyRs.Open sql, MyCnn
   Set adoconnect3 = MyRs
   
  End Function

Answer 6

Public cnn As New ADODB.Connection
Public 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 表", cnn, adOpenStatic, adLockPessimistic
sql="..............."
Set rst= cnn.Execute(SQL)