Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Listview
Autor: nobody
Datum: 29.03.03 17:25
Hallo, ich habe auf einer Form ein Listview, das ich mit daten einer Tabelle füllen möchte. da ich Anfänger bin, habe ich diese Seite durchsucht, und auch einen Tipp mit folgendem Code gefunden. Den habe ich mir ein wenig umgebaut und nun nekomme ich diese Fehlermeldung: "Laufzeitfehler 13, Typen unverträglich" Mein Code: Private Sub Form_Load() Dim oField As ADODB.Field Dim oItem As ListItem Set cn = New ADODB.Connection cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=c:\mawo\data\mawo.mdb;" & _ "Persist Security Info=False" Set rs = New ADODB.Recordset rs.Open "SELECT usrid, usrnam FROM usr", cn, adOpenForwardOnly, adLockReadOnly, 0 ' Sicherstellen, dass das ListView leer ist With ListView1 .ColumnHeaders.Clear .ListItems.Clear ' Report-Ansicht (Detail-Ansicht) .View = lvwReport ' Hier richten wir das ListView ein For Each oField In rs.Fields ' jedes Feld aus dem Recordset als Überschrift ' in das ListView .ColumnHeaders.Add , oField.Name, oField.Name Next ' Sind überhaupt Datensätze vorhanden? If rs.RecordCount > 0 Then ' Nun das Recordset durchlaufen und alle Daten in ' das ListView einfügen rs.MoveFirst Do ' ein ListItem mit dem ersten Feld des aktuellen Recordset-Eintrags erzeugen For Each oField In rs.Fields If oItem Is Nothing Then ' ein neues ListItem erzeugen Set oItem = .ListItems.Add(, , oField.Value) Else oItem.SubItems(.ColumnHeaders.Item(oField.Name).Index - 1) = IIf(Not IsNull(oField.Value), oField.Value, "") End If Next ' Unser ListItem wieder auf Nothing setzten Set oItem = Nothing ' nächsten Datensatz aus dem Recordset rs.MoveNext Loop Until rs.EOF End If End With Set oField = Nothing Set cn = Nothing Set rs = Nothing End Sub

Listview	450	nobody	29.03.03 17:25
Re: Listview	238	nobody	29.03.03 17:27
Re: Listview	40	fragger	31.03.03 18:15
Re: Listview	298	nobody	31.03.03 18:01

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen