[email protected]
我给发连接语句

解决方案 »

  1.   

    '    Purpose:
    '     Author:吴文智
    '       Date:2001-1
    'Description:要试用本例请在窗体中填加AdoDC控件
    '            然后在代码窗体中粘贴如下代码
    '            Good luck!Private Sub Form_Load()
        Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=数据库文件名;Persist Security Info=false;Jet OLEDB:Database Password=密码"
        Adodc1.RecordSource = "select * from tblcasecard"
        Adodc1.Refresh
    End Sub注意几个地方的写法:
    1.User ID
    2.Data Source
    3.Database Password