Søge i database.

Noget i den retning?

Dim strSQL As String
Dim strSearchString As String
Dim strConnString As String
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

strSearchString = "ord"
strConnString = "DIN CONNECTION STRING"
strSQL = "SELECT Felt1, Felt2 FROM Tabel WHERE Felt1 LIKE '%" & strSearchString & "'%"

cnn.Open strConnString
rs.Open strSQL, cnn

While Not rs.EOF
  'Din kode der tilføjer oplysningerne i listview
Wend

rs.Close
cnn.Close

Husk at afslut med at rydde op:
  Set cnn = Nothing
  Set rs = Nothung
:o)

Kommer vel an på hvordan man connecter til sin database.
Petestaar virker, undskyld mig men, som rimelig ny på dette punkt.
Måske det ville være nemmere blæot at benytte data-kontrollen?

- Mikker

Blæot? Hvem hel.... har givet mig ti tommelfingre?

SES!

- Mikker

Hej Somaliomar! Jeg anvender en data-kontrol i mit program. Hvor meget skal der til for at skrive din kode om til brug i forbindelse med en Data1?

Jeg ved faktisk ikke hvad en data-kontrol er :)

Datacontrol:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/daobjData.asp
&
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbcondatacontrol.asp
Find selv mere på msdn.

peterstaar: Hvis du bruger en datakontrol, så er der jo ingen grund til at connecte via ADODB og SQL-sætninger mm. Loop over dine poster, og for hvert loop smider du posten i din list ved List1.additem :o)

Peterstaar: Lige for at præciserer:
somaliomar giver een måde at connecte til en DB på. Dette er et alternativ til at bruge datakontrollen, som er en anden måde. Ved at connecte som somaliomar skriver, får du fordelen af at kunne anvende SQL-udtryk. Ved at bruge datakontrollen får du forselen af at det er nemt, og du får foræret funktioner som at kunne "bladre" i databasen uden at du selv skal skrive koden til det :o)

Og for at smide det hele i en listbox, skåret ud i pap ;o)

Dim i as integer
List1.clear
Data1.Recordset.movefirst
While Not Data1.Recordset.EOF
  List1.additem Data1.Recordset.Fields("MinTabel")
  Data1.Recordset.MoveNext
Wend

"MinTabel" er navnet på den tabel hvorfra du vil smide poster over i List1

martin_moth >> Tak for links :)

Tak martin moth!! Kan godt bruge dit svar. Tak for hjælpen.