[leon2009]

простая проверка на существование таблицы: она работает, а дальше код чтобы запись появилась таблице.

Код:

//проверка таблицы на существование
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;