
set cn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
cn.Open "Provider=SQLOLEDB.1Persist Security Info=Falsedata source=192.168.0.102User ID=saPassword=passwordInitial Catalog=DBName"
rs.Open "select * from Qsoft", cn, 1,3
While Not (rs.EOF)
msgbox rs("ID")
rs.MoveNext
Wend
rs.Close
cn.Close
最简单的办法是:在VB里添加一个ADO部件,将其放到窗体中,然后右键选择属性,在其属性页的下面有个生成连接字符串的项,点击其后的按钮,然后一步步的来做(很简单的),然后连接字符串就会在那里生成,只要拷贝这个字符串,就可以用ADODB来连接了。。。欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)