Thema Datum  Von Nutzer Rating
Antwort
Rot CopyFromRecordset kopert nicht vollständig
07.06.2019 09:53:37 cCloud
NotSolved

Ansicht des Beitrags:
Von:
cCloud
Datum:
07.06.2019 09:53:37
Views:
27
Rating: Antwort:
  Ja
Thema:
CopyFromRecordset kopert nicht vollständig

Hallo zusammen,

ich hab ein ganz banales Problem und bin kurz vor dem Nervenzusammenbruch.

In MS SQL Server Management Studio habe ich eine Tabelle, diesen Inhalt möchte ich per VBA komplett in Excel per CopyFromRecordset schreiben.

Connect zu Datenbank in VBA kein Problem, SQL Abfrage in VBA kein Probelm, der debug.print sql zeigt alle Daten an mit allen Spalten.

Der VBA Code sieht so aus:

 

Set db = GetConnection_DB


    Range("A8:L10000").Select
    Selection.ClearContents

SQL = "select * from DB.meineTabelle where Datenstand = (select MAX(datenstand) from DB.meineTabelle)"

rs.CursorLocation = adUseClient
Set rs = db.Execute(SQL)

ActiveSheet.Range("A8").CopyFromRecordset rs

 

In Excel müssten 13 Spalten kopiert werden, es werden aber nur 3 Spalten kopiert und der Rest bleibt leer... Ich habe jetzt alle varianten versucht und bekomm es einfach nicht hin.

Durchlaufe ich alles in einer Schleife funktioniert es ohne Probleme:

i = 8

Do Until rs.EOF
    ActiveSheet.Cells(i, 1) = rs!Spalte1
    ActiveSheet.Cells(i, 2) = rs!Spalte2
    ActiveSheet.Cells(i, 3) = rs!Spalte3
    ActiveSheet.Cells(i, 4) = rs!Spalte4
    ActiveSheet.Cells(i, 5) = rs!Spalte5
    ActiveSheet.Cells(i, 6) = rs!Spalte6
    ActiveSheet.Cells(i, 7) = rs!Spalte7
    ActiveSheet.Cells(i, 8) = rs!Spalte8
    ActiveSheet.Cells(i, 9) = rs!Spalte9
    ActiveSheet.Cells(i, 10) = rs!Spalte10
    ActiveSheet.Cells(i, 11) = rs!Spalte11
    ActiveSheet.Cells(i, 12) = rs!Spalte12
    ActiveSheet.Cells(i, 13) = rs!Spalte13

    i = i + 1
rs.MoveNext
Loop

Ich hoffe es gibt jemanden der eine Lösung weiss, sehr wahrscheinlich ist es eine kleinigkeit.

Die Variante CopyFromRecordset hab ich in einer MySQL Datenbank schon 1000 mal ohne Probelem verwendet und bin wie immer vorgegangen und jetzt das =).

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot CopyFromRecordset kopert nicht vollständig
07.06.2019 09:53:37 cCloud
NotSolved