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
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
Comment