1188
社区成员
亟待解决的连接数据库的问题...
用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
也就是从表中不能取得任何数据，还是根本没有连接上数据库？
请指点
数据库位于局域网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
也就是从表中不能取得任何数据，还是根本没有连接上数据库？
请指点
...全文
当前发帖距今超过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
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
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
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 是错误的，请问如何解决？
tECDBConnection.Open
也就是说
tECDBConnection.ConnectionString 是错误的，请问如何解决？
- 打赏
- 举报
应用系统数据库连接超时问题研究 最近遇到几个生产环境的系统连接psql数据库超时的问题，系统在刚启动后是可以正常访问的，但过一段时间后系统不能访问，系统日志报如下错误。 2020-02-12 15:36:11 [ERROR] [http-nio-8081-exec-2] [] jdbc.audit ...
由防火墙导致的数据库空闲连接断开问题 一、问题描述 公司一个新项目上线，处于试运行阶段，这个项目虽然是外网可访问的，故部署在了DMZ区，但试运行阶段只给了公司内少部分员工地址和账号（其中包括一些领导），故访问量很小，但项目还是挺重要的。 试...
Druid-由防火墙导致的数据库空闲连接断开问题 问题描述 公司一个新项目上线，处于试运行阶段，这个项目虽然是外网可访问的，故部署在了DMZ区，但试运行阶段只给了公司内少部分员工地址和账号（其中包括一些领导），故访问量很小，但项目还是挺重要的。 试运行...
【线上问题】由防火墙导致的数据库空闲连接断开问题 问题描述 公司一个新项目上线，处于试运行阶段，这个项目虽然是外网可访问的，故部署在了DMZ区，但试运行阶段只给了公司内少部分员工地址和账号（其中包括一些领导），故访问量很小，但项目还是挺重要的。 试运行...
Druid【线上问题】由防火墙导致的数据库空闲连接断开问题 转载自http://www.cnblogs.com/trust-freedom/p/6992952.html问题描述公司一个新项目上线，处于试运行阶段，这个项目虽然是外网可访问的，故部署在了DMZ区，但试运行阶段只给了公司内少部分员工地址和账号（其中包括...
世界经济论坛报告：CBDC 当下仍存在互操作性问题亟待解决 WEF还列出了普遍性、技术标准和支付结算等主要要求，报告中谈到： “在实施技术方面，CBDC可以利用不同技术的组合，如传统的中心化数据库和系统、共享数据库或分布式账本技术。在这种情况下，考虑到使用的不同技术...
加密云数据之前亟待解决的六大安全问题 亟待解决的六大安全问题分别是： · 违反通知和数据驻留 · 休眠时期的数据管理 · 运行过程中的数据保护 · 加密密钥管理 · 访问权限控制 · 长期弹性的加密系统 违反通知和数据驻留 并非所有的数据都...
数据库容灾、复制解决方案全分析 数据库容灾、复制解决方案全分析 https://blog.csdn.net/weixin_33985507/article/details/91535654 工程师小C的小店我也想开通小店 Python编程三剑客：Python编程从入门到实践第2版+快速上手第2...
【5】Django项目配置settings.py详解 2.数据库配置【MySQL】 3.创建模型对象并和数据库同步 4.python官方提供的项目后台管理平台的使用 注意：本节内容我们会按照三部分进行分步讲解 我们创建好了一个Python项目（mysite/）之后，需要在项目中添加模块...
数据库发展史（中） 在《数据库发展史（上）》中，为大家介绍了网状数据库和层次数据库、关系数据库、分布式数据库、云数据库的发展史。本篇文章为大家介绍NoSQL数据库和NewSQL数据库的发展历程。 NoSQL数据库 尽管关系数据库系统技术...
数据库综合总结 数据库综合总结 Delete和Drop的区别 当你不再需要该表时,使用drop关键字 当你还需要该表但是需要删除所有数据时,使用truncate关键字(truncate table 表名) 当你还需要该表但是只需要删除表记录时,使用delete...
知识图谱数据库将人类的思维路径转化为机器的路径思维 网络用图，出处不明前段...据了解，索菲亚的大脑存储在云端，通过连接WIFI实现链接，但是由于通用领域的语义范畴太过广泛，云端知识库还需要不断充实、训练以及优化，但不得不说人形机器人背后的知识图谱技术已经...
分布式服务框架 垂直化的搜索引擎在分布式系统中是一个非常重要的角色，它既能够满足用户对于全文检索、模糊匹配的需求，解决数据库like 查询效率低下的问题，又能够解决分布式环境下，由于采用分库分表，或者使用NoSQL 数据库，...
数据库容灾、复制解决方案全分析(转) 数据库容灾、复制解决方案全分析http://www.tianyar.net/blog/user1/10202/archives/2006/8967.shtml最近发现论坛上关于数据库远程复制和异地容灾等问题的帖子比较多，现在把我...
django项目的配置文件settings.py详解 我们创建好了一个Python项目（mysite/）之后，需要在项目中添加模块应用（polls/），在模块应用中添加处理功能逻辑，如添加模块中的视图处理函数...同时按照常规项目处理要求，项目中的数据要保存到指定的数据库...
