Текущий архив: 2006.02.26;
Скачать: CL | DM;

Вниз

SQL запрос   Найти похожие ветки 

← →
nap<>   (2006-02-08 14:30) [0]

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

---

← →
Ega23 ©   (2006-02-08 15:12) [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;


---

Страницы: 1 вся ветка

Текущий архив: 2006.02.26;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.049 c