простая проверка на существование таблицы: она работает, а дальше код чтобы запись появилась таблице.
Код:
//проверка таблицы на существование
procedure TForm1.Showtables;
begin
SQLQuery1.SQLConnection:=SQLConnection1;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Text:='SHOW TABLES LIKE "'+edit6.Text+'"'; //SQLQuery1.SQL.Text:='select * from test1';
SQLQuery1.Open;
if not SQLQuery1.IsEmpty then
begin
memo1.Lines.Add('Поле с таким значением есть');
if sqlconnection1.Connected=true then begin
SQLTable1.TableName:=Edit6.Text;
SQLTable1.Active:=true;
ClientDataSet1.Active:=true;
end;
end
else
begin
memo1.Lines.Add('Поле с таким значением нет');
end;
SQLQuery1.Close;
end;