[leon2009]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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