Hallo zusammen,
da die User eines Erfassersystems mittels Access manuell Änderungen in der DB vorgenommen hatten die zu Problemen beim Datenaustausch führten möchte der Kunde nun dass die DB Passwortgeschützt wird.
Alles so weit bestens, für den Datenimport von Text(CSV)-Dateien habe ich die Routine von Andreas Kosch verwendet, und nun habe ich das Problem dass es nicht schaffe ein Passwort über die Properties zu übergeben. Mein letzter Ansatz sieht so aus: <BR>
<PRE> ImportConnect.Provider := 'Microsoft.Jet.OLEDB.4.0';
ImportConnect.Properties[ 'Extended Properties' ].Value := 'Text';
ImportConnect.Properties[ 'Data Source' ].Value := ExtractFilePath( FileName );
ImportConnect.Properties[ 'USER ID' ].Value:= 'Admin';
ImportConnect.Properties[ 'Jet OLEDBatabase Password' ].Value := DBPassword;
SQL := Format( 'SELECT * INTO [VBStamm] IN "%s" from %s',
[ AppConfig.DBName, // DB mit Verzeichnis
ExtractFileName( FileName ) ] ); // Import-Textfile
ImportConnect.Execute( SQL, Result );
</PRE>
Hier erhalte ich aber die Fehlermeldung: "Kein zulässiges Kennwort".
Das übergebene Passwort habe ich im Debugger überprüft, es stimmt !!! Kann es damit zusammenhängen dass das Passwort ein string ist der nur aus Zahlen besteht oder habe ich etwas vergessen
Ich bedanke mich für jeden Tip
MfG Holger Rogge
da die User eines Erfassersystems mittels Access manuell Änderungen in der DB vorgenommen hatten die zu Problemen beim Datenaustausch führten möchte der Kunde nun dass die DB Passwortgeschützt wird.
Alles so weit bestens, für den Datenimport von Text(CSV)-Dateien habe ich die Routine von Andreas Kosch verwendet, und nun habe ich das Problem dass es nicht schaffe ein Passwort über die Properties zu übergeben. Mein letzter Ansatz sieht so aus: <BR>
<PRE> ImportConnect.Provider := 'Microsoft.Jet.OLEDB.4.0';
ImportConnect.Properties[ 'Extended Properties' ].Value := 'Text';
ImportConnect.Properties[ 'Data Source' ].Value := ExtractFilePath( FileName );
ImportConnect.Properties[ 'USER ID' ].Value:= 'Admin';
ImportConnect.Properties[ 'Jet OLEDBatabase Password' ].Value := DBPassword;
SQL := Format( 'SELECT * INTO [VBStamm] IN "%s" from %s',
[ AppConfig.DBName, // DB mit Verzeichnis
ExtractFileName( FileName ) ] ); // Import-Textfile
ImportConnect.Execute( SQL, Result );
</PRE>
Hier erhalte ich aber die Fehlermeldung: "Kein zulässiges Kennwort".
Das übergebene Passwort habe ich im Debugger überprüft, es stimmt !!! Kann es damit zusammenhängen dass das Passwort ein string ist der nur aus Zahlen besteht oder habe ich etwas vergessen
Ich bedanke mich für jeden Tip
MfG Holger Rogge
Comment