Set connect = New ADODB.Connection
Set my_recordset = New ADODB.Recordset
connect.Open "dsn"
中的dsn如何设置,我要打开服务器名为zw上的Access数据库,在c:/sg目录下,文件名
为:king.mdb,不能用控件
...全文
532打赏收藏
????????????????????????????????请来帮帮忙!!
Set connect = New ADODB.Connection Set my_recordset = New ADODB.Recordset connect.Open "dsn" 中的dsn如何设置,我要打开服务器名为zw上的Access数据库,在c:/sg目录下,文件名 为:king.mdb,不能用控件
Public adoCNAccess1 As New ADODB.Connection '定义数据库的连接存放数据和代码
With adoCNAccess1
If .State <> adStateOpen Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\sg\king.mdb"
.ConnectionTimeout = 5
.Open
If .State = adStateOpen Then
OpenAccess = "数据库连接成功"
Else
OpenAccess = "数据库连接失败,请按帮助进行检查 !"
MsgBox "数据库连接失败,请找系统管理员进行检查 !"
End If
End If
End With
Public adoCNAccess1 As New ADODB.Connection '定义数据库的连接存放数据和代码
With adoCNAccess1
If .State <> adStateOpen Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\sg\king.mdb"
.ConnectionTimeout = 5
.Open
If .State = adStateOpen Then
OpenAccess = "数据库连接成功"
Else
OpenAccess = "数据库连接失败,请按帮助进行检查 !"
MsgBox "数据库连接失败,请找系统管理员进行检查 !"
End
End If
End If
End With