VB6 如何用ADO代码连接带密码的access数据库？

Question

VB6为什么不能用access2000修改过的数据库？ADO代码如何连接带密码的access数据库？请把完整代码帖上好吗？还有就是一个程序是不是只连接一次就可以了？还是在每个窗体都要重新做一下连接？

Answer 1

1. 要用jet 4.0连.2. strSQL="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Persist Security Info=False;Jet OLEDB:Database Password=abc"3. 是的,除非你中途关闭了.4. 不用.

Answer 2

1:
access必须用jet 4.0
2:
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strSourceFile & ";Persist Security Info=true" ';Jet OLEDB:Database Password=****"
3、4：
如果你的程序中这个连接用的比较多，可以设为全局变量，那么连接一次即可，在退出的时候关闭，如果用的不多，那么可以每次用的时候打开，用完再关闭，看你的实际要求了

Answer 3

1 要加sp5
2 connectionstring="Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=True;Data Source=databaseabsolutepathname;password=pwd"
或者connectionstring="Provider=MSDASQL.1;Persist Security Info=False;User ID=uid;password=pwd;Data Source=MS Access 97 Database;initial catalog=databaseabsolutepathname"
还有就是一个程序是不是只连接一次就可以了？
 可连接一次也可多次连接，一般只需一次连接

Answer 4

1. 用jet 4.0连接就行了.2. str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=app.path & "123.mdb";Persist Security Info=False;Jet OLEDB:Database Password=密码"3。 做一个连接函数，需要连接时就打开 不用关闭就是了 在其他窗体也是一样！

Answer 5

1.使用Access2000创建的数据库，就算修改了，在VB6,VB.NET都可以连。2.最简单的方法时引入Microsoft ADO Data Control 6.0(OLEDB)控件，使用连接字符串逐步生成代码如下:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\成绩管理\Score.mdb;Persist Security Info=False;Initial catalog=scores"一般都再程序里成代码比较好，不用控件，代码上面几位都有3.最好把它写到模块的过程里,当使用时再进行调用

Answer 6

能用access2000修改过的数据库,但要引用ADO 2.6Private Sub Form_Load()
    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i As Integer
    Dim sFieldName As String
    
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Layer.mdb;Persist Security Info=False"
    rs.Open "switchtime", con, adOpenStatic, adLockOptimistic, adCmdTable
    
    For i = 0 To rs.Fields.Count - 1
        sfilename = sfilename & rs.Fields(i).Name & vbTab
    Next
    
    MsgBox sFieldName
    
    rs.Close
    Set rs = Nothing
    
    con.Close
    Set con = NothingEnd Sub如果你的程序中这个连接用的比较多，可以设为全局变量，那么连接一次即可，在退出的时候关闭，如果用的不多，那么可以每次用的时候打开，用完再关闭，看你的实际要求了

Answer 7

palmkey(源水)写的代码规范一些...

Answer 8

1. 要用jet 4.0连.2. strSQL="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Persist Security Info=False;Jet OLEDB:Database Password=abc"3. 是的,除非你中途关闭了.4. 不用

Answer 9

'函数功能：连接数据库
'入口参数：无
'出口参数：无
'返回值：True-连接成功 False-连接失败
Public Function openConn() As Boolean
    conn.ConnectionString = "Driver={Driver do Microsoft Access (*.mdb)};" _
                            & "DriverId=25;FIL=MS Access;MaxBufferSize=2048;UID=admin;" _
                            & "PWD="密码";PageTimeout=5;DBQ="数据库文件全路径")
    conn.Mode = adModeReadWrite
    On Error Resume Next
    conn.Open
    DoEvents
    
    If Err.Number <> 0 Then
        openConn = False
        MsgBox "打开数据库时遇到下述问题，操作失败！" & vbCrLf & _
                Err.Description, vbOKOnly + vbExclamation, "操作失败"
        Err.Clear
    Else
        openConn = True
    End If
End Function'函数功能：断开数据库连接
'入口参数：无
'出口参数：无
'返回值：True-成功 False-失败
Public Function closeConn() As Boolean
    On Error Resume Next
    conn.Close
    DoEvents
    Set conn = Nothing
    
    If Err.Number <> 0 Then
        closeConn = False
        MsgBox "关闭数据库时遇到下述问题，操作失败！" & vbCrLf & _
                Err.Description, vbOKOnly + vbExclamation, "操作失败"
        Err.Clear
    Else
        closeConn = True
    End If
End Function