Søg i database.

Det kan goeres paa mange maader.

Du skal kigge paa DataReader og DataAdapter/DataSet.

Og du skal kigge paa nogle win forms kontroller.

Et stykke kode som nok ikke siger ret meget:

            con = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb;UserId=admin;Password=")
            con.Open
            da = New OleDbDataAdapter("SELECT * FROM T1", con)
            ds = New DataSet
            da.Fill(ds, "T1")
            dg = New DataGrid
            dg.SetDataBinding(ds, "T1")

Jeg har sådan set opbygget mit program udfra databasen og det virker fint. Mangler dog bare denne søge funktion.

Som jeg ser din kode er det bare en binding?!?! Den har jeg allerede. Havde mere tænkt mig en knap med en msgbox som man kunne indtaste søgeord i.

Det er faktisk det samme som i VB6.

Lav en TextBox og en Button.

I button'ens click event:

sqlstr = "SELECT ... WHERE f LIKE '" & textBox1.Text & "*'"

Hvis det skal laves lidt mere avanceret skal du bruge parameters.

førhen skulle man skrive :
Data1.RecordSource =

Hvis jeg skriver som du skriver ved den vel ikke i hvilken data den skal søge?!?

Tænkte om man skulle skrive tableadaptor.database = "selec......

OK forfra. Jeg har en telefonbogs database. Her har jeg lavet en knap der skal åbne en msg hvor jeg skrive et navn. Når jeg skriver "Arne" skal den vise mig alle data i basen der matcher "Arne".

Tlfbogtableadaptor.?????????????

Hvad gør jeg herefter?

Jeg har også prøvet med et datagrid men kan heller ikke få magt med det.
DGTB= Datagrid

HJÆÆÆLLLPPP

    Dim message, title, defaultValue As Object
        Dim myValue As Object
        ' Set prompt.
        message = "Indtast søge navn."
        ' Set title.
        title = "Søgning - Firma / Navn"
        defaultValue = "Indtast søgning"  ' Set default value.

        ' Display message, title, and default value.
        myValue = InputBox(message, title, defaultValue)
        ' If user has clicked Cancel, set myValue to defaultValue
        If myValue Is "" Then myValue = ""
        TextBox1.Text = myValue
        DGTB = "Select From tlfbog" & " Where navn like '" & myValue & "*'"

Lukker.