Форум: "Базы";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Вниз

Работа с SQL в Делфи?   Найти похожие ветки 

← →
Romul   (2002-01-22 14:23) [3]

procedure TForm1.Button1Click...
....
if ADOQuery1.Open then Close;
with ADOQuery1 do
begin
SQL.Clear;
SQL.Add("Select * from My_Table where My_Field="+QuotedStr(Edit1.Text));
try
Open
except
on E:Exception do
ShowMessage("Error: "+E.Message);
end;
Edit2.Text:=FieldByName("MyField").AsString;
end;

Типа того

---

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

Форум: "Базы";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c