一个数据库的问题...两天了..快疯了..

sex002 发布于 2013-09-13 17:39， 681 次点击

VB6.0+SQL2000
数据库连接上后取数一直为空,数据库内有内容....代码如下..

Private Sub Command4_Click()
Dim TmpStmt As String

TmpStmt = "select * from StuDB.dbo.StuT"

OdbcExt (TmpStmt)
Do While SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND
ColVal = String(400, 0)
Rc = SQLGetData(Hstmt, 1, 1, ColVal, Lench(ColVal), pcblen)
MsgBox Trim(ColVal)
Loop

End Sub

MsgBox返回为空值

3 回复

lowxiong2013-09-13 17:58

使用odbc api访问数据库？没用过，我都是用ado访问，标准的先连接库，后访问表，进行相应，最后关闭记录集。

Artless2013-09-16 12:25

就这些没法知道。

vbvcr512013-11-04 14:16

你先测试一下，记录数是多少。有的话，说明你连接数据库对了。

不行的话，试试下面的，我估计是你忘记rs.open后面的参数不对。
rs.open"......",cn,2,3
rs打开数据集时后面要有cn,2,3，这个思路试试。

[ 本帖最后由 vbvcr51 于 2013-11-4 14:18 编辑 ]