????????????????????????????????请来帮帮忙!!

zhuwei5299 2001-12-12 01:33:13
Set connect = New ADODB.Connection
Set my_recordset = New ADODB.Recordset
connect.Open "dsn"
中的dsn如何设置,我要打开服务器名为zw上的Access数据库,在c:/sg目录下,文件名
为:king.mdb,不能用控件
...全文
53 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
lihonggen0 2001-12-12
  • 打赏
  • 举报
回复
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
lihonggen0 2001-12-12
  • 打赏
  • 举报
回复
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
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-12-12 01:33
社区公告
暂无公告