Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Listview hinzufügen und anderes
Autor: NHZ
Datum: 27.09.01 12:26
Hallo, probiere mal des nchfolgende Beispiel aus der Hilfe aus. Kopiere den Code in ein Formular und füge 2 Schaltflächen und ein Listview hinzu. Mit diesem Bsp. kannst Du Listenelemete hinzufügen und löschen. Diese werden allerdings nicht in der Datenbank gespeichert; dazu must Du Sie dem Recordset hinzufügen. Gruß NHZ Private Sub Command1_Click() ListView1.ListItems.Add , , "Neu" End Sub Private Sub Command2_Click() ListView1.ListItems.Remove ListView1.SelectedItem.Index End Sub Private Sub Form_Load() ' Hinzufügen der Spaltenköpfe. Die Breite der ' Spalten entspricht der Breite des Steuerelements ' dividiert durch die Anzahl der Spalten. ListView1.ColumnHeaders.Add , , "Author", ListView1.Width / 3 ListView1.ColumnHeaders. _ Add , , "Author ID", ListView1.Width / 3, lvwColumnCenter ListView1.ColumnHeaders. _ Add , , " Birthdate", ListView1.Width / 3 ' View-Eigenschaft auf Bericht setzen. ListView1.View = lvwReport ' Erstellen von Objektvariablen für die ' Datenzugriffsobjekte. Dim myDb As Database, myRs As Recordset ' Setzen der Datenbank auf BIBLIO.MDB. ' WICHTIG: Biblio.mdb muß sich auf Ihrem Computer ' befinden, und der Pfad muß in der folgenden ' OpenDatabase-Funktion korrekt angegeben werden. Set myDb = DBEngine.Workspaces(0).OpenDatabase("BIBLIO.MDB") ' Setzen des Recordset-Objekts auf die ' Tabelle "Authors". Set myRs = myDb.OpenRecordset("Authors", dbOpenDynaset) ' Erstellen einer Variablen zum Hinzufügen ' von ListItem-Objekten. Dim itmX As ListItem ' Solange der aktuelle Datensatz nicht dem letzten ' Datensatz entspricht, werden weiter ' ListItem-Objekte hinzugefügt. ' Für Text des ListItem-Objekts wird das Feld ' "Author" verwendet. ' Für Unterelement 1 des ListItem-Objekts wird das ' Feld "AuthorID" verwendet. ' Für Unterelement 2 des ListItem-Objekts wird das ' Feld "Year Born" verwendet. While Not myRs.EOF Set itmX = ListView1.ListItems.Add(1, , CStr(myRs!Author)) ' Author. ' Wenn das Feld "Author ID" ungleich Null ist, ' Unterelement 1 auf dieses Feld setzen. If Not IsNull(myRs!Au_id) Then itmX.SubItems(1) = CStr(myRs!Au_id) ' "Author ID". End If ' Wenn das Feld "Year Born" ungleich Null ist, ' Unterelement 2 auf dieses Feld setzen. If Not IsNull(myRs![Year Born]) Then itmX.SubItems(2) = myRs![Year Born] End If myRs.MoveNext ' Nächster Datensatz. Wend End Sub

Listview hinzufügen und anderes	96	Hepheistos	26.09.01 18:04
Re: Listview hinzufügen und anderes	71	Tolwyn	26.09.01 18:25
Re: Listview hinzufügen und anderes	64	Hepheistos	26.09.01 19:02
Re: Listview hinzufügen und anderes	66	Tolwyn	27.09.01 16:03
danke für die hilfe werde es gleich mal testen	54	Hepheistos	04.10.01 10:36
Re: Listview hinzufügen und anderes	65	NHZ	27.09.01 12:26

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