| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

SQL запрос [D7, MSSQL]

nap<> ©   (2006-02-08 14:30:00) 

Как с помощью TADOQuery после SQL запроса вернуть данные в переменные

---

Ega23   (2006-02-08 15:12:00) [1]


var
aName:String;
aID:Integer;
aDate:TDateTime;
begin
  With  ADOQuery1 do
    begin
      if Active then Close;
      SQL.Text:='Select aName, aID, aDate from Table1';
      try
        Open;
        aName:=FieldByName('aName').AsString;
        aID:=FieldByName('aID').AsInteger;
        aDate:=FieldByName('aDate').AsDateTime;
      except on E:Exception do
       MessageBox(Handle, PChar(E.Message), PChar('Ошибка!'), MB_OK or MB_ICONERROR);
    end;
end;


---

Наверх