vb远程连接数据库

[xwjbs]

vb远程连接数据库，有没有距离的限制。是不是距离远了速度就会变慢。（vb+Sql server）

[xwjbs]

有防火墙的怎么办？我试了半天没连接上。

[Dennis618]

開放sql 服務器的端口好像是1433

[pengdali]

Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
& "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
& "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
& "Use Encryption for Data=False;Tag with column collation when possible=False"

dim AcSys as new adodb.connection
With AcSys
If .State = adStateOpen Then .Close
.ConnectionString = StrCon
.ConnectionTimeout = 30
.Open
End With

[lvltt]

距离远了速度肯定会变慢些。。。
1:(借助OLE DB Provider)
ADO
|
OLE DB Provider for SQL Server
|
SQL Server Database

2:(借助ODBC Driver)
ADO
|
OLE DB Provider for ODBC
|
OLE DB Provider for SQL Server
|
SQL Server Database

如果你要访问SQL Server数据库，那么使用OLE DB Provider（方法1） 应该是最快的方法。