VB ADODB对象 + sybase DB文件 问题。。。。大虾快来救命。。

[haoya]

我手里有个软件~~~
是PB+ SYSBASE(本地DB文件)/SQL服务器
SYSBASE 驱动是用的 DBENG6.exe / dbodbc6.dll
注册表中的数据源注册信息如下:
AutoStop REG_SZ YES
DatabaseFile D:\测试软件\database\test.db
Driver d:\测试软件\win32\dbodbc6.dll
integrated no
path d:\测试软件
Start d:\测试软件\win32\dbeng6.exe -m -c 8m -Q
数据源名为 test80


VB中使用ADODB对象：
代码如下:
Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Connstr As String
Connstr = "Data Source=test80;UID=dbo;PWD=;"
Set Conn = CreateObject("adodb.connection")
Conn.Open Connstr
Set Rs = CreateObject("adodb.recordset")
Rs.Open "SELECT value FROM g_sys_setup where id=16 or id=17 or id=19 or id=20", Conn, 3, adLockReadOnly
现在我想使用VB读取该软件SYSBASE数据库文件里面的数据，
利用的是原软件创建的一个数据源。
但是会出现(dwwin.exe/应用程序错误)提示信息。
程序无法关闭。


大家帮忙看看

[haoya]

我顶

[haoya]

怎么没人啊。。。。。

[haoya]

根据你的修改为
Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Connstr As String
Set Conn = New ADODB.Connection
Conn.Open "test80", "dbo", ""
Set Rs = New ADODB.Recordset
Rs.Open "SELECT value FROM g_sys_setup where id=16 or id=17 or id=19 or id=20", Conn, 3, adLockReadOnly

问题依旧还是会出现 dwwin.exe 非法关闭，，程序意外退出

[vbman2003]

是不是SYSBASE的驱动问题？没用过这个啊，邦不上你
你建立的ODBC数据源可以成功连接数据库吗？

[haoya]

手工建立数据源的时候。
使用testconnect 提示成功。

[haoya]

我顶顶顶，，，送分哦。。
请安有MSDN VB6源码包的朋友回复QQ。我加好友~~
请你把VISDATA VB6的源码打包发给我。谢谢~~~

[haoya]

我顶顶顶，，，送分哦。。
请安有MSDN VB6源码包的朋友回复QQ。我加好友~~
请你把VISDATA VB6的源码打包发给我。谢谢~~~

[datou985]

没用过sysbase，呵呵
友情up~~~~~~~~~~~

[haoya]

有没有人啊

[vbman2003]

没用过SYSBASE，不过你的VB代码是不是有问题？试试：

Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset

Set Conn = New ADODB.Connection
Conn.Open "test80","dbo",""

Set Rs =New ADODB.Recordset
Rs.Open "SELECT value FROM g_sys_setup where id=16 or id=17 or id=19 or id=20", Conn, 3, adLockReadOnly