Office: (Office 2010) Recordset in Tabelle einfügen

Hallo zusammen,
meine Aktualisierung läuft jetzt durch und ich habe jetzt noch ein Abgleich eingebaut der die aktualisierte Tabelle (tbl_vertraege) mit den Recordset (VwExport) abgleichen soll und in der tbl_vertraege die datensätze löscht die nicht im VwExport vorhanden sind.
Ich bin mir nicht sicher ob das GoTo cleanup da richtig gesetzt ist. Ich bekomme zwar keine Fehlermeldung, aber schöner wäre es wenn ich so ein Vergleich oder Meldung der gelöschten Verträge bekommen würde. Sowas in der Richtung "Anzahl gelöschte Verträge". Wie könnte ich das anstellen?



Private Sub nichtVorhandeneVSNR_loeschen()
Dim ConnectionString As String
Dim DatabaseName As String
Dim rsVertraege As DAO.Recordset
Dim rsVwExport As ADODB.Recordset
Dim conn As ADODB.Connection
Dim Server As String
Dim User As String
Dim pwd As String
Dim strSQL As String
Dim objFields As ADODB.Fields
Dim intLoop As Integer
Dim db As DAO.Database



Server = "'#######"


User = "########"
pwd = "#########"


'++++++++++++++++++++++++Aufruf HAGEL_PROD+++++++++++++++++++++++++++++++++++++

DatabaseName = "HAGEL_PROD"

ConnectionString = "Provider=SQLNCLI10;Driver=SQL Server Native Client 10.0;" & _
"Server=" & Server & ";Database=" & DatabaseName

Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Mode = adModeShareDenyNone
conn.Open ConnectionString, User, pwd
strSQL = "SELECT * FROM dbo.vwExport"
Set rsVwExport = CreateObject("ADODB.RecordSet")
rsVwExport.Open strSQL, conn

'++++++++++++++++++++++++ENDE Aufruf HAGEL_PROD+++++++++++++++++++++++++++++++++++++

Set db = CurrentDb
Set rsVertraege = db.OpenRecordset("tbl_vertraege", dbOpenDynaset)

rsVertraege.MoveFirst
While Not rsVertraege.EOF

rsVertraege.Edit

If rsVertraege!vsnr = CDbl(rsVwExport!vsnr) Then
GoTo cleanup
Else
rsVertraege.Delete
End If
rsVertraege.MoveNext
rsVertraege.Update
Wend

cleanup:
rsVertraege.Close
Set rsVertraege = Nothing
Set db = Nothing
conn.close
End Sub

 

Hallo Hans Christian,
die Aktualisierung läuft ja soweit und ich muss jetzt noch ein Datenabgleich bzgl. des vorhanden sein von vsnr's inn der tbl_vertraege einbauen. Ziel ist es ein Abgleich zwischen dem Recordset (rsVwExport) und der Tabelle (tbl_vertraege). Es soll alle vsnr's in der tbl_vertraege gelöscht werden die in der tbl_vertraege vorhanden sind aber nicht im rsVwExport. Bin ich da richtig unterwegs mit meine sub?

Hab gerade gesehen ndas ich es schon gepostet hatte, sorry.

beste Grüße

Code:

 

Sollte dass nicht mit einer einfachen Löschabfrage zu lösen sein (Luftcode)
Code:

 

Hi Beaker s.a,
daran habe ich noch garnicht gedacht. Habe das mal ausprobiert und wie es scheint funktioniert es. Ich muss das Ergebnis aber nchmal geau überprüfen. Würde mich dann nochmal melden. Vorab schonmal Danke *Smilie

beste Grüße

 

Hallo zusammen,
jetzt habe ich die Aktualisierung soweit zusammen und werde von einem Kovertierungsfehler ausgebremst. Ich habe in der Tabelle vwExport ein Feld v_form_pauschal (fett gedruckt im Codebeispiel) welches den Wert "N" oder "J" hat. Jetzt muss ich diesen Wert in die Tabelle tbl_vertraege bekommen wo das Feld auch v_form_pauschal heißt aber ein Falsch/Richtig Wert hat. Ich habe es schon mit Konvertierungsparameter versucht aber ich beleibe immer beim Konvertierungsfehler (Laufzeitfehler 3421, Datentyp-Konvertierungsfehler) hängen.
Hat jemand eine Idee wie ich das lösen kann?


Code:

 

Code:

 

Hallo Hans Christian,
ich habe das eingebaut und es funktioniert. Danke für die Unterstützung *happy