Create Access Table Leere Zeichenfolge

[Eduard Demont]

Hallo,

weiss jemand wie man zur Laufzeit beim Erstellen einer Access-DB Tabelle das "Leere Zeichenfolge = True hinbekommt?

Mein Source sieht bis jetzt so aus:

procedure TDLAHaupt.CreateConf(ConfDB,DB_PW: String);
Var SQLList: TStringList;
ConectStr: String;
begin
ConectStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password="'+DB_PW+'";Data Source='+ConfDB;
With CoCatalog.Create Do Create(ConectStr);
Try
With ADOCommand Do Try
SQLList := TStringList.Create;
SQLList.QuoteChar := #32;
SQLList.Delimiter := ',';
ADOConnection.ConnectionString := ConectStr;

SQLList.Add('DATUM DateTime DEFAULT Date$()');
SQLList.Add('ERSTELLER Text (35) WITH COMPRESSION');
SQLList.Add('VERSION Text (20) WITH COMPRESSION');
SQLList.Add('BEMERKUNG MEMO WITH COMPRESSION');
CommandText := 'CREATE TABLE __Version ('+SQLList.DelimitedText+');';
Execute;

SQLList.Clear;
SQLList.Add('ININAME Text (40) WITH COMPRESSION'); // hier benötige ichs
SQLList.Add('_SECTION Text (80) WITH COMPRESSION'); // hier benötige ichs
SQLList.Add('_IDENT Text (80) WITH COMPRESSION'); // hier benötige ichs
SQLList.Add('_VALUE MEMO WITH COMPRESSION'); // hier benötige ichs
CommandText := 'CREATE TABLE Config ('+SQLList.DelimitedText+');';
Execute;
CommandText := 'CREATE INDEX ININAME ON CONFIG (ININAME);';
Execute;
CommandText := 'CREATE INDEX _SECTION ON CONFIG (_SECTION);';
Execute;
CommandText := 'CREATE INDEX _IDENT ON CONFIG (_IDENT);';
Execute;

Finally
ADOConnection.Close;
FreeAndNil(SQLList);
END;
Except
on E:Exception do Request.Lines.Add('Error: ' + E.Message);
End;
end;

Besten Dank schon mal für eure Antworten
mfg Eduard Demont

[oldi46]

True ist in Access kein String u auch keine Leere Zeichenfolge. True ist wie in Delphi der Zustand Wahr und wird unter Access mit -1 abgebildet.
Allerdings läßt sich True in einer Variablen in Delphi speichern und an Access übergeben.
Gruß