[Litron]

Помогите преодолеть.
Для связи с БД использую ADO. Таблицу отобразил, а вот запрос не могу сделать, пишет "несоответствие типов". В ADOQuery1 в параметре SQL прописаны 2 строчки:
0) SELECT * FROM Ustroystwa WHERE
1) [ID]='''+KopyIDUstr+'''
При выборе из Grida некоего пункта копирую ID в KopyIDUstr и пытаюсь заменить вторую строчку с уже готовыми данными, однако не хочет делать запрос.
Да, KopyIDUstr: Integer, а в запросе, как я понял, используется строковый тип (String). Может в этом проблема? Если да, то как подкорректировать, что добавить?

Код:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  ADOQuery1.Close;  
  ADOQuery1.SQL[1]:='[ID]='''+KopyIDUstr+'''';
  ADOQuery1.Open; 
  DataSource1.DataSet:=ADOQuery1; 
end;

Admin: Пользуемся тегами!

[lmikle]

Использовать параметры.
В запросе пишешь так:

Код:

SELECT * FROM Ustroystwa 
WHERE ID = :ID

В коде используешь так:

Код:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  ADOQuery1.Close;  
  ADOQuery1.ParamByName['ID'].AsInteger := KopyIDUstr;
  ADOQuery1.Open; 
  DataSource1.DataSet:=ADOQuery1; 
end;

PS. Не помню точно где там в ADO параметры сидят. Возможно надо обращаться к ним через ADOQuery1.Params.ParamByName['ID'].AsInteger.

[Litron]

Сообщение от lmikle

Код:

SELECT * FROM Ustroystwa 
WHERE ID = :ID

В коде используешь так:

Код:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  ADOQuery1.Close;  
  ADOQuery1.ParamByName['ID'].AsInteger := KopyIDUstr;
  ADOQuery1.Open; 
  DataSource1.DataSet:=ADOQuery1; 
end;

Вы были почти правы, задается через Parameters,

Код:

ADOQuery1.Parameters.ParamByName['ID'].AsInteger:=KopyIDUstr;

однако выкидывает теперь следующую ошибку:

Код:

[Ошибка] Unit2.pas(62): Not enough actual parameters

[TOJluK]

Код:

ADOQuery1.Parameters.ParamByName('ID').Value:=KopyIDUstr;

[Litron]

Сообщение от TOJluK

Код:

ADOQuery1.Parameters.ParamByName('ID').Value:=KopyIDUstr;

Спасибо, больше не ругается))))

А кто-нибудь может пояснить что означают точки перед ID в запросе SQL?:

Код:

ID=:ID

И другой вопрос:
У меня две формы. В Unit1 я прописал переменную Kip: integer. При выполнении значение этой же переменной мне нужно и в Unit2, однако она становится равной 0. При пошаговом просмотре видно, что она обнуляется в момент выполнения команд написанных в событиях OnShow второй формы.
Что и где нужно прописать, чтобы значение переменной сохранялось и во второй форме?

[TOJluK]

точки перед ID- это параметр, который можно передать в запрос во время выполнения кода. Например если бы было:

Код:

SELECT * FROM Ustroystwa 
WHERE USER_NAME = :NAME

тогда в коде уже было бы так:

Код:

ADOQuery1.Parameters.ParamByName('NAME').Value:='''Иван''';

Параметры часто используются в связке Master-detail. Как- то так.
Про переменную- ну так уберите из событий OnShow второй формы тот момент в котором переменная обнуляется.
ЗЫ Надеюсь, эта переменная все- таки глобальная...

[Litron]

Спасибо, понятно объяснил.
Просто не знал как объявить глобальную переменную (В Visual Basic было все проще).