hi, ich möchte in delphi ne tabelle erstellen. bin schon soweit das man einige durchblättern kann aber eine neue erstellen geht noch nicht.
hier mal mein quelltext:
procedure TForm1.Button14Click(Sender: TObject);
begin
if {not} adsTable1.Exists then begin
with adsTable1 do begin
{ Die Table-Komponente darf nicht aktiv sein }
adstable1.Active := False;
{ Zuerst den Tabellentyp beschreiben und die Tabelle benennen }
adstable1.DatabaseName := 'DBDEMOS';
adstable1.TableType := ttAdsADT;
adstable1.TableName := 'CustInfo';
{ Dann die Felder in der Tabelle beschreiben }
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'Field1';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin
Name := 'Field2';
DataType := ftString;
Size := 30;
end;
end;
{ Dann alle Indizes beschreiben }
with IndexDefs do begin
Clear;
{ Der erste Index hat keinen Namen, denn er ist ein }
{ primärer Paradox-Schlüssel }
with AddIndexDef do begin
Name := '';
Fields := 'Field1';
Options := [ixPrimary];
end;
with AddIndexDef do begin
Name := 'Fld2Indx';
Fields := 'Field2';
Options := [ixCaseInsensitive];
end;
end;
{ CreateTable-Methode zu Erzeugen der Tabelle aufrufen }
CreateTable;
end;
end;
so das ist das aus der delphi hilfe. allerdings blick ich da noch net wirklich durch. muß man da net noch ne methode für createtable erstellen???
