花落谁家，你作主！	盛大widget设计大赛英雄榜

怎样用VB访问远程数据库SQL的！

楼主sys9933（草人）2004-11-04 16:52:00 在 VB / 数据库(包含打印，安装，报表) 提问

怎样用VB访问远程数据库SQL的！
最后给例子，可以用的，有解说的！
谢谢！问题点数：50、回复次数：14Top

1 楼Leftie（左手,为人民币服务）回复于 2004-11-04 16:57:10 得分 10

dim conn as new adodb.connection
dim strsql as string
strsql = "driver=SQL Server;server=" & 远程计算机名或IP地址 _
& ";uid=sa;pwd=;database=" 数据库名"
if conn.state=adstateopen then conn.close
conn.connectionstring=strsqsl
conn.openTop

2 楼tztz520（午夜逛街）回复于 2004-11-04 17:00:55 得分 5

Dim gDBConnect As New ADODB.Connection

Private Sub Command1_Click()
Dim xx As String
Dim prs As New ADODB.Recordset

gDBConnect.CommandTimeout = 10
DoEvents
xx = "Provider=sqloledb;Data Source=192.168.1.111;Initial Catalog=" & "csdb" & ";User Id=sa;Password="""""
Debug.Print xx
gDBConnect.ConnectionString = xx
DoEvents
gDBConnect.Open
End SubTop

3 楼haohaohappy（50岁以前拿命换钱，50岁以后拿钱换命）回复于 2004-11-05 08:05:16 得分 5

连接服务器
ConnectString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=xxx;Data Source=IP"
DBtest.ConnectionString = ConnectString
DBtest.CursorLocation = adUseClient
DBtest.ConnectionTimeout = 5
DBtest.Open

连接SQL数据库中某个数据库
CSWithDB = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=XXX;Initial Catalog=" & DataBaseName & ";Data Source=IP"
CNCsDB.ConnectionString = CSWithDB
CNCsDB.CursorLocation = adUseClient
CNCsDB.OpenTop

4 楼iser2003（《我将在CSDN永远消失－－失望！》－（＊＿＊））回复于 2004-11-05 08:07:00 得分 5

不要忘记了是三层结构！Top

5 楼guoxu_009（迟来）回复于 2004-11-05 08:27:36 得分 10

dim conn as new adodb.connection
dim str as string
str = "driver=SQL Server;server=192.168.0.1;uid=sa;pwd=;database=Master"
if conn.state=adstateopen then conn.close
conn.connectionstring=str
conn.open
end ifTop

6 楼rockLogin（金手指）回复于 2004-11-05 10:30:11 得分 10

我觉得还是用SQL自己的连接比较好一点：
dim sqlConn as sqlclient.sqlconnection
sqlconn.connectionString="integrated security=SSPI;data source="10.1.4.138";persist security info=False;initial catalog=DBName"
sqlconn.open()
…………
sqlconn.close() '这样效率更高一些Top

7 楼mademelaugh（五朝臣子(以接分为荣，以不结帖为耻)）回复于 2004-11-05 11:18:13 得分 0

干嘛都把persist security info设置成false？Top

8 楼abcdefu520（东风拖垃圾大队队长）回复于 2004-11-05 11:46:41 得分 0

关注Top

9 楼yyh_9328（冰玉无痕）回复于 2004-11-05 11:58:29 得分 0

热心~Top

10 楼artoksxb（进取人生）回复于 2004-11-05 15:55:11 得分 5

dim cnn as new adodb.connection ‘//dim withevents cnn as adodb.connection
dim rs as new adodb.recordset
cnn.connectionstring=”Driver={Sql server};server=SeverName;database=数据库名;UID=sa;Pwd=”
或者‘//cnn.ConnectionString="provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;Password=;Initial Catalog=数据库名;data source=服务器名"
cnn.open
Top

11 楼RussellMX（）回复于 2004-11-05 16:46:04 得分 0

如果是Internet上面的数据库呢?也能通过这样实现?
关注...Top

12 楼SemYum（本人不说费话，不灌水）回复于 2004-11-05 17:20:08 得分 0

也是可以的,要用IP取代服务器名.Top

13 楼JayJay（）回复于 2004-11-06 00:11:56 得分 0

遇到服务器权限问题怎么解决，还有防火墙的问题？Top

14 楼what_is_my_lifetime（）回复于 2004-11-06 12:18:41 得分 0

如果是db2数据库呢?Top