Slette item fra listbox i database

Hvordan får du posterne IND i ListBoxen i første omgang?

Anyway her er en ADO løsning, der antager:

databasen hedder "db.mdb", tabellen hedder "MinTabel", feltet hedder "Type"
ListBoxen hedder "List1"


Dim sCon As String, oCon As New ADODB.Connection, RS1 As New ADODB.Recordset
Dim StrSQL As String, strDel As String

    strDel = List1.Text
    sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db.mdb"  '<<skift adressen her
    oCon.Open sCon
    strSQL = "SELECT * FROM MinTabel WHERE Type ='" & strDel & "'"
    RS1.Open strSQL,  cCon, adOpenKeyset, adLockOptimistic, adCmdText
    If not (RS1.BOF Or RS1.EOF) then
        RS1.Delete
        RS1.Update
    End If
    RS1.Close
    Set RS1 = Nothing
    Set oCon = Nothing

Du kunne også delete direkte i SQLstrengen, men jeg synes denne metode er mere 'korrekt'.

/tjacob

En lille fejl:  i linien der åbner RS1:  cCon = oCon

Med lidt fiksfakserier, så virker det nu, tjacob :)

Gør det noget hvis jeg spørger til lidt igen, senere, evt?
Da jeg ikke er så stiv i databaser...

Spørg løs............