Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://ns1.tyumbit.ru/
Код: Выделить всё
sqlExecDirect(sqlQuery(exec prLoadXXXXX));Код: Выделить всё
sql procedure prLoadXXXXX;
{
}Код: Выделить всё
var stmt, stmt_str : LongInt;
stmt := sqlAllocStmt;
sqlAddStr ( stmt_str, 'prLoadXXXXX()' );
sqlPrepare ( stmt, stmt_str );
sqlExecute ( stmt );
sqlFreeStr ( stmt_str );
sqlFreeStmt ( stmt );
Да в опыте хрен чего найдешь .... кое как по форуму в разных ветках нарыл )) такие фичи давно должны в доке быть, но не будем сейчас об этом )))m0p3e писал(а):Ага. Собственно все это уже расписывал в опыте
Процедура создается как S$xxxxx
Код: Выделить всё
sql procedure PR(cDoc:comp);
{
}Код: Выделить всё
var
stmt, stmt_str: LongInt;
stmt := sqlAllocStmt;
SqlBindParam(stmt, 1, nrec);
sqlAddStr (stmt_str, 'PR(?)');
sqlPrepare (stmt, stmt_str);
sqlExecute (stmt);
sqlFreeStr (stmt_str);
sqlFreeStmt (stmt);