Последняя версия DataExpress 3 beta от 1 сентября 2019 года.
Изображение Скачать | Изображение Что нового?
См. также: Энциклопедия DX | Форум на develop-soft | Песочница
ИзображениеИзображениеИзображение

Странности TdxSqlQuery

Все о том как сделать что-то с помощью скриптов.
Аватара пользователя
Гocть
Эксперт
Сообщения: 1586
Зарегистрирован: Пн ноя 27, 2017 8:02 am
Поблагодарили: 9 раз

Странности TdxSqlQuery

Сообщение Гocть » Ср фев 27, 2019 10:38 am

В чем может быть ошибка? (описал в комментах).

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

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;       
Фрилансер. Разработка на заказ. Консультирование.

Аватара пользователя
admin
Разработчик
Сообщения: 4626
Зарегистрирован: Пн мар 14, 2016 11:32 am
Откуда: Ленинградская
Благодарил (а): 20 раз
Поблагодарили: 95 раз

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

Сообщение admin » Ср фев 27, 2019 1:36 pm

Кавычка есть, она далеко справа. Пустое пространство заполняется пробелами. Скорее всего это из-за того, что тип поля relation_name Char(31).

Аватара пользователя
Гocть
Эксперт
Сообщения: 1586
Зарегистрирован: Пн ноя 27, 2017 8:02 am
Поблагодарили: 9 раз

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

Сообщение Гocть » Ср фев 27, 2019 1:46 pm

Точно, так и есть. Ушла за пределы видимости. Будем "тримать".
Фрилансер. Разработка на заказ. Консультирование.