vb 怎么连接access数据库
conn.ConnectionString = "DSN=Finance"
一个程序里是这样的写,但是不行

解决方案 »

  1.   

        conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\accdb.mdb;Persist Security Info=False"
      

  2.   


    添加ADO,在工程->引用中选择“Mircrosoft ActiveX Objects Data 2.8 Library”。
    '添加ADO,在工程->部件中选择“Mircrosoft ADO Data Control6.0 (SP6)(OLEDB)”。
    '添加数据列表控件,在工程->部件中选择“Mircrosoft DataList Control6.0 (OLEDB)”。
    '添加数据网格控件,在工程->部件中选择“Mircrosoft DataGrid Control6.0 (OLEDB)”。Dim strConnect As String
        Dim a As Integer
        Dim strProvider As String
        Dim strDataSource As String
        Dim strDataBaseName As String
        strProvider = "Provider= Microsoft.Jet.OLEDB.3.51;"
        strDataSource = App.Path '得到应用程序所在的路径
        strDataBaseName = "\test.mdb;"
        strDataSource = "Data Source=" & strDataSource & _
            strDataBaseName '得到数据库的完整路径
        strConnect = strProvider & strDataSource
        Set connConnection = New ADODB.Connection
        connConnection.CursorLocation = adUseClient
        connConnection.Open strConnect '打开数据库
        Set rsRecordSet = New ADODB.Recordset
        rsRecordSet.CursorType = adOpenStatic '设置记录集的属性
        rsRecordSet.CursorLocation = adUseClient
        rsRecordSet.LockType = adLockPessimistic
        rsRecordSet.Source = "Select * From 学生信息"
        rsRecordSet.ActiveConnection = connConnection
        rsRecordSet.Open '打开记录集
      

  3.   


    这个连接方法是先要建立一个名称为Finance的ODBC数据源....
    jhone99的方法是直接用jet引擎连接,也是目前比较常用的方法..