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

jingtian 2001-09-18 02:21:28
用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
也就是从表中不能取得任何数据,还是根本没有连接上数据库?
请指点
...全文
93 9 点赞 打赏 收藏 举报
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
sdly 2001-09-18
up
  • 打赏
  • 举报
回复
starbattler 2001-09-18
我也认为是CursorLocation的问题,默认是adUseServer,而这时的游标缺省值是只向前。如果要创建苦力的Recordsets和使用开放式批处理,则要切换到客户端游标。
  • 打赏
  • 举报
回复
jingtian 2001-09-18
谢谢,谢谢大家。
  • 打赏
  • 举报
回复
jingtian 2001-09-18
用控件建立试过
Provider=MSDASQL.1;Persist Security Info=False;User ID=ExpertC;Data Source=ExpertC
  • 打赏
  • 举报
回复
LiaoCheng 2001-09-18
可能是你的游标设置问题,以下代码是我在程序中用到的,可以得到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
  • 打赏
  • 举报
回复
一川烟草123 2001-09-18
你可以用adodc控件來創建連接字串...
  • 打赏
  • 举报
回复
Jneu 2001-09-18
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "driver={SQL Server};" & _
"server=bigsmile;uid=sa;pwd=pwd;database=pubs"
cnn1.ConnectionTimeout = 30
cnn1.Open
  • 打赏
  • 举报
回复
Jneu 2001-09-18
gz
  • 打赏
  • 举报
回复
jingtian 2001-09-18
是这句有问题
tECDBConnection.Open
也就是说
tECDBConnection.ConnectionString 是错误的,请问如何解决?
  • 打赏
  • 举报
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-09-18 02:21
社区公告
暂无公告