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

Hallo zusammen,
ich habe hier eine Sub mit der ich die Daten aus einem Recorset in eine Tabelle einfügen will. Irgendwie funktioniert das nicht. Bis zur MsgBox habe ich die Daten (VertragDaten) bloß einfügen will er die Daten nicht. Wo ist mein Fehler? *frown.gif*

Gruß Christian

Private Sub LeereTabelle(VertragDaten)
Dim db As dao.Database
Dim rs As dao.Recordset

MsgBox VertragDaten

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

Do Until VertragDaten.EOF

rs.AddNew
rs!vsnr = "123456"
rs!bez_kr = VertragDaten!bez_kr
rs!bvtr_nr = VertragDaten!bvtr_nr

VertragDaten.MoveNext
rs.Update

Loop
End Sub

:)

 

Hallo Christian,

warum fügst Du die Daten nicht per INSERT und execute ein?

Ist zwar für was anderes gedacht aber in dem Beispiel siehst Du wie das geht
http://dbwiki.net/wiki/Access_Design...L_oder_Execute

SQL läuft schneller als Recordsest und ist die Sprache der Datenbanken zum schreiben, lesen und verändern von selbigen.

Beachtest Du noch das:
http://dbwiki.net/wiki/Access_Anf%C3..._von_Variablen

dann klappts auch mit den Werten.

Viele Grüße
trekking

 

Hallo Christian,

erstelle ein Formular mit der Tabelle (oder Abfrage?) tbl_vertraege als Datenbasis, und in diesem Formular fügst du die Vertragsdaten ein.

Gruß
Josef

 

EINEN Fehler zu identifizieren fällt schwer. Da stecken mehrere drin, und das ganze Konstrukt ist unlogisch.

Code:

Hier würde man ein Recordset vermuten. Zuvor ist aber ein ganz anderes deklariert und initialisiert. Da kommt also etwas vom Himmel gefallen, und es könnte sein, dass der VBA-Interpreter das auch nicht versteht.

Auch gravierend: Schleife ohne MoveNext, das bedeutet eine Endlosschleife.

 

Hallo nochmal und erst einmal vielen dank für die Antworten. Ich komme aber doch nicht weiter, vielleicht auch aus Umvermögen in Sachen Programmierung. Ich versuche mein Problem mal genauer zu beschreiben:
1. Ich baue eine Verbindung zu einem SQL Server auf und lese dort eine View aus. Das sieht so aus und funktioniert auch:

Sub verbinde()
Dim ConnectionString As String
Dim Server As String
Dim User As String
Dim Pwd As String
Dim DatabaseName As String
Dim Conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim a As String
Dim b As String
Dim strSQL As String
Dim Vertragdaten As Recordset

Server = "########"
User = "#########"
Pwd = "##########"
DatabaseName = "#######"

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 ###.#####"
Set rst = CreateObject("ADODB.RecordSet")
rst.Open strSQL, Conn

MsgBox rst.GetString

Conn.Close
Call LeereTabelle(rst)
End Sub

In der MsgBox lasse ich zur Kontrolle anzeigen ob ich die Daten habe. Das passt auch. Jetzt kommt der zweite Schritt.

2. Jetzt möche ich die Daten aus dem Recordset in eine Accesstabelle einfügen. Das funktioniert noch nicht. Ich habe die Sub jetzt auf das nötigste abgespeckt damit ich besser testen. Meine Problem ist halt wie ich das Recordset bzw. die Inhalte ansprechen muss um sie in die Tabelle einfügen zu können.

Private Sub LeereTabelle(rst)
Dim db As dao.Database
Dim rs As dao.Recordset


Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_LeereTabelle", dbOpenDynaset)

rs.AddNew
rs!vsnr = "1648730999"
rs!bez_kr = "Hier kommt Text hin"

rs.Update

End Sub

Wenn ich die Werte vorgebe trägt er sie ein. Ich bin also schon auf dem richtigen Weg meine ich. Aber es klemmt gerade bei mir *eek.gif*

Grüße Christian

 

Code:

oder nicht?

 

In der Prozedur verbinde() sollte eine Schleife rein, die das ADODB Recordset abarbeitet. Aber die Konstruktion insgesamt ist doch sehr holprig ...

conn wird geschlossen, das rst bleibt offen.
Die Sub-Prozedur wird aufgerufen, nachdem die Connection geschlossen wurde.

Wenn Du im Laufe einer Sitzung mehrere ADODB Verbindungen öffnen willst / musst, macht es Sinnn, das Öffnen der Connection vom Öffnen des Recordset zu trennen.

Code:

Eine lokale Tabelle aus der Remote befüllen ginge dann so (ohne Fehlerbehandlung und mit zwei exakt gleich strukturierten Tabellen):

Code:

 

Hallo Hans-Christian,
ich habe es jetzt so und er bringt mir die Meldung:

[Microsoft][ODBC Driver Manager] Der Datnequellenname wurde nciht gefunden, und es wurde kein Standardtreiber angegeben.

Was mache ich Falsch? Mein SQL Server Admin sagt aber der Treiber ist der Richtige. *eek.gif*


Code:

 

Stelle den Connection String entsprechend des Treibers richtig zusammen.

 

Hallo zusammen und vielen Dank für die Hilfestellungen bis hier hin. Ich habe jetzt den ersten Teil zum laufen gekriegt. Ist sicherlich noch verbesserungswürdig *wink.gif* aber die Zeit sitzt mir im Nacken. Im zweiten Teil möchte ich jetzt jeden Datensatz um bestimmte Daten ergänzen und da beginnt mein Problem. Er bringt zwar kein Fehler aber er macht auch nichts *frown.gif* Wo habe ich was falsch gemacht?

Code:

 

Die gesamte Konstruktion ist unübersichtlich und irritierend.

Warum muss für rsVertreter eine neue Connection geöffnet werden ???

Die äußere Schleife ist soweit ok - die Daten werden von rsVwExport nach rsVertraege übertragen.

Aber in der inneren Schleife wird der aktuelle Datensatz von rsVertraege immer wieder von Daten aus rsVertreter überschrieben ... was soll das?

Und was soll das rsVertreter.Update am Anfang der inneren Schleife?
Da hat sich doch überhaupt nichts geändert an den Daten?

 

Wie wäre es mit debuggen?

 

Hallo hcscherzer,
ja ich gebe zu mein Code ist verwirrend und vielleicht nicht ganz optimal aufgebaut. Dies ist zum einen meiner dünnen Erfahrung mit VBA zuzuschulden und zum anderen das kleine Zeitfenster. Ich versuche zu erklären was ich machen will.

Ich habe zwei SQL Datenbanken einmal HAGEL_PROD und einmal steCommon. Daher die zwei Aufrufe. Aus der Hagel_PROD bekomme ich Vertragsdaten die eine Kennung (6stellige Zahl) des Vertreter beinhaltet. Aus der steCommon bekomme ich jetzt die Verteterdaten. Jetzt ist das Ziel das die Vertragsdaten mit den Vertreterdaten abgeglichen werden und zwar auf Basis der Kennung des Vertreter aus der HAGEL_PROD und in die tbl_vertraege geschrieben wird.
Beim Debug sagt er mir: Kein aktueller Datensatz (Fehler 3021).

beste Grüße Christian

 

OK, das hatte ich übersehen, dass das zwei Datenbanken auf dem selben Server sind. Sorry.

Das wäre freilich nett, wen Du mitteiltest, in welcher Programmzeile diese Fehlermeldung kommt.

Die letzten beiden Fragen aus #11 hattest Du ja nicht beantwortet ...

Und dann widerspricht Deine Schilderung in #13 ja allen Regeln der Normalisierung. Warum speicherst Du lokal die Verträge und die Vertreter nicht auch in zwei Tabellen?

 

Hallo Hans Christian,
ja ich habe noch viele nicht optimale Stellen im Programmcode und breche auch einige Regularieren die für ein guten Programierer selbstverständlich sind. Da habe ich noch Luft nach oben *wink.gif* .
Ich habe aber meinen Code nochmal überdacht und deine Frage aufgeriffen warum ich die Daten nicht in zwei Tabellen vorhalte und Du hast recht das wäre besser. Jetzt habe ich alles umgebaut und es läuft soweit sauber. Die Aktualisierung der Vertreterdatem mache ich jetzt über eine Aktualisierungsabfrage und das geht super.
Warum ich es vorher nicht so umsetzen wollte hatte den Grund das ich mir gedacht habe alles in einem Schritt zu machen um nur eine Tabelle mit allen Daten zu habe. Jetzt läuft es aber einwandfrei. Debug habe ich auch vorher schon, bin aber irgendwie nicht weiter gekommen. Daher hatte ich hier meine Frage platziert.
Aber es läuft jetzt. Das einzige was mir aktuell noch Probleme ist der Fehler 3022 bzgl Index, Primärschlüssel oder Beziehung... da muss iuch nochmal ran.

beste Grüße
Christian