Hallo zusammen,
ich habe hier über das
Forum eine Lösung für die Übernahme von Daten au einer .mdb Datenbank erhalten. Jetzt wurde meine Software auf SQL umgestellt. Kann ich die Daten auch von der SQL Datenbank beziehen??? Ich führe mal unten die Lösung für die mdb Daten auf. Vielleicht kann jemand von Euch die Daten so ändern, daß die SQL Datenbank die Daten liefert.
Vielen Dank im Voraus.
Micico
Sub Datensätze_auslesen()
Dim ADOC As New ADODB.Connection
Dim DBS As New ADODB.Recordset
Dim Tabelle1 As Worksheet
Dim s As String
Dim Datei As String
Dim i As Long
Rem Den Pfad habe ich aus deinem zweiten Thread !
Datei = "c:\sykasoft\Artikel.mdb"
ADOC.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Datei & ";"
Set Tabelle1 = Sheets("Preisermittlung")
Rem Artikel ist der Tabellenname deiner Access-Artikel.mdb !
DBS.Open "Artikel", ADOC, adOpenKeyset, _
adLockOptimistic
On Error GoTo Fehler
For i = 6 To Tabelle1.Cells(Rows.Count, 3).End(xlUp).Row
If Tabelle1.Cells(i, 4).Value = "" Then
s = Tabelle1.Cells(i, 3).Value
Rem BestellNr ist der Spaltenname, in der die Bestellnummern gesucht werden sollen !
s = "BestellNr = '" & s & "'"
DBS.Find (s)
With Tabelle1
Rem DBS!RevKürzel ist eine der Spalten, welche in Excel in Spalte A eingelesen werden soll !
.Cells(i, 1).Value = DBS!RevKürzel
Rem DBS!RabattGr ist eine der Spalten, welche in Excel in Spalte B eingelesen werden soll !
.Cells(i, 2).Value = DBS!RabattGr
Rem DBS!Brutto ist eine weitere Spalte u. wird in Excel in Spalte D eingelesen !
.Cells(i, 4).Value = DBS!Brutto
Rem DBS!EKMulti ist eine weitere Spalte u. wird in Excel in Spalte E eingelesen !
.Cells(i, 5).Value = DBS!EKMulti
Rem DBS!Netto ist eine weitere Spalte u. wird in Excel in Spalte F eingelesen !
.Cells(i, 6).Value = DBS!Netto
Rem DBS!Text1 ist eine weitere Spalte u. wird in Excel in Spalte K eingelesen !
.Cells(i, 11).Value = DBS!Text1
Rem DBS!Text2 ist eine weitere Spalte u. wird in Excel in Spalte L eingelesen !
.Cells(i, 12).Value = DBS!Text2
End With
End If
Next i
DBS.Close
ADOC.Close
Exit Sub
Fehler:
Tabelle1.Cells(i, 1).Value = "nicht gefunden !"
Tabelle1.Cells(i, 2).Value = "nicht gefunden !"
Tabelle1.Cells(i, 4).Value = "nicht gefunden !"
Tabelle1.Cells(i, 5).Value = "nicht gefunden !"
Tabelle1.Cells(i, 6).Value = "nicht gefunden !"
Tabelle1.Cells(i, 11).Value = "nicht gefunden !"
Tabelle1.Cells(i, 12).Value = "nicht gefunden !"
DBS.Close
ADOC.Close
Call Datensätze_auslesen
End Sub