Необходимо построить запрос длиной более 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);
Использование функции sqlAddStr
Модераторы: m0p3e, edward_K, Модераторы
-
- Посетитель
- Сообщения: 39
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Архангельская область ООО "Фалькон плюс"
- Контактная информация:
После множества проб все таки удалось получить работающий код:
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);
}
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);
}