UC知道用VB连接SQL Server 2000，为何到其他台电脑就连接不上？
来源：百度知道 编辑：UC知道 时间：2024/07/03 13:23:24
用VB连接SQL Server 2000，为何到其他台电脑就连接不上？
我用无数据连接，程序如下：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
我用无数据连接，程序如下：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
你试一下用你的Microsoft SQL Server文件夹覆盖那台电脑的这个文件夹，如果那台电脑的sa用户有密码，你要把pwd=;改成那台电脑的密码，这样应该差不多
你首先用ping命令测试一下网络连接是否是通的，
再关掉SQL的服务器的防火墙
另外允许guest访问你的机器
可能是windows防火墙挡住了sqlserver的端口，开放1433端口或者禁用windoes防火墙试试看。
"Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
里面的server随着连接电脑的变化,是不是因该也要发生变化