Einzelnen Beitrag anzeigen

Tyrael Y.

Registriert seit: 28. Jul 2003
Ort: Stuttgart
1.093 Beiträge
 
Delphi 2007 Professional
 
#9

Re: Teildatenbank aus großer Datenbank erzeugen

  Alt 8. Dez 2009, 11:18
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?
Levent Yildirim
Erzeugung von Icons aus Bildern:IconLev
  Mit Zitat antworten Zitat