Ich versuche mich gerade mit der Version mit SELECT INTO, da dies für mich sehr elegant erscheint.
Die Zieldatei ist passwortgeschützt. Es will nicht klappen, daß ich das Passwort mit übergebe.
Kennt sich jemand mit diesem Statement so gut aus, daß er/sie mir sagen kann wie die Syntax genau aussehn müsste?
Delphi-Quellcode:
function TForm1.GetDBConnection(
var ADatabaseFile:
string): TADOConnection;
var
LDBFile:
String;
LConnString:
string;
begin
LDBFile := ADatabaseFile;
result := TADOConnection.Create(
nil);
LConnString := C_CONNECTION_STRING + C_DB_PWD_CONN_STR;
result.ConnectionString := Format(LConnString, [LDBFile, C_DB_PASSWORD]);
ADataBaseFile := LDbFile;
result.LoginPrompt := false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sql,
pathToSource,
pathToDest:
string;
adoquery: TADOQuery;
adoconnection: TADOConnection;
begin
pathToSource := '
D:\DatenbankCopyTest\testDB.mdb';
pathToDest := '
D:\DatenbankCopyTest\neu.mdb';
adoconnection := GetDBConnection(pathToSource);
sql := '
SELECT * INTO [testTabelle_1] IN %s FROM [testTabelle_1]';
adoquery := TADOQuery.Create(
nil);
adoquery.Connection := adoconnection;
adoquery.SQL.Text := format(
sql, [quotedstr(pathToDest)]);
//adoquery.SQL.Text := format(sql, [quotedstr(pathToDest + ';pwd=' + C_DB_PASSWORD')]); //Fehler: Datei nicht gefunden
adoquery.ExecSQL();
//<- Fehlermeldung: Kein zulässiges Passwort
end;
Wie muss ich in dieser Syntax das Passwort angeben?