AW: SDL Datenbank schnelle abfrage der LinkedID
19.09.2016 12:29:51
baschti007
Danke Chris
Nur ist es bei mir so auch nicht wirklich schneller oder habe ich immer noch was falsch gemacht ?
Gruß Basti
Sub SQL()
Dim con As New ADODB.Connection
Dim RsPT As New ADODB.Recordset
Dim RS As New ADODB.Recordset
Application.ScreenUpdating = False
con.ConnectionString = "Provider=xxx;Data Source=xxx;Initial Catalog=xxx;User ID=xxx;Password= _
xxx;"
con.Open
Set RS.ActiveConnection = con
getCorpID = "SELECT * FROM Tabelle1" & " WHERE (Pruefungabgeschlossen = 'True')" & " ORDER BY _
ID DESC"
RS.Open getCorpID
x = 1
Do While Not RS.EOF ' Über 5000 einträge
Set RsPT.ActiveConnection = con
getCorpID = "SELECT * FROM Tabelle1 INNER JOIN Tabelle2 ON Tabelle1.LinkedID=Tabelle2. _
ID WHERE Tabelle1.LinkedID=" & RS!LinkedID
RsPT.Open getCorpID, con, adOpenStatic, adLockReadOnly, adCmdText
Messung = RsPT!Messung ' Diesen Wert suche ich
RsPT.Close
Set RsPT = Nothing
Cells(x, 1) = RS!LinkedID
Cells(x, 2) = Messung
x = x + 1
RS.MoveNext
Loop
Application.ScreenUpdating = False
End Sub