
что-то в этом духе
Код: Выделить всё
stmt := sqlAllocStmt;
sqlBindCol(stmt, 1, TableNum);
sqlExecStmt(stmt, 'SELECT kodtable['+Trim(String(anlevel))+'] FROM buhschet WHERE schet = '+Trim(schet)+' and subsch = '+Trim(subschet));
за остальное -99999
Модераторы: m0p3e, edward_K, Модераторы
Код: Выделить всё
stmt := sqlAllocStmt;
sqlBindCol(stmt, 1, TableNum);
sqlExecStmt(stmt, 'SELECT kodtable['+Trim(String(anlevel))+'] FROM buhschet WHERE schet = '+Trim(schet)+' and subsch = '+Trim(subschet));