ADO连接SQL Server数据库问题

EastLin 2005-06-08 08:56:15
初学VB,这几天试着用ADO连接SQL Server数据库,但一直没有成功,请各位前辈不惜笔墨,指教一二。我先说明一下我的操作步骤:
启动VB6,新建一个工程文件,在工程--引用中选定Microsoft Activex Data Objects 2.5 Library,单击确定,在表单中加入以下代码:

Dim WithEvents AdoDatabase As ADODB.Connection
Dim AdoTable As New ADODB.Recordset

Private Sub Form_Load()
Dim scnn As String
Set AdoDatabase = New ADODB.Connection
scnn = "Provider=SQLOLEDB;Data Source=SQL Server服务器的IP;DATABASE=数据库名;UID=sa;pwd=密码"
AdoDatabase.Open scnn
End Sub

但运行时出现“实时错误的……”的提示信息,请问以上问题出在哪啊?
...全文
107 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
haipingma 2005-06-08
Provider=SQLOLEDB.1
回复
wumylove1234 2005-06-08
scnn = "Provider=SQLOLEDB;Data Source=SQL Server服务器的IP;DATABASE=数据库名;UID=sa;pwd=密码"

你不会没有改上面的"服务器IP","数据库名".....

要是这样我无语了....
回复
Feather2005 2005-06-08
Dim WithEvents AdoDatabase As ADODB.Connection
Dim AdoTable As New ADODB.Recordset

Private Sub Form_Load()
Dim scnn As String
Set AdoDatabase = New ADODB.Connection
scnn = "Provider=SQLOLEDB;Data Source=SQL Server服务器的IP;DATABASE=数据库名;UID=sa;pwd=密码"
AdoDatabase.Open scnn
End Sub

连接错误:
正确应为:AdoDatabase.ConnectionString="Provider=sqloledb.1;data source=ServerName;database=databaseName;user id=sa;pwd=password"
AdoDatabase.Open
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7518

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2005-06-08 08:56
社区公告
暂无公告