Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Workshop Datenbank-Viewer im ListView-Control (DAO/ADO)
Autor: Caddy
Datum: 29.11.03 07:50
Hallo Leute, ich habe folgendes Problem Ich öffne eine Datenbank per Commondialog. Daraufhin führe ich diese Funktion aus (aus dem Workshop): Private Sub rsView_DAO(ByVal dbFilename As String, _ ByVal dbTable As String) Dim Db As DAO.Database Dim oRecordset As DAO.Recordset Dim oField As DAO.Field Dim oItem As ListItem ' Datenbank öffnen Set Db = Workspaces(0).OpenDatabase(dbFilename, _ False, False) ' Ersteinmal brauche wir ein Recordset Set oRecordset = Db.OpenRecordset _ ("SELECT * FROM " & dbTable, dbOpenSnapshot, _ dbOpenForwardOnly) ' 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 oRecordset.Fields ' jedes Feld aus dem Recordset als Überschrift ' in das ListView .ColumnHeaders.Add , oField.Name, oField.Name Next ' Sind überhaupt Datensätze vorhanden? If oRecordset.RecordCount > 0 Then ' Nun das Recordset durchlaufen und alle Daten in ' das ListView einfügen oRecordset.MoveFirst Do ' ein ListItem mit dem ersten Feld des aktuellen ' Recordset-Eintrags erzeugen For Each oField In oRecordset.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 oRecordset.MoveNext Loop Until oRecordset.EOF End If End With oRecordset.Close Db.Close Set oField = Nothing Set oRecordset = Nothing Set Db = Nothing End Sub An der Stelle Set oItem = .ListItems.Add(, , oField.Value) blebt das Programm stehen mit der Fehlermeldung "Typen unverträglich" Warum? Was mach ich falsch?

Workshop Datenbank-Viewer im ListView-Control (DAO/ADO)	423	Caddy	29.11.03 07:50
Re: Workshop Datenbank-Viewer im ListView-Control (DAO/ADO)	309	Master	29.11.03 13:13

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