亟待解决的连接数据库的问题...
用VB6连接SQL Server7.0数据库
数据库位于局域网192.168.1.8,1433上
并建立用户ExpertC,密码ExpertConsultation
数据库名字ExpertC,表名字tblUserInfo
在本机器192.168.1.9上建立 用户DSN 名称ExpertC
选择服务器192.168.1.8
输入登录ID ExpertC 登录密码 ExpertConsultation
一直到测试数据源完全成功。
源程序连接数据库代码如下
Dim tECDBConnection As ADODB.Connection
Dim tECDBRecordset As ADODB.Recordset
Dim tECSQLString As String
Set tECDBConnection = New ADODB.Connection
Set tECDBRecordset = New ADODB.Recordset
tECDBConnection.ConnectionString = "DSN=" & gDSNName _
& ";UID=" & gSQLUser & ";PWD=" & gSQLPassword & ";"
tECDBConnection.Open
tECSQLString = "select * from tblUserInfo where (UserName='" _
& Trim(txtUserName.Text) & "' and Password='" _
& txtPassword.Text & "')"
Set tECDBRecordset = tECDBConnection.Execute(tECSQLString)
其中上面的 gDSNName 设置为 ExpertC
gSQLUser = ExpertC
gSQLPassword = EcpertConsultation
运行的结果总是 tECDBRecordset 的 记录数为 -1
也就是从表中不能取得任何数据,还是根本没有连接上数据库?
请指点