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
4. Ende
Gruß
Tobias
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
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
Gruß
Tobias