Hallo,
ich möchte zur Laufzeit Dbase - Dateien generieren. Ich habe da einige Probleme. Mir sind leider nicht alle notwendigen Properties von TAdoConnection bekannt. Im aktuellen SDK (MDAC) konnte ich nichts finden.
Die folgende Prozedur läuft zwar ohne Fehler durch, aber ich finde die erzeugte Tabelle nicht !
<pre>
procedure TForm1.TabelleErstellenClick(Sender: TObject);
var myconn : TAdoConnection;
mycommand : TAdoCommand;
begin
myconn := TADOConnection.Create(Self);
mycommand := TADOCommand.Create(Self);
try
with myconn do
begin
Connected := False;
Provider := 'Microsoft.Jet.OLEDB.4.0';
Properties['Extended Properties'].Value := 'dBASE 5.0';
Properties['Data Source'].Value := ExtractFilePath
(Application.EXEName);
//Properties['DefaultDir'].Value := ExtractFilePath
(Application.EXEName); funktioniert nicht
Connected := True;
// Disable Login Prompt ???
// weitere wichtige einstellungen ???
end; // of myconn
with mycommand do
begin
Connection := myconn;
CommandText := 'create table test.dbf(name1 TEXT (30),name2 TEXT
(30),Datum DateTime)';
Execute;
end;
finally
myconn.free;
mycommand.Free;
end;
</pre>
Hat jemand Erfahrungen damit ? Oder vieleicht ein Hinweis auf die möglichen Properties (TAdoConnection) die man zur Laufzeit verwenden
kann.
Bis dann
ich möchte zur Laufzeit Dbase - Dateien generieren. Ich habe da einige Probleme. Mir sind leider nicht alle notwendigen Properties von TAdoConnection bekannt. Im aktuellen SDK (MDAC) konnte ich nichts finden.
Die folgende Prozedur läuft zwar ohne Fehler durch, aber ich finde die erzeugte Tabelle nicht !
<pre>
procedure TForm1.TabelleErstellenClick(Sender: TObject);
var myconn : TAdoConnection;
mycommand : TAdoCommand;
begin
myconn := TADOConnection.Create(Self);
mycommand := TADOCommand.Create(Self);
try
with myconn do
begin
Connected := False;
Provider := 'Microsoft.Jet.OLEDB.4.0';
Properties['Extended Properties'].Value := 'dBASE 5.0';
Properties['Data Source'].Value := ExtractFilePath
(Application.EXEName);
//Properties['DefaultDir'].Value := ExtractFilePath
(Application.EXEName); funktioniert nicht
Connected := True;
// Disable Login Prompt ???
// weitere wichtige einstellungen ???
end; // of myconn
with mycommand do
begin
Connection := myconn;
CommandText := 'create table test.dbf(name1 TEXT (30),name2 TEXT
(30),Datum DateTime)';
Execute;
end;
finally
myconn.free;
mycommand.Free;
end;
</pre>
Hat jemand Erfahrungen damit ? Oder vieleicht ein Hinweis auf die möglichen Properties (TAdoConnection) die man zur Laufzeit verwenden
kann.
Bis dann
Comment