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

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,不能用控件
...全文
61 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧