亟待解决的连接数据库的问题...

[jingtian]

用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
也就是从表中不能取得任何数据，还是根本没有连接上数据库？
请指点

[jingtian]

是这句有问题
tECDBConnection.Open
也就是说
tECDBConnection.ConnectionString 是错误的，请问如何解决？

[Jneu]

gz

[Jneu]

Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "driver={SQL Server};" & _
"server=bigsmile;uid=sa;pwd=pwd;database=pubs"
cnn1.ConnectionTimeout = 30
cnn1.Open

[一川烟草123]

你可以用adodc控件來創建連接字串...

[LiaoCheng]

可能是你的游标设置问题，以下代码是我在程序中用到的，可以得到recordcount

dim cnn as adodb.connection
set cnn =new connection
dim strConnect as string

Cnn.CursorLocation = adUseClient
Cnn.ConnectionTimeout = 10
strConnect = "Driver={Sql Server};Server=ntserver;DataBase=DBName;UID=sa;pwd="
Cnn.Open strConnect

[jingtian]

用控件建立试过
Provider=MSDASQL.1;Persist Security Info=False;User ID=ExpertC;Data Source=ExpertC

[jingtian]

谢谢，谢谢大家。

[starbattler]

我也认为是CursorLocation的问题，默认是adUseServer,而这时的游标缺省值是只向前。如果要创建苦力的Recordsets和使用开放式批处理，则要切换到客户端游标。

[sdly]

up