Public cn1 As New ADODB.Connection
Public cn2 As New ADODB.Connection
Public rs As New ADODB.Recordset
'建立數據庫連結
If cn1.State = adStateOpen Then cn1.Close
cn1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
"Persist Security Info=False;Initial Catalog=abc" & _
"Data Source=farwin-main"
cn1.open
Public cn2 As New ADODB.Connection
Public rs As New ADODB.Recordset
'建立數據庫連結
If cn1.State = adStateOpen Then cn1.Close
cn1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
"Persist Security Info=False;Initial Catalog=abc" & _
"Data Source=farwin-main"
cn1.open
解决方案 »
- vb怎么实现快速设置ie的代理服务器(lan方式)?有没有注册表项可以写?
- 一个关于VB&API&Mapinfo的问题?急用!!!
- 很久不来了,及找大师帮忙,大师,快来!!!
- 服务器中多个winsock 同时发送信息时出现的问题
- 我有SETUP FACTORY打包工具,也有它的注册吗,可我不知道如何注册,在什么地方填注册码,大家能告诉我在哪个菜单下注册吗?谢谢!
- 谁知道王国荣先生的针对数据库初学着编写的书是不是叫《数据库程序设计》?等待中,急,急,急...
- 怎样在vb的MSChart里改变图例的名字
- 高分请教!!用VB怎样调用netmeeting的功能??
- ACCESS2000数据库遇到了大问题,请问是怎么回事?
- 关于控件数组的使用
- optionbutton怎么使用?
- 血液样本已经交给大夫了...1小时后拿决定命运的血液报告单...这一小时我该干什么去呢??
set a = Server.CreateObject("ADODB.Connection")
a.Open "Provider=SQLOLEDB;Server=ABC;Database=Pubs;UID=sa;PWD=;"make sure you can log into your database with UID=sa and empty password