神马品牌网垃圾的分类与回收论文:vb 如何与SQL连接
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 18:47:16
总是说”无效的外部程序”
（写入窗体中的）程序如下：
DIM CON AS ADODB.CONNECTION
SET CON=NEW ADODB.CONNECTION
CON.ConnectionString = "driver={sql server};server=服务器名;uid=sa;pwd=;database=数据库名"
CON.Open
不知哪里错误
另外弱弱的说一句，我不知道服务器名在哪里查，不知是不是服务器名出错的问题
谢谢！
你上面的连接方法是没有错误的啊...
你可以试试这个...
工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=服务器名;Initial Catalog=数据库名;User Id=用户名;Password=密码;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
服务器名:如果是本机测试的 服务器名是 127.0.0.1
如果是网上空间 你可以看看 FTP 上面有服务器名的...
初学者一般都会忘记这个问题.
这种连接方法,第一部一定要先引用ADO
点菜单中的工程,然后点引用,选择
Microsoft ActiveX Data Objects 2.5 Library
然后在用你的代码就可以连接了
DIM CON AS ADODB.CONNECTION
SET CON=NEW ADODB.CONNECTION
CON.ConnectionString = "driver={sql server};server=服务器名;uid=sa;pwd=;database=数据库名"
on error resume next
CON.Open
if con.state<>1 then '判断是否连接成功!
msgbox "数据库连接失败!" & error
else
msgbox "数据库连接成功!"
end if
CON.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;password=******;Initial Catalog=数据库名;Data Source = IPaddress;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096"