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

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
gloomy
Посетитель
Сообщения: 39
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Архангельская область ООО "Фалькон плюс"
Контактная информация:

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

Сообщение 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);
gloomy
Посетитель
Сообщения: 39
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Архангельская область ООО "Фалькон плюс"
Контактная информация:

Сообщение 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);
}
Ответить