Thema Datum  Von Nutzer Rating
Antwort
Rot mehrspaltige Listbox mit Daten aus einer Datenbank
 05.01.2008 11:09:15 Klaus
NotSolved
06.01.2008 14:17:47 Holger
NotSolved

Ansicht des Beitrags:
Von:
Klaus		 Datum:
05.01.2008 11:09:15		 Views:
2012		 Rating:
     
Antwort:
  Ja
Thema:
mehrspaltige Listbox mit Daten aus einer Datenbank
Hallo Experten,
ich möchte eine mehrspaltige Listbox mit Daten aus einer Datenbank füllen. Klappt mir meinem bisherigen Code auch ganz gut doch kann ich mit dem Code nur eine Spalte füllen. Wie bekomme ich es hin die anderen Spalten zu füllen. Es sollen 9 Spalten sein! die alle gefüllt werden sollen. Mit Daten aus einer Tabelle der Datenbank. aber nicht der gesamten Datenbanktabelle. Also Anzahl der Spalten (9) ist nicht gleich Anzahl der Spalten der Datenbank.

Hier ist mein bisheriger Code:

Option Explicit

Private objConn As ADODB.Connection
Private rst As ADODB.Recordset
Private strSQL As String


Private Sub btnsenden_Click()
Dim freieZelle As Range
If cbxMotorbaureihe.ListIndex <> -1 Then
Set freieZelle = Sheets("Motorenplan").Range("N65536").End(xlUp).Offset(1, 0)
If IsEmpty(Sheets("Motorenplan").Range("N1")) Then
Set freieZelle = Sheets("Motorenplan").Range("N1")
End If
freieZelle.Value = cbxMotorbaureihe.Value
End If
End Sub


Private Sub UserForm_Activate()
Dim i As Integer
Dim strPath As String
strPath = "C:/Eaton/"
If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

Set objConn = New ADODB.Connection
With objConn
.Provider = "Microsoft Jet 4.0 OLE DB Provider"
.ConnectionString = "Data Source=" & strPath & "Edb.mdb"
.Open
End With

Libo_Fill
End Sub
Private Sub Libo_Fill()
Dim i As Long
Dim anzahl_elemente As Variant
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = objConn
.CursorLocation = adUseClient
.Source = "SELECT KM.* FROM KM"
.Open
End With

If rst.EOF Then Exit Sub

lbx1.Clear

Do While Not rst.EOF
With lbx1
.ColumnCount = 9
.ColumnHeads = True
.AddItem rst.Fields("mbr")
.ColumnWidths = "2cm;1,5cm;1,5cm;3cm;2cm;1cm;3,5cm;1cm;3,5cm"
End With
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub

Wäre schön wenn mir einer bei der vollendung des Codes weiterhelfen könnte.
Gruß Klaus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
Rot mehrspaltige Listbox mit Daten aus einer Datenbank
 05.01.2008 11:09:15 Klaus
NotSolved
06.01.2008 14:17:47 Holger
NotSolved