首先打开你的VB,创建一个ACTIVEX控件,引用ADO对象。然后建立一个标准模块(.BAS),类模块也可以(.CLS)
在里面加入如下函数(将数据库的链接字符串写在里面),调用就是了。
public function getconn() as adodb.connection
dim conn as new adodb.connection
conn.open "driver={sql server};server=你SQL服务名或IP地址;uid=sa;pwd=;database=pubs"
getconn=conn
end function
最后在你其它需要进行数据库操作的函数调用以上链接函数就行了啊。
在里面加入如下函数(将数据库的链接字符串写在里面),调用就是了。
public function getconn() as adodb.connection
dim conn as new adodb.connection
conn.open "driver={sql server};server=你SQL服务名或IP地址;uid=sa;pwd=;database=pubs"
getconn=conn
end function
最后在你其它需要进行数据库操作的函数调用以上链接函数就行了啊。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货