DATA控件,设置了CONNECT属性为ACCESS,DATABASENAME为我已建好的ACCESS数据库。但是,当设置DATA控件的RECORDSOUCE属性,就报错:不能识别的数据库类型。请大家帮个忙,先谢了!!

解决方案 »

  1.   

    虽然玩了几年vb,但是数据库还是没玩过,毕竟数据库不是vb的长处.
      

  2.   

    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
        '赋值给 DataGrid 表
        Set DataGrid1.DataSource = adoRS
        '表刷新
        DataGrid1.Refresh    '如果要绑定TextBox(数组):
        'Text1(0).DataField = 字段1
        'Text1(1).DataField = 字段2
        '.........
        Dim oText As TextBox 'TextBox
        For Each oText In Me.Text1
            Set oText.DataSource = adoRS
        Next
    '添加事件和保存
        adoRS.AddNew
        '保存
        adoRS![字段a] = text1.Text
        adoRS![字段b] = text2.Text
        adoRS.UpdateBatch adAffectAll'删除
        adoRS.Delete
        '重新赋值给表
        adoRS.Requery
        Set DataGrid1.DataSource = adoRS
        DataGrid1.Refresh    '其他相关操作:
        '上一条
        If Not adoRS.BOF Then adoRS.MovePrevious
        If adoRS.BOF And adoRS.RecordCount > 0 Then
             '已到最后返回
             adoRS.MoveFirst
        End If
        '下一条
        If Not adoRS.EOF Then adoRS.MoveNext    '下一条
        If adoRS.EOF And adoRS.RecordCount > 0 Then
              '已到最后返回
              adoRS.MoveLast
        End If
        '第一条
        If Not adoRS.BOF Then adoRS.MoveFirst
        '最末
        If Not adoRS.EOF Then adoRS.MoveLast
      

  3.   

    VB6.0或以下版本是不支持ACCESS2000以上格式的。如果要用,请把格式转低一些!或是用其它的数据库组件,如ADO组件!再不就是用VB自带的工具制作数据库!
      

  4.   

    你用的是Access2000
    而数据库引擎Microsoft.Jet.OLEDB.3.51
    改成Microsoft.Jet.OLEDB.4.0
    就可以了。
      

  5.   

    打个 VS 的 SP5 就支持2000以上的 Access数据库了
      

  6.   

    Data.Connect = "Access 2000;"
    Data.DatabaseName = "d:\Test.mdb"
    Data.RecordSource = "select * from Table"
    Data.Refresh