Einzelnen Beitrag anzeigen

maladarse

Registriert seit: 19. Jul 2007
3 Beiträge
 
#41

Re: TTable: In vorhandener Datenbank Spalte hinzufügen/lösch

  Alt 19. Jan 2009, 16:24
danke erstmal!es ist so, dass die spalte zu der tabelle hinzugefügt wurde.
nur, auch wenn ich Query schließe und dann wieder öffne, ist die spalte nicht sichtbar,
und auch, wenn ich das programm aus der entwurfsansicht heraus starte und zum entwurf zurückkehre,
fehlt die spalte in fielddefs.
procedure TForm1.Button3Click(Sender: TObject);
begin
s:='alter table '+ edit1.Text+' add '+edit2.Text +' char(100)';
q1.SQL.Add(s);
t1.Close;
ds1.DataSet:=q1;
q1.ExecSQL;
q1.Close;
s1:='select* from ' +edit1.text ;
q1.SQL.Clear;
q1.SQL.Add(s1);
q1.Open;
end;
  Mit Zitat antworten Zitat