Страница 1 из 1

Использование функции sqlAddStr

Добавлено: 29 июл 2008, 12:05
gloomy
Необходимо построить запрос длиной более 255 символов
Документация по функции sqlAddStr очень неполная. Прошу помощи в использовании.
Мой пример кода (ПК "Галактика" закрывается по Runtime error)

Var stmt : LongInt;
Var nameOrg: String;

stmt := sqlAllocStmt;
sqlAddStr(stmt, 'Select KATORG.NAME From KATORG '); //запрос упрощен для читаемости кода
sqlAddStr(stmt, 'Where('''' != KATORG.NAME)');

sqlBindCol(stmt, 1, nameOrg);
sqlExecute(stmt);
While(sqlFetch(stmt) = TsOk)
{
LogStrToFile('c:\galLog.txt', nameOrg);
}
sqlFreeStmt(stmt);

Добавлено: 05 авг 2008, 13:43
gloomy
После множества проб все таки удалось получить работающий код:

Var stmt : LongInt;
Var stmt_str: LongInt;
Var nameOrg: String;

stmt := sqlAllocStmt;

sqlAddStr(stmt_str, 'Select KATORG.NAME From KATORG '); //запрос упрощен для читаемости кода
sqlAddStr(stmt_str, 'Where('''' <> KATORG.NAME) ');
sqlPrepare(stmt, stmt_str);
sqlFreeStr(stmt_str);

sqlBindCol(stmt, 1, nameOrg);
sqlExecute(stmt);
While(sqlFetch(stmt) = TsOk)
{
LogStrToFile('C:\galLog.txt', nameOrg);
}
sqlFreeStmt(stmt);
}