--- title: "ListView & Access" type: "forum-thread" url: "https://www.webforum.nu/amne/dotnet/82050-listview-access" topic: ".NET" topic_url: "https://www.webforum.nu/amne/dotnet" author: "FIgg3" published: "2003-07-15T17:46:58.000Z" updated: "2003-07-17T16:42:49.000Z" replies: 20 views: 376 page: 1 pages: 2 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/82050-listview-access" --- # ListView & Access _Sida 1 av 2._ ## #1 — FIgg3, 2003-07-15T17:46Z 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 Permalänk: https://www.webforum.nu/p/82050 ## #2 — PsyDonia, 2003-07-15T17:55Z vad heter kolumnerna databasen.. så ska jag försöka knapra ihop lite kod. Permalänk: https://www.webforum.nu/p/1112781 ## #3 — FIgg3, 2003-07-15T18:02Z Hejsan PsyDonia här kommer kolumerna ID, Titel, Reg, status jätte snällt :) Permalänk: https://www.webforum.nu/p/1112785 ## #4 — PsyDonia, 2003-07-15T18:06Z ``` 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. Permalänk: https://www.webforum.nu/p/1112790 ## #5 — FIgg3, 2003-07-15T18:08Z Tack så jätte mycket, ska testa koden genast ! :) Permalänk: https://www.webforum.nu/p/1112793 ## #6 — FIgg3, 2003-07-15T18:21Z 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 Permalänk: https://www.webforum.nu/p/1112803 ## #7 — PsyDonia, 2003-07-15T18:26Z ListView1 har väl inte clear för att rensa... Permalänk: https://www.webforum.nu/p/1112806 ## #8 — PsyDonia, 2003-07-15T18:55Z 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. Permalänk: https://www.webforum.nu/p/1112818 ## #9 — FIgg3, 2003-07-15T19:59Z 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. Permalänk: https://www.webforum.nu/p/1112857 ## #10 — FIgg3, 2003-07-15T20:11Z fixade det nu de ska stå ListView1.ListItems.Add = RecSet("titel") Om någon annan undrar :) Permalänk: https://www.webforum.nu/p/1112859 ## #11 — FIgg3, 2003-07-15T21:16Z Har dock en ny fråga: Hur skriver jag till kolumn två i Listviewn ? Permalänk: https://www.webforum.nu/p/1112890 ## #12 — niko, 2003-07-15T21:33Z ``` 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 .. ``` Permalänk: https://www.webforum.nu/p/1112894 ## #13 — FIgg3, 2003-07-15T22:01Z Tack så mycket de funkade perfa Permalänk: https://www.webforum.nu/p/1112922 ## #14 — FIgg3, 2003-07-16T12:30Z 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 Permalänk: https://www.webforum.nu/p/1113224 ## #15 — PsyDonia, 2003-07-16T14:14Z 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. Permalänk: https://www.webforum.nu/p/1113268 ## #16 — Nexus86, 2003-07-17T09:54Z R// Tänkte fel. :r Permalänk: https://www.webforum.nu/p/1113623 ## #17 — Nexus86, 2003-07-17T09:57Z 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 ``` Permalänk: https://www.webforum.nu/p/1113624 ## #18 — FIgg3, 2003-07-17T10:36Z 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 Permalänk: https://www.webforum.nu/p/1113642 ## #19 — Nexus86, 2003-07-17T16:05Z Fel. Det ska vara ListSubItems. :r Permalänk: https://www.webforum.nu/p/1113820 ## #20 — FIgg3, 2003-07-17T16:40Z 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. Permalänk: https://www.webforum.nu/p/1113843 --- Tråden på webben: https://www.webforum.nu/amne/dotnet/82050-listview-access Nästa sida: https://www.webforum.nu/amne/dotnet/82050-listview-access/page2.md