Hallo alle VBAster ! ,

ich möchte ein Recordset tranponieren mit Adodb. Mein code funktionniert leider nicht.

Es ergibt kein Fehler aber das ergnis ist falsch. Es ergibt ein art Treppen Transponiert .

vielen dank im voraus , falls jemand mich helfen kann.

Mein Code sieht so aus :

Public Sub ADO_test1()
' "late Binding"

 ' Connection, Recotrdset ,Location of the data file to open
 Dim Connection As Object
 Set Connection = CreateObject("ADODB.Connection")

 Dim Recordset As Object
 Set Recordset = CreateObject("ADODB.RecordSet")

 Dim Pfad As String
 Pfad = ThisWorkbook.FullName

' open with the right drivers
 With Connection
 .Provider = "Microsoft.Jet.OLEDB.4.0"
 .ConnectionString = "Data Source=" & Pfad & ";" & _
 ";Extended Properties=""Excel 8.0;HDR=NO;IMEX=1""" 'Put IMEX=1 see http://support.microsoft.com/kb/194124/en-us
 .Open
 End With


' Query
 Dim Query As String
 Query = "SELECT * FROM [Tabelle5$A1:E4]"


' Activate the connection & process queries
 With Recordset
 .Source = Query
 .ActiveConnection = Connection
 .Open
 End With

'1 ) Build a blank recordset to fill
Dim Recordset2 As Object
Set Recordset2 = CreateObject("ADODB.RecordSet")

Dim j As Integer
For j = 0 To 5
 With Recordset2
 .Fields.append j, 129, 255
 End With
Next j

Recordset2.Open
Recordset.MoveFirst

Dim i As Integer
j = 0
For j = 0 To 5

For i = 0 To Recordset.Fields.Count - 1

 Recordset2.addnew (j), Recordset.Fields(i).Value
 Recordset2.Update

Next i
Recordset2.MoveFirst '( wo das Problem liegt : es will nicht zum First record zurück kehren )
Recordset.MoveNext

Next j

 


VG Rémi