ListView & Access

hejsan, för första gången i dag skulle jag försöka presentera information från en Access Databas i en ListView tänkte ja, sagt & gjort började jag pilla runder och kom på att jag hade ingen anning om hur de skulle gå till :)

Kollat runder lite på nätet men inte hittat något. Jag har för övrit föra kolumner i databasen & fyra i ListViewn som jag ska fylla med text.

Någon som har en länk eller rent utav lite kod man skulle få se så skulle jag vara jätte tacksam.

Mvh

vad heter kolumnerna databasen..
så ska jag försöka knapra ihop lite kod.

Hejsan PsyDonia här kommer kolumerna ID, Titel, Reg, status

jätte snällt :)

List1.Clear
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\databas.mdb" & ";pwd=losenord"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From Tabell"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF

List1.AddItem RecSet(Kolumn)

RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing

knåpade ihop lite innan du skrev kolumnerna.
Detta borde funka tror jag.

denna addar till en listbox.

Testa och ändra så det passar dig.

Tack så jätte mycket, ska testa koden genast ! :)

Jag kör denna koden:

Private Sub Form_Load()
ListView1.Clear
Set Connect = New Connection
Set RecSet = New Recordset

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\Databasen\db.mdb"

SQL = "SELECT * FROM filmer order by titel DESC"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

If RecSet.EOF Then
MsgBox "Inga filmer hittades i databasen!", 48, "Felmeddelande"
Else
Do Until RecSet.EOF

ListView1.AddItem RecSet("titel")

RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
End If
End Sub

Men då får ja fel meddelandet:

Compile error:

Method or data member not found

raden den pekar på är: ListView1.Clear

Mvh

ListView1 har väl inte clear för att rensa...

ListView1.Clear
den raden kan du ta bort.
eftersom jag la den där bara för att nolla list1
men eftersom du har lagt det i Form_Load

så e ListView1 redan nollad.

Okej tack, men kör ja koden utan den så får jag ett felmeddelade som lyder:

Compile error:

Method or data member not found.

Raden den pekar på är ListView1.AddItem RecSet("titel")

titel kolumnen finns i databasen.

fixade det nu de ska stå

ListView1.ListItems.Add = RecSet("titel")

Om någon annan undrar :)

Har dock en ny fråga: Hur skriver jag till kolumn två i Listviewn ?

    Dim lItem As MSComctlLib.ListItem
    Set lItem = ListView1.ListItems.Add(, , "en text")
    lItem.SubItems(1) = "en annan text"
    lItem.SubItems(2) = "en tredje text"
    'osv ..

Tack så mycket de funkade perfa

Ojj ojj vad jobbig ja måste vara för nu har jag nämligen en fråga till ang ListView nämligen ikoner.

Jag försöker få in en ikon i kolumn nr fyra i listviewn jag har sökt runder på lite olika forum bland annat detta hittat lite men får bara massa fel meddelande med de koderna:

Dim lItem As MSComctlLib.ListItem
Set lItem = ListView1.ListItems.add(, , RecSet("titel"))
lItem.SubItems(1) = RecSet("reg")
lItem.SubItems(2) = RecSet("Prod_ar")
lItem.SubItems(3) = RecSet("status")
lItem.SubItems(4).ReportIcon = 2

Ikonerna ligger i en Imagelist, imagelist2 .

Förresten är de någon som har en bra länk där man kan läa lite om ListView så jag slipper fråga här hela tiden ?

Mvh

själv e jag inte så himla bra på just listview.
men jag kan juom man tänker ordentligt.
men ska fundera om jag kommer på nån bra sida om det. och på en kod åt dig.
men nån annan kanske hinner före.

R// Tänkte fel. :r

Tror jag löst det. Otestad kod men prova

Dim lItem As MSComctlLib.ListItem
Set lItem = ListView1.ListItems.add(, , RecSet("titel"))
lItem.SubItems.Add , , RecSet("reg")
lItem.SubItems.Add , , RecSet("Prod_ar")
lItem.SubItems.Add , , RecSet("status")
lItem.SubItems.Add , , , 2

Hejsan Nexus, tack för koden, men när jag testar den får jag fel meddelandet:

Compile error:
Argument not optional

det är .SubItems. som blir markerad.

Mvh

Fel. Det ska vara ListSubItems. :r

Tack så jätte mycket Nexus86 !!!! funkar jätte bra ! :)

Men nu är de bara lite "ögongodis" fråger, ursäkta att ja är så jätte jobbig.

I alla fall Bilden den lägger sig långt uppe i kolumen skulle vilja att den lägger sig Centrerat så att säga, och första kolumens text har flyttats sig en hel del, även när man markerar en rad så och sedan markerar en ny rad så stanar de markerade små rutorna kvar under bilden " . . . . . . . . ", bifogar en bild så ni kan se själva vad jag menar.