连接Sybase8.0，请大家进来看一看。解决方案

连接Sybase8.0，请大家进来看一看。
一个Delphi编写的服务器软件。它启动Sybase8.0数据库后，我使用vb编写测试连接，连接也成功，但是读不了数据，数据返回时空值。但是使用dbisqlc.exe启动数据库，使用同样的代码。连接又可以读数据。为什么会这样呢？
下面是我的代码，

VB code

Private Sub Form_Load()ListView1.ColumnHeaders.Add , , "商品名称", ListView1.Width / 2ListView1.ColumnHeaders.Add , , "商品型号", ListView1.Width / 2ListView1.View = lvwReport    Dim cn As New ADODB.Connection, Rs As New ADODB.Recordset    cn.ConnectionString = "Provider=MSDASQL.1;DRIVER={adaptive server anywhere 8.0}; " & _    "Persist Security Info=true;DSN=ascnew_2; SRVR=ascnew1214;DB=asc_2_new;UID=dba;PWD=nokia&shangsi&asc"    cn.Open    Rs.CursorLocation = adUseClient    Rs.Open "select * from T_AX_Corp_Info", cn, 3, 1        While Not Rs.EOF   Set itmx = ListView1.ListItems.Add(, , Rs.Fields（"c_code"))     If Not IsNull(Rs.Fields（"c_code")) Then               itmx.SubItems(1) = Rs.Fields("c_name")                                    End If      Rs.MoveNext   '移动到下一条记录。   Wend         Set Rs = Nothing     Set cn = NothingEnd Sub

[解决办法]
帮顶。。。。。。。。。。。
[解决办法]
A)服务端软件的数据库事务是否已递交？dbisqlc.exe 可能支持脏读。
B)SQL 语句中显示指定返回字段

SQL code

select c_code,c_name from T_AX_Corp_Info 

 

查看更多 下一篇