请教！！有关SQL在VB中的应用！！

Question

PI_ROWS = -1  
    rc = SQLAllocStmt(hdbc, hstmt)
    If rc <> SQL_SUCCESS Then
       MsgBox " 无 法 获 得SQL 语 句 句 柄"
       Exit Sub
    End If
    SQLstmt = "SELECT TMPBKG,TMPDR,TMPCR,TMPYM,TMPDCR,TMPSTS FROM DOCLIB.ARCNT7587 ORDER BY TMPBKG"
    rc = SQLExecDirect(hstmt, Trim(SQLstmt), Len(Trim(SQLstmt)))
    If rc <> SQL_SUCCESS Then
      MsgBox "SQL 语 句 执 行 失 败"
      Exit Sub
    End If
    rc = SQLNumResultCols(hstmt, RSCols)
    If RSCols >= 1 Then
       '有记录 取得的列数
    End If
这段程序在运行至rc = SQLExecDirect(hstmt, Trim(SQLstmt), Len(Trim(SQLstmt)))时，rc=-1，而SQL_SUCCESS=0.程序报错！我对rc=-1是怎么得来的不太清楚，想各位有没有相关的资料和程序例子供我参考！谢谢了！

Answer 1

你的代码好像不是自己编的，SQLExecDirect,SQLAllocStmt可能是子程序或函数。
去问编这个程序的人，或者看看有没有关的帮助或开发文档。