Public Function login(username As Variant, pwd As Variant, statusValue As String, tablename As String, F_user As String, F_PWD As String, F_status As String) Dim sql As String If username <> "" Then sql = "select * from " + tablename + " where " + F_user + "='" + username + "' and " + F_status + "='" + statusValue + "'" rs.Open sql, Conn, adOpenStatic If rs.EOF Then login = False Else If rs(F_PWD) = pwd Then login = True Else login = False End If End If rs.Close Else login = Null
End If End Function连接表是用这个来打开的,反正xp下正常运行,会不会是要在2000的机子编译才行的呢,因为我这里没有装2000的,是客户端才装2000的,所以好难测试得了!
Conn.Open "Provider=SQLOLEDB.1;Persist Security info=False;User ID=sa;Password=;Initial Catalog='" + server_name + "';Data Source='" + server_ip + "'"在xp的机子上可以连得上,就是在2000上连不了的,2000的机子可以上网的谢谢!
Conn.Open "Provider=SQLOLEDB.1;Persist Security info=False;User ID=sa;Password=;Initial Catalog=" + server_name + ";Data Source=" + server_ip你可以先ping服务器,看看能不能拼能...
Dim sql As String
If username <> "" Then
sql = "select * from " + tablename + " where " + F_user + "='" + username + "' and " + F_status + "='" + statusValue + "'"
rs.Open sql, Conn, adOpenStatic
If rs.EOF Then
login = False
Else
If rs(F_PWD) = pwd Then
login = True
Else
login = False
End If
End If
rs.Close
Else
login = Null
End If
End Function连接表是用这个来打开的,反正xp下正常运行,会不会是要在2000的机子编译才行的呢,因为我这里没有装2000的,是客户端才装2000的,所以好难测试得了!
我以前碰到,局域网都是2000系统,要求登陆名和密码一样才能连SQL,或者手动登陆一次服务器(网上邻居)出现这个情况,我的是客户端2000打完了所有补丁,服务器好像没打SP4,记不清.
2.sql中身份混合验证
具体要怎么配置呢,是在服务器端配置还是在客户端的机子上配置呢,如果在客户端配置好麻烦(因为用户数有接近一千)还有我的sql服务器是放在xp sp3上的,认证模式是使用“SQL SERVER身份验证的”,要登陆名和密码的!