vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
SQL in ListView einlesen / Zuweisung Icon 
Autor: Dirk.B
Datum: 13.12.09 20:06
Hallo Zusammen!

Ich habe mir ein kleines Programm gschrieben, mit dem ich bestimmte Daten aus eine SQL - Datenbank in ein ListView einlese, wie z.B.:

- Artikelnummer
- Bezeichnung
- Bestelltext
- etc.

Unteranderem kann ein Artikel noch 2 Infomationen besitzen:
- Zeichnung vorhanden (DWG)
- Datenblatt vorhanden (PDF) 

'---ListView Einstellungen----------------------------------------------
With ListView1
    .ListItems.Clear
    .ColumnHeaders.Clear
    .View = lvwReport
    .SmallIcons = ImageList1
End With
'---Spaltendefinition---------------------------------------------------
With ListView1.ColumnHeaders
    .Add , , "DWG", 15
    .Add , , "PDF", 15
    .Add , , "Materialsortierung", 75
    .Add , , "Artikelnummer", 70
    .Add , , "Breite", 40
    .Add , , "Stärke", 40
    .Add , , "Länge", 40
    .Add , , "Bezeichnung", 130
    .Add , , "EK-Preis", 40
    .Add , , "Gewicht", 40
    .Add , , "Einheit", 30
    .Add , , "Bestelltext", 150
    .Add , , "DWG - Pfad", 150
    .Add , , "PDF - Pfad", 150
End With
'---ListView mit Datenbankinformationen füllen---------------------------
Rs.MoveFirst
Do Until Rs.EOF
    Set LItem = ListView1.ListItems.Add()
    LItem.Text = ""                                     'DWG / Zeichnung 
    ' vorhanden
    LItem.SubItems(1) = ""                              'PDF / Dokument 
    ' vorhanden
    LItem.SubItems(2) = (Rs!MATSORT_ID)                 'Materialsortierung
    LItem.SubItems(3) = (Rs!PD_NUM & "")                'Artikelnummer
    LItem.SubItems(4) = (Rs!M_Breite & "")              'Breite
    LItem.SubItems(5) = (Rs!M_Dicke & "")               'Stärke
    LItem.SubItems(6) = (Rs!M_Laenge & "")              'Länge
    LItem.SubItems(7) = (Rs!PD_BEZ & "")                'Bezeichnung
    LItem.SubItems(8) = (Rs!M_EK_Preis & "")            'EK-Preis
    LItem.SubItems(9) = (Rs!Gewicht & "")               'Gewicht
    LItem.SubItems(10) = (Rs!M_Best_Einheit_ID & "")    'Bestelltext
    LItem.SubItems(11) = (Rs!M_Bestelltext & "")        'Bestelleinheit
    LItem.SubItems(12) = (Rs!M_ZNAME_DWG & "")          'DWG - Verzeichnis
    LItem.SubItems(13) = (Rs!M_ZNAME_PDF & "")          'PDF - Verzeichnis
    Rs.MoveNext
Loop
Rs.Close
End Sub
Wenn das ListView nun gefüllt ist, soll in den Zeilen, in den die beiden Felder 
    LItem.SubItems(12) = (Rs!M_ZNAME_DWG & "")          'DWG - Verzeichnis
    LItem.SubItems(13) = (Rs!M_ZNAME_PDF & "")          'PDF - Verzeichnis
einen Inhalt haben, das entsprechende Icon vorne in den beiden ersten Spalten
angezeigt werden.

Wie bekomme ich da nun eine Abfrage hin, so daß das richtige Icon in der richtigen Spalte
und in der richtigen Zeile angezeigt wird?

Wäre schön, wenn mir da jemand auf die Sprünge helfen könnte.

Vielen Dank im voraus.

VG

Dirk

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
SQL in ListView einlesen / Zuweisung Icon1.896Dirk.B13.12.09 20:06
Re: SQL in ListView einlesen / Zuweisung Icon1.138ModeratorDieter14.12.09 06:40
Re: SQL in ListView einlesen / Zuweisung Icon1.179Dirk.B14.12.09 07:20
Re: SQL in ListView einlesen / Zuweisung Icon1.094Dirk.B15.12.09 14:45
Re: SQL in ListView einlesen / Zuweisung Icon1.122Dirk.B16.12.09 20:57

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel