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

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
也就是从表中不能取得任何数据,还是根本没有连接上数据库?
请指点
...全文
142 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
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 是错误的,请问如何解决?

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧