title image


Smiley Re: Paradox Tabellen zur Laufzeit erzeugen???
Hallo,hier ein kleines Beispiel zum erstellen einer ParadoxTabelle während der Laufzeit:procedure TMainForm.Define_Table;beginHydroTable.Active := False;HydroTable.DatabaseName := WorkDir;HydroTable.TableName := 'Hydro.db';HydroTable.TableType := ttParadox; with HydroTable do begin with FieldDefs do begin clear; add('Nummer' ,ftInteger ,0 ,true); add('Feld1' ,ftString ,50 ,true); add('Feld2' ,ftInteger ,0 ,false); add('Feld3' ,ftBoolean ,0 ,false); end; with IndexDefs do begin clear; add('PrimIndex' , 'Nummer' ,[ixPrimary]); add('Nummer' , 'Nummer' ,[ixUnique]); end; end;if not DirectoryExists(Workdir) then begin mkDir(Workdir); end;if not FileExists(WorkDir+'Hydro.db') then begin HydroTable.CreateTable; HydroTable.Active := True; end;If not HydroTable.Active = True then HydroTable.Active := True;end;

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: