3 Jan 2005 00:01
RE: [U2] BCI Connect
Ray Wurlod <rayw <at> mindless.com>
2005-01-02 23:01:20 GMT
2005-01-02 23:01:20 GMT
A couple of small things. You didn't need SQLNumResultCols, because you already knew - from your SELECT statement - that there would be three columns in the result set. And you didn't need to unbind variables; this will happen anyway when you use SQLFreeStmt with SQL.DROP as the second argument. I would have liked to have seen your CHECK.STATUS subroutine; this is usually the critical part. Similarly, your main (fetch) loop does not exit on error - you really want it to do so. ErrCode = SQLFetch(hStmt) LOOP WHILE ErrCode <> SQL.NO.DATA.FOUND AND ErrCODE <> SQL.ERROR CRT SQLDATA(1) : " " : SQLDATA(2) : " " : SQLDATA(3) ErrCode = SQLFetch(hStmt) REPEAT IF ErrCode = SQL.ERROR THEN GOSUB CHECK.STATUS Hope this helps; I've deliberately top-posted so that you can compare what I've suggested with your admittedly working code. ----- Original Message ----- From: graham.forbes <at> syntegra.com To: u2-users <at> listserver.u2ug.org Subject: RE: [U2] BCI Connect Date: Fri, 31 Dec 2004 07:55:00 -0000 > > Ray & Richard(Continue reading)
RSS Feed