syb

来自「封装了数据库的基本操作」· 代码 · 共 22 行

  dbcmd( dbProc, CmdBuf );
  if( dbsqlexec( dbProc ) == FAIL )
    return( -1 );
  while( ( r = dbresults( dbProc ) ) != NO_MORE_RESULTS ){
    if( r == FAIL )
      return( -1 );
    m = dbnumcols( dbProc );
    while( ( r = dbnextrow( dbProc ) ) != NO_MORE_ROWS ){
      if( r == FAIL )
        return( -1 );
      for( c = 1; c <= m; c ++ ){
        if( DatProc != 0 &&
            ( s = ( *DatProc )( dbcurcmd( dbProc ),
            dbcurrow( dbProc ), c, dbcoltype( dbProc, c ),
            dbdata( dbProc, c ),
            dbdatlen( dbProc, c ) ) ) != 0 ){
          dbcancel( dbProc );
          return( s );
        }
      }
    }