易语言利用ADO连接sybase的问题解决

bolonglx

这个问题困扰了2天。原来维护的一个医院系统用的sqlserver，然后很多小工具都是用易语言开发。现在接另外个医院，数据库用的是sybase，试了很多种方法都不行。sybase的ODBC驱动已经安装，但是使用易语言原来的一些数据库连接和精易模块的ODBC，都出现一个奇怪的问题，就是连接之后提示成功，但是select就没数据返回。因为之前我一直都是使用 数据库连接 这个来连接sqlserver，各种代码都确定是没问题，数据库也确定是有数据，所以一直不知道怎么解决。

昨天晚上找到一个易语言的ADO模块，就来试一下，没想到真的可以连通。

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
a	文本型
sql	文本型
db	数据库类型
jlj	记录集类型
dx	对象
i	整数型

如果真 (db.连接 (“Provider=MSDASQL.1;;Password=123456;Persist Security Info=True;User ID=sa;Data Source=sybase;Extended Properties=” ＋ #引号 ＋ “DSN=sybase;UID=sa;PWD=123456;NA=192.168.0.175,5000;DB=fl_yb” ＋ #引号 ))
输出调试文本 (“ado成功”)
db.执行SQL (“select * from xmjg”, , , , dx, )
jlj.置对象 (dx)
计次循环首 (10, i)
a ＝ jlj.读文本 (“c_title”)
输出调试文本 (“last:” ＋ a)
jlj.到下一条 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 a, 文本型<br /> .局部变量 sql, 文本型<br /> .局部变量 db, 数据库类型<br /> .局部变量 jlj, 记录集类型<br /> .局部变量 dx, 对象<br /> .局部变量 i, 整数型<br /> <br /> <br /> <br /> .如果真 (db.连接 (“Provider=MSDASQL.1;;Password=123456;Persist Security Info=True;User ID=sa;Data Source=sybase;Extended Properties=” ＋ #引号 ＋ “DSN=sybase;UID=sa;PWD=123456;NA=192.168.0.175,5000;DB=fl_yb” ＋ #引号))<br />     输出调试文本 (“ado成功”)<br />     db.执行SQL (“select * from xmjg”, , , , dx, )<br />     jlj.置对象 (dx)<br />     .计次循环首 (10, i)<br />         a ＝ jlj.读文本 (“c_title”)<br />         输出调试文本 (“last:” ＋ a)<br />         jlj.到下一条 ()<br />     .计次循环尾 ()

sybase这种老古董数据库，相关的资料非常少。我在这里发一下ADO模块。ODBC驱动比较大这里发不了，有需要的只能找我私聊。

qq977352880

这个真的很棒。

bolonglx

不苦小和尚 发表于 2024-5-25 16:19
为什么我找不到医院的项目呢

医院这种项目，只能圈内人转介，一般都信不过圈外人，毕竟行业壁垒太深。

不苦小和尚

为什么我找不到医院的项目呢