18.09.2023, 17:44
|
Новичок
|
|
Регистрация: 18.03.2009
Сообщения: 71
Репутация: 10
|
|
готово
Код:
procedure TForm1.Button7Click(Sender: TObject);
begin
SQLQuery1.SQLConnection:=SQLConnection1;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Text:='SHOW TABLES LIKE "test"'; //SQLQuery1.SQL.Text:='select * from test1';
//SQLQuery1.ExecSQL;
SQLQuery1.Open;
if not SQLQuery1.IsEmpty then
begin
memo1.text:='поле с таким значением есть';
end
else
begin
memo1.Text:= 'поля с таким значением нет';
end;
SQLQuery1.Close;
end;
|