主题：VB用ADO链接SQLSERVER2000太难了
gaowq
[专家分：0] 发布于 2008-08-25 22:41:00
本机装有SQLSERVER2000个人版,想用VB6链接,可用下面的代码总不行,不知错在哪里,请各位大侠指点:
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Private Sub Command1_Click()
Conn.Provider = "SQLOLEDB"
Conn.ConnectionString = "Driver={sql server};server=F65D7D6492864D4;uid=sa;pwd=;database=UFDATA_002_2008;"
Conn.ConnectionTimeout = 10
Conn.Open
End Sub
[em10]
回复列表 （共8个回复）
沙发
tanchuhan [专家分：15140] 发布于 2008-08-25 22:51:00
不知错在哪里就是没错啦。
你自己写的代码错在哪你都不知道，我们怎么知道呢？
板凳
gaowq [专家分：0] 发布于 2008-08-25 22:56:00
一楼的大侠,程序运行一直不停止,也不报错,请指点.
3 楼
tanchuhan [专家分：15140] 发布于 2008-08-26 00:54:00
你按Ctrl + Pause/Break，看下代码在哪卡住了？
4 楼
merry05 [专家分：8920] 发布于 2008-08-26 08:50:00
给你个建议，先用ADODC控件生成一个connectionstring，然后再copy到adodb下，这样保准万无一失
出错的情况一般都是这个环节出了问题
5 楼
snyga [专家分：1480] 发布于 2008-08-26 12:50:00
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim CnStr as string
Private Sub Command1_Click()
CnStr = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid=sa;pwd;DRIVER=SQL Server;DATABASE=UFDATA_002_2008;WSID=GQSOFT;SERVER=(local)"
on error resumet next
Conn.Open CnStr
if err then
msgbox "连接错误!"
else
msgbox "连接成功!"
end if
on error goto 0
End Sub
6 楼
cmdl [专家分：1910] 发布于 2008-08-28 11:53:00
用adodc向导生成一个连接字段
7 楼
cmdl [专家分：1910] 发布于 2008-08-28 11:54:00
另外你这里只是连接上了
要进行什么操作呢
你这样点完之后是看不出什么来的
8 楼
余庆长春 [专家分：0] 发布于 2008-08-30 13:34:00
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
connectstring = "driver={sql server};server=(local);initial catalog=数据库名"
cnn.Open connectstring
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic
试试这个吧
我来回复
您所在位置：