Office: (Office 2016) Migration einer .adp Anwendung

Guten Tag,

ich versuche eine alte .adp Anwendung unter Windows 10
mit SQL Server 2017 zu migieren.
Leider funktionieren einige Anweisungen nicht mehr wie gewohnt und bitte daher um eure Hilfe.

Fehlermeldungen beim Vergleich vom Datum der Datenbank mit einem Datum auf dem Eingabeformular (Eingangsdatum = datetime):
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
Code:

 

Wenn du CurrentConnection verwendest, dann läuft die Abfrage via Access über die verknüpften Tabellen.

Dann musst du das Datum so formatieren, dass Access sich auskennt.
Die Funktion ist Access natürlich auch unbekannt.
Access gibt das nicht 1:1 weiter, sondern analysiert und verändert den String ....

Alternativ, kannst du eine direkte Connection zum Server erstellen, dann läuft die Abfrage auch direkt über den Server der die Funktion dann logischerweise auch kennt, oder du machst gleich eine Stored Procedure.

CurrentConnection macht eigentlich nur Sinn, wenn man spezielle ADO Methoden auf ein Access Backend anwenden will.

 

Was genau möchtest du tun? Die Anwendung, so wie ist, also als ADP mit SQL Server 2017 betreiben, oder die Anwendung umstellen auf eine AccDb?

Dein Ansatz bzgl. des Datum ist schon mal der richtige Gedanke. Das Datum aus dem Formularsteuerelement muss in ein allgemeinverständliches Format konvertiert werden. In VBA kann man dazu die Format-Funktion verwenden. - Siehe auch Der Datum/Uhrzeit Datentyp in VBA und Access und VBA-SQL-String-Tutorial.

Darüber hinaus der Hinweis, dass CurrentProject.Connection in einer AccDb nicht mehr direkt auf dem SQL Server zeigt, sondern auf die lokale Access-DB.
Daher die Fehlermeldung: Undefinierte Funktion 'Convert' in Ausdruck.
Wenn du weiterhin direkt auf den SQL Server zugreifen willst, musst du dir eine eigene ADO-Connection erstellen.


[Werbung]
Falls du in dieser Sache bezahlte Hilfe in Anspruch nehmen möchtest, kannst du mich per PM anpingen. Ich habe in den letzten Jahren einige derartige Migrationsprojekte umgesetzt oder begleitet.
[/Werbung]

 

Hallo @markusxy,

danke für deine logischen Anregungen.
Werde ich mal versuchen umzusetzen.

 

Hallo sonic8,

danke für deinen Hinweis:
> CurrentProject.Connection in einer AccDb nicht mehr direkt auf dem SQL Server zeigt
und für den Hinweis:
>Wenn du weiterhin direkt auf den SQL Server zugreifen willst, musst du dir eine eigene ADO-Connection erstellen

Ich werde das mit einer eigenen ADO Connection testen.

 

Guten Morgen @all

Ich habe nun einen Ansatz der wie folgt "funktioniert:"
Zunächst wurde der Connection String in einer Textdatei gespeichert
damit bei Änderung des Providers|Server|Datenbank nur dort eine
Änderung vorgenommen werden muss.

Dann wird in einem Modul "Start" dieser String ausgelesen für Con.ConnectionString.

Code:

Im Formular erfolgt der Zugriff auf die Tabellen des SQL Servers so:
Code:

 

Hallo Hubert,
grundsätzlich ist mal wichtig dass es funktioniert.

Eine Funktion für die Connection ist schon mal gut.
Die Frage ist nur, warum du die jedes mal neu erstellst.

Ich würde es so gestalten, dass eine Funktion oder Property die Connection beschafft und bei Bedarf einfach erstellt.

Genauso beim Recordset.
Einfach eine Funktion erstellen, die ein Recordset liefert.


Dann stellt sich die Frage, warum du das Recordset im Formular Header deklarierst?

Aussderem, was es mit dem Recordset.Close auf sich?
Ein Close ist widersinnig. Das Recordset wird automatisch geschlossen, wenn das Formular geschlossen wird, vorausgesetzt es gibt keine zusätzliche Referenz im Formular Modul.
Das Gleiche mit der Connection.

Also irgendwie passt da alles nicht zusammen.
Wenn du ein Recordset schließt werden die Daten ja wieder freigegeben. Außer du verwendest einen Clone - was absolut keinen Sinn macht - und dadurch wird die Freigabe dann verhindert.

So würde ich es machen:

Code:

mehr wäre da im Formular für die Erstellung des Recordset nicht erforderlich.

Die Funktion getAdoRs erstellt ein Recordset nach Wunsch.

 

Hallo @markusxy,

vielen Dank für deine Ratschläge.
Ich tauche da im trüben Wasser weil diese 15 Jahre alte
Anwendung bisher als .adp Lösung immer funktionierte.
Wegen Umstellung auf Office 2016 geht aber keine .adp mehr.

Deinen Vorschlag habe ich wie folgt umgesetzt:
Im Modul "Start":

Und im Formular: