Hallo alle...
bitte nicht gleich teeren und federn wegen
Paradox....
folgender im Prinzip einfacher Code..
Delphi-Quellcode:
procedure TabWartungerzeugen;
begin
with Form1.TabWartungsprotokoll do
begin
TableType := ttParadox;
TableName := WartungPName;
with FieldDefs do
begin
Clear;
with AddFieldDef do
begin
Name := 'Nummer';
DataType := ftString;
Size := 30;
end;
with AddFieldDef do
begin
Name := 'Gruppe';
DataType := ftString;
Size := 30;
end;
with AddFieldDef do
begin
Name := 'Tatigkeit';
DataType := ftString;
Size := 100;
end;
with AddFieldDef do
begin
Name := 'IO';
DataType := ftBoolean;
end;
with AddFieldDef do
begin
Name := 'Mangel';
DataType := ftBoolean;
end;
with AddFieldDef do
begin
Name := 'Erledigt';
DataType := ftBoolean;
end;
end;
with IndexDefs do
begin
with AddIndexDef do
begin
Name := '';
Fields := 'Nummer;Gruppe;Tatigkeit';
Options := [ixPrimary];
end;
end;
CreateTable;
end;
end;
Infos:
WartungPName enthält kpl. Verzeichnis incl. Dateinamen z.B. 'C:\Test\WP2007.DB'
TabWartungsprotokoll ist Active:= False
zum Problem:
der erste Durchlauf der procedure ist ok die Tabelle wird wie gewünscht erstellt.
vor dem 2. Durchlauf wird WartungPName geändert in z.B 'C:\Test\WP2008.DB'
beim CreateTable erhalte ich folgenden Fehler:
bla..bla..bla.. Invalid Parameter....Table 'C:\Test\WP2008.DB' does not exist
ist ja klar...sie soll ja erstellt werden
Danke für eure Mithilfe...