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