Ik ben bezig met een project voor school en kan al een database inlezen in vb.net. nu wil ik een tekst die ik ingegeven heb in een textbox zoeken in die db. Maar het programma werkt niet meer vanaf objDataAdapter.Fill(mijnDataSet, "fims"). Wat doe ik hier verkeerd?

Dim verbindingsString As String = "Provider=Microsoft.jet.OLEDB.4.0;" & "Data Source=movies.mdb;"

Dim verbinding As New OleDb.OleDbConnection(verbindingsString)

Dim teZoeken As String

Try

Dim zoekTekst As String = "Where Omschrijving LIKE '%" & teZoeken & "%'"

Dim opdracht As New OleDb.OleDbCommand("SELECT * from tblmovies" & _

Dim objDataAdapter As New OleDb.OleDbDataAdapter(opdracht)

Dim mijnDataSet As New DataSet

Catch fout As Exception

Finally

End Try

Je SELECT statement heeft een verkeerde syntax (ontbreekt een spatie).
Met "koekoek" als waarde voor teZoeken krijg je:

verbinding.CommandText zei: SELECT * from tblmoviesWhere Omschrijving LIKE '%koekoek%'

Gebruik String.Format, of veel beter: gebruik parameters.

RedThread zei: En welke foutmelding krijg je ?

geen foutmelding.

vanaf deze regel

RedThread zei: Heb je de wijziging al geprobeerd die Don aangaf ?

ja maar dan doet hij het nog niet. en parameters gebruiken kan niet omdat we dit nog niet zien int school.

hmmm, doe eens hetvolgende:

Code:

Dim opdracht As New OleDb.OleDbCommand("SELECT * from tblmovies " & zoekTekst, verbinding)

dus een spatie plaatsen na tblmovies, zoniet krijgt ge wat Don Delegate heeft vermeld.

Succes

Zoiets zou toch moeten werken

Code:

Const selectText As String = _   "SELECT * FROM TBLMOVIES WHERE OMSCHRIJVING LIKE '%{0}%'" Dim opdracht As New OleDb.OleDbCommand(String.Format(selectText, teZoeken), verbinding) Dim adapter As New OleDb.OleDbDataAdapter(opdracht) Dim ds As New DataSet("Movies") Try     adapter.Fill(ds) Catch ex As Exception     MessageBox.Show(ex.ToString) End Try

het laatste wil ook niet lukken, ksnap echt niet wat er verkeerd aan is hoor.

greetz

Dit werkt zonder meer, heb het net uitgetest.

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim verbindingsString As String = "Provider=Microsoft.jet.OLEDB.4.0;" & "Data Source=c:movies.mdb;"
        Dim verbinding As New OleDb.OleDbConnection(verbindingsString)
        Dim teZoeken As String = "%"
 
        Try
 
              verbinding.Open()
 
              Dim zoekTekst As String = "Where Omschrijving LIKE '%" & teZoeken & "%'"
              Dim opdracht As New OleDb.OleDbCommand("SELECT * from tblmovies " & zoekTekst, verbinding)
              Dim objDataAdapter As New OleDb.OleDbDataAdapter(opdracht)
              Dim mijnDataSet As New DataSet
 
              DataGrid1.DataSource = mijnDataSet
              objDataAdapter.Fill(mijnDataSet, "films")
              mijnDataSet.DataSetName = "Gegevens films"
              DataGrid1.PreferredColumnWidth = 120
              DataGrid1.Expand(-1)
 
        Catch fout As Exception
              'MsgBox("Problemen bij vullen van tabel.", MsgBoxStyle.Critical, "Fout")
              MessageBox.Show(fout.Message)
        Finally
              verbinding.Close()
        End Try
    End Sub

Wat bedoel je met "wil niet lukken"?
Krijg je nu een foutboodschap of niet (de MessageBox.Show)?
Indien niet dan is het dus eigenlijk "gelukt".
Wat is de waarde van teZoeken?

Denk ook eerder in de richting van Don vdby, als je effektief geen foutboodschap op je scherm krijgt betekend dat dat je code correct is uitgevoerd.

Zoek je wel op een waarde die in je database bestaat ?

hieronder vind je een link waar mijn project staat. met de laatste aanpassing van het project

http://users.skynet.be/vdby/project.zip

Probeer dit eens

Dim zoekTekst As String = "Where Titel LIKE '%" & teZoeken & "%'"

Dim zoekTekst As String = "Where Titel LIKE '%" & teZoeken & "%'"

ja het werkt. hartelijk bedankt. dus als ik in die andere kolommen ook wil zoeken wat moet ik dan juist bij in die code zetten.

greetz

Omschrijving bestaat niet in je tabel:
Code:

Private Sub btnZoeken_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnZoeken.Click     Const zoekTekst As String = _       "SELECT * from tblmovies Where Titel LIKE '%{0}%'"     Dim verbindingsString As String = _       "Provider=Microsoft.jet.OLEDB.4.0;Data Source=movies.mdb;"     Dim verbinding As New OleDb.OleDbConnection(verbindingsString)     Dim teZoeken As String = txtZoeken.Text     Dim opdracht As New OleDb.OleDbCommand(_       String.Format(zoekTekst, teZoeken), verbinding)     Dim objDataAdapter As New OleDb.OleDbDataAdapter(opdracht)     Dim mijnDataSet As New DataSet("Gegevens Films")     Try         objDataAdapter.Fill(mijnDataSet, "films")     Catch fout As Exception         MessageBox.Show(fout.ToString)         Return     End Try     DataGrid1.DataMember = "films"     DataGrid1.DataSource = mijnDataSet     DataGrid1.PreferredColumnWidth = 120 End Sub

Noteer dat .Fill de connectie opent en sluit (ook bij een fout), dus Open en Close zijn niet echt nodig

Edit: zie dat het ondertussen al in orde is.

Dim zoekTekst As String = "Where Titel LIKE '%" & teZoeken & "%'"

ja het werkt. hartelijk bedankt. dus als ik in die andere kolommen ook wil zoeken wat moet ik dan juist bij in die code zetten.

greetz

[/QUOTE]

Dim zoekTekst As String = "Where Titel LIKE '%" & teZoeken & "%' AND Genre LIKE '%Actie%'"

enz..

Don Delegate zei: Omschrijving bestaat niet in je tabel: Code: Private Sub btnZoeken_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnZoeken.Click     Const zoekTekst As String = _       "SELECT * from tblmovies Where Titel LIKE '%{0}%'"     Dim verbindingsString As String = _       "Provider=Microsoft.jet.OLEDB.4.0;Data Source=movies.mdb;"     Dim verbinding As New OleDb.OleDbConnection(verbindingsString)     Dim teZoeken As String = txtZoeken.Text     Dim opdracht As New OleDb.OleDbCommand(_       String.Format(zoekTekst, teZoeken), verbinding)     Dim objDataAdapter As New OleDb.OleDbDataAdapter(opdracht)     Dim mijnDataSet As New DataSet("Gegevens Films")     Try         objDataAdapter.Fill(mijnDataSet, "films")     Catch fout As Exception         MessageBox.S how(fout.ToString)         Return     End Try     DataGrid1.DataSource = mijnDataSet     DataGrid1.DataMember = "films"     DataGrid1.PreferredColumnWidth = 120 End Sub Noteer dat .Fill de connectie opent en sluit (ook bij een fout), dus Open en Close zijn niet echt nodig Edit: zie dat het ondertussen al in orde is.

Datasource moet voor datamember komen.

Euh? Waarom dan wel?

wel, om te beginnen krijg ik de foutmelding "Cannot create a child list for field films"

Als ik er de msdn op nalees maakt men ook eerst de Dataset, daarna gaat men de Datasource opvullen en vervolgens via de property Datamember de gegevens naar de Datagrid doorspelen.

Volgens de msdn methode werkt het dan wel bij mij.

Die fout treedt alleen maar op als je al een andere DataSource gekoppeld hebt aan DataGrid.DataSource, waar de nieuwe DataMember niet gekend is (en dat is dus logisch).
Als je eerst de DataSource instelt heb je dat probleem inderdaad meestal niet (zie echter de bug verder).
De geprefereerde manier om het koppel DataSource/DataMember en zelfs alleen DataSource te wijzigen in run-time is dan ook gebruik te maken van DataGrid.SetDataBinding :
Code:

'Koppel wijzigen DataGrid1.SetDataBinding(mijnDataSource, mijnDataMember) 'DataSet wijzigen DataGrid1.SetDataBinding(mijnDataSource, Nothing)

Dit vermijdt ook die vervelende bug in de setter van de DataSource property die blijkbaar eerst gaat testen of de nieuwe toe te kennen DataSource dezelfde is als de oude, en niets doet als het dezelfde is, wat je dezelfde fout kan geven, of gewoon niet het gewenste resultaat geeft bij gebruik van ArrayList, Array of een andere IList implementor (er gebeurt gewoon niets, ook al is de IList gewijzigd). Om dat op te lossen moet je dan anders eerst volgende code gebruikenCode:

DataGrid1.DataSource = Nothing DataGrid1.DataSource = OudeDataSource

Het is duidelijk dat gebruik van SetDataBinding intuitiever is (en altijd werkt zoals verwacht).