Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.039 c