Hallo bin nicht fit in ADO muss aber hier was sauber realisieren.
1. keine ADO ebooks / pdfs- wo bekomme ich was gescheitetes "empf"
2. Ich muss eine SQL DB mit Excel Tabellen vergleichen mittels VBA.
Denke das die in vba gehen müsste bspw. in der SQL DB satzweise auslesen und diese dann mit vba in ("workbooks") vergleichen.
Aufgabe: Schaue in DB, nach bestimmte Select xxx, vergleiche diesen in der Excel TB x ende Zeilen.
Wenn gefunden und gleich "nix machen".
Wenn "leer" insert, Wenn ungleich "nicht gefunden" schauen welche Spalte anderes -> "dann Select nach SQL feld create by".
Wenn = xyz, dann update SQL ansonsten beibehalten (kein update).
Dies soll "n" mal durchgeführt werden in SQL und VBA .
Ich habe hier ein Code gemacht problem komme nicht wirklich klar und verstehe nicht ganz das objektmodel.
Vielleicht kann mir jemand auf die Sprünge helfen nach dem ich oben recht deutlich erklärt habe was ich hier lösen möchte. Vielen dank im Vorfeld
1. keine ADO ebooks / pdfs- wo bekomme ich was gescheitetes "empf"
2. Ich muss eine SQL DB mit Excel Tabellen vergleichen mittels VBA.
Denke das die in vba gehen müsste bspw. in der SQL DB satzweise auslesen und diese dann mit vba in ("workbooks") vergleichen.
Aufgabe: Schaue in DB, nach bestimmte Select xxx, vergleiche diesen in der Excel TB x ende Zeilen.
Wenn gefunden und gleich "nix machen".
Wenn "leer" insert, Wenn ungleich "nicht gefunden" schauen welche Spalte anderes -> "dann Select nach SQL feld create by".
Wenn = xyz, dann update SQL ansonsten beibehalten (kein update).
Dies soll "n" mal durchgeführt werden in SQL und VBA .
Ich habe hier ein Code gemacht problem komme nicht wirklich klar und verstehe nicht ganz das objektmodel.
Vielleicht kann mir jemand auf die Sprünge helfen nach dem ich oben recht deutlich erklärt habe was ich hier lösen möchte. Vielen dank im Vorfeld
PHP Code:
Sub DUMMY()
Dim conn As ADODB.Connection
Dim strConnectionString As String
Dim Prop As Property
Dim SQL As String
Dim oSheet As Worksheet
Dim i As Long
Dim strKEY As String
Dim oRS As ADODB.Recordset
Dim objWS As Worksheet
Dim intColumn As Integer
For i = 1 To x
strKEY = oSheet.Cells(i, 2)
oRS.Find (xx)
For a = 0 To 7
UCase (x)
Next
Next
End Sub
Public Function fktGetMaxRows(ByRef objWS As Worksheet, ByVal intColumn As Integer) As Long
Dim strFormula As String
Dim strValue As String
strValue = objWS.Cells(1, 1).Value
objWS.Cells(1, 1).Value = 1
strFormula = objWS.Cells(1, 255).Formula
objWS.Cells(1, 255).Formula = "=MAX(MATCH(9.99999999999999E+307,A:A),MATCH(REPT(""z"",255),A:A))"
fktGetMaxRows = objWS.Cells(1, 255).Value
objWS.Cells(1, 255).Formula = strFormula
objWS.Cells(1, 1).Value = strValue
Comment