2024年5月6日发(作者：)
VB6.0使用ADO对象连接数据库：
有偿征集原创文章，为您创收 投递文章 减小字体 增大字体
1． 定义连接对象Global DBconnect As New tion2． 执行连接语
句If = adStateOpen And Not IsEmpty(adStateOpen) Then
l 连接ODBC tionString = "dsn
1． 定义连接对象
Global DBconnect As New tion
2． 执行连接语句
If = adStateOpen And Not IsEmpty(adStateOpen)
连接ODBC
tionString
"dsn=DataAliasName;uid=UserID;pwd=Passwd;"
直接连接Access为
er = ".4.0" // Access 97为3.51
Then
=
tionString = ""
连接Oracle
er = "MSADORA"
tionString = "user/mypass@servicename
连接SQL Server
er = "SQLOLEDB.1"
tionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"
或者可以使用 "SERVER" , "USERID" , "PASSWORD"
3． 取查询结果集
Global RS As New set
Global PS As New set
If = adStateOpen And Not IsEmpty(adStateOpen) Then
发布者：admin，转转请注明出处：http://www.yc00.com/news/1714999309a2550388.html
评论列表（0条）