Anleitung Zugriff auf JTL-Datenbank mit Microsoft Access per ADO (Ohne Projekt-Datei)

[Beck]

Hallo,

das mit dem Projekt war mir doch etwas zu umständlich, da ich aus meiner gewohnten Access-Welt herausgerissen wurde.

Mit "normalen" Access Datenbanken ist dies über ADO möglich.
Getestet wurde dies nur mit Access 2007, müsste aber ohne Probleme auch auf die älteren Office Versionen anwendbar sein.

Die Anleitung ist etwas kanpper gehalten.
Code muss für jeden Fall individuell angepasst werden.

1. Das Übliche

ACHTUNG !!!
Vor Einsatz Datenbank sichern !!!
Es kann so ziemlich alles geändert werden und damit die Datenbank und die Beziehungen einzelner Datensätze zerschossen werden !!!
Haftungsausschluss:
Wenn Ihr etwas Kaputt macht ist das euer Problem.

2. Benötigte Verweise

Den Anhang 2560 betrachten

3. Code

    Public Function JTL_tBestellung(JTLAuftragsnummer As String)
      Dim cn As ADODB.Connection
      Dim rs As ADODB.Recordset
   
      ' Aufbauen einer Verbindung zur JTL-Datenbank
      Set cn = New ADODB.Connection
   
      With cn
          .Provider = "MSDataShape" ' Keine Ahnung funktioniert mit dieser Einstellung
          .Properties("Data Provider").Value = "SQLOLEDB" ' Keine Ahnung funktioniert mit dieser Einstellung
          .Properties("Data Source").Value = "BECK-PC\JTLWAWI" ' Netzwerkname des Computers angeben
          .Properties("User ID").Value = "sa" ' Benutzername Standart = "sa"
          .Properties("Password").Value = "sa04jT14" 'Passwort Standart = "sa04jT14"
          .Properties("Initial Catalog").Value = "eazybusiness"
          .Open
      End With
      
      ' Öffnen und bearbeiten des Datensatzes
      Set rs = New ADODB.Recordset
      With rs
          Set .ActiveConnection = cn
          .Source = "SELECT * FROM  tBestellung where kBestellung ='" & JTLAuftragsnummer & "'" ' SQL Abfrage bitte anpassen für korrekten Datensatz"
          .LockType = adLockOptimistic
          .CursorType = adOpenKeyset
          .Open
          rs![cAnmerkung] = "Test 04.09.2010" ' cAnmerkung ist in diesem Fall der Spaltenname
          .Update
          .Close
                
          End With
      Set rs = Nothing
      Set cn = Nothing
      
  End Function

4. Ende

Gruß
Tobias