|
作者: combook [combook] 论坛用户 | 登录 |
Dim MyConn As New ADODB.Connection MyConn.Provider = "Microsoft.Jet.OLEDB.3.51" MyConn.Properties("Data Source") = "C:\...\JetPassword.MDB" MyConn.Properties("Jet OLEDB:Database Password") = "MyPwd" MyConn.Open Dim MyConn As New ADODB.Connection Dim strConn As String strConn = "Data Source=C:\...\JetPassword.MDB;" & _ "Jet OLEDB:Database Password=MyPwd" MyConn.Provider = "Microsoft.Jet.OLEDB.3.51" MyConn.Open ConnectionString:=strConn Dim MyConn As New ADODB.Connection Dim strConn As String strConn = "Provider=Microsoft.Jet.OLEDB.3.51;" & _ "Data Source=C:\...\JetPassword.MDB;" & _ "Jet OLEDB:Database Password=MyPwd" MyConn.Open ConnectionString:=strConn [此贴被 狂尊(combook) 在 11月24日13时55分 编辑过] |
地主 发表时间: 11/24 13:08 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon
粤ICP备05087286号