Использование функции sqlAddStr
Добавлено: 29 июл 2008, 12:05
Необходимо построить запрос длиной более 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 очень неполная. Прошу помощи в использовании.
Мой пример кода (ПК "Галактика" закрывается по 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);