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

Странности TdxSqlQuery

Добавлено: Ср фев 27, 2019 10:38 am
Гocть
В чем может быть ошибка? (описал в комментах).

Код: Выделить всё

function SqlTableExists(TableName:string):boolean;
var Q:TdxSQLQuery;
S:string;
begin

  Q:=SqlSelect('select USERS from DX_USERS');
  debug('"'+Q.Ass['USERS']+'"')
  // результат: "<users></users>" :)

  Q:=SqlSelect('select rdb$relation_name from rdb$relations where rdb$relation_name='+#39+TableName+#39);
  debug('"'+Q.Ass['rdb$relation_name']+'"')
  // результат: "DX_USERS  (правой кавычки нет :( )

  result := Q.Ass['rdb$relation_name'] = TableName;
  Q.Free;
end;       

Re: Странности TdxSqlQuery

Добавлено: Ср фев 27, 2019 1:36 pm
admin
Кавычка есть, она далеко справа. Пустое пространство заполняется пробелами. Скорее всего это из-за того, что тип поля relation_name Char(31).

Re: Странности TdxSqlQuery

Добавлено: Ср фев 27, 2019 1:46 pm
Гocть
Точно, так и есть. Ушла за пределы видимости. Будем "тримать".