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

Question

怎样用VB访问远程数据库SQL的！
最后给例子，可以用的，有解说的！
谢谢！

Answer 1

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.open

Answer 2

Dim gDBConnect As New ADODB.ConnectionPrivate Sub Command1_Click()
Dim xx As String
Dim prs As New ADODB.RecordsetgDBConnect.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 Sub

Answer 3

连接服务器
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.Open

Answer 4

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 if

Answer 5

我觉得还是用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()  '这样效率更高一些

Answer 6

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

Answer 7

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

Answer 8

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