Hallo,ich weiss nicht ob ich hier in der richtigen Sparte bin,aber ich versuch es trotzdem !
Also,mein Code !
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34:
| var NewString: string; ClickedOK: Boolean; begin Table1.Close; NewString := ''; Table1.Tablename := NewString; ClickedOK := InputQuery('Datenbank','Name der neuen Datenbank',NewString); if ClickedOK then begin with Table1 do begin Active := False; DatabaseName := 'C:\Nguyen\Sonstige\Mailing Service\Datenbank'; TableType := ttDBase; TableName := Newstring; with FieldDefs do begin Clear; with AddFieldDef do begin Name := 'E-Mail Adressen'; DataType := ftString; Size := 6; end; end; with IndexDefs do begin Clear; with AddIndexDef do begin Name := 'Index'; Fields := 'E-Mail Adressen'; end; end; CreateTable; end; end; end; |
Wenn ich jetzt die Tabelle in dem Ordner,wo ich gesoeichert habe aufrufe sag er keine Tabelle !
Warum ???
Jagg !