Access

我在Access里建库，用VB怎样连接

解决方案 »

  1.   

    随便一本书都有介绍，用控件data,adodc等等
      

  2.   

    '使用 DAO 访问本地数据库Access,在程序运行期间一直打开
        Set mydb2 = DBEngine.Workspaces(0).OpenDatabase(CurDir + "\Data\erp.mdb", True, False, ";pwd=" & Get_Pwd("+=0") & "")
          Set myset = mydb2.OpenRecordset("select dbuser_id,dbpass_id,dsn from dbuser")
      

  3.   

    DATA控件不能连接2000及以上的ACCESS数据库,改变链接方式吧方法:菜单"工程/引用/Microsoft ActiveX Data Object Library 2.0Option ExplicitDim cn As New ADODB.Connection
    Dim rs As New ADODB.RecordsetPrivate Sub Form_Load()
        cn.ConnectionString = "DBQ=" & App.Path & "\ZhiZhao.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
        "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
        
        cn.Open
        
        rs.Open "select * from tablename", cn, adOpenDynamic, adLockPessimistic
        
        rs.AddNew '添加一条
        rs!Name = "张三"
        rs.Update '保存
    End Sub