für Klaus M.
27.01.2020 10:58:11
Luschi
bei mir klappt das jetzt so per AdoDB:
- die Datensätze aus dem Recordset werden mit GetRows in das Array geschrieben
- dieses muß per Worksheetfunction.Transpose 2x gedreht werden!
- das klappt aber nur, wenn nur ein Datenfeld in der Select-Anweisung ausgewählt wird
Private Sub TextBox1_Change()
Dim vArr As Variant, vArr_1 As Variant, varr_2 As Variant
rsSQL = "Select lieferFirma From tblLieferanten Where " & _
"lieferFirma Like '%" & Me.TextBox1.Text & "%';"
rsObj.Open rsSQL, connObj, 2, 3
'DSe in Array kopieren
With rsObj
If Not .bof And Not .EOF Then
vArr = rsObj.GetRows()
With Me.ListBox1
.Clear
'klappt nur bei einem Datenfeld
.List = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vArr))
End With
Else
MsgBox "Gibt es nicht!", 16 + vbMsgBoxSetForeground
End If
.Close
End With
End Sub
Gruß von Luschiaus klein-Paris