Springen naar inhoud


- - - - -

Zoeken Met Meerdere Droplistbox


  • Log in a.u.b. om te beantwoorden
Er zijn 3 reacties in dit onderwerp

#1 sevenoftwo

sevenoftwo

    Starting Developer

  • Leden
  • 9 berichten
    Laatst bezocht 13 dec 2013 22:46

Geplaatst op 15 september 2013 - 08:53

Beste lezers,

Ik wil op verschillende items zoeken in de database door middel van twee of meerdere listbox's.
Als ik het op de volgende manier doe wordt er maar alle twee de voorwaarde gekeken maar in de gridview wordt er naar de eerste listbox gekeken.
Ik doe iets fout maar weet niet wat

Code:
Dim sqlStatement1 As String = "Select * from tblOogst WHERE Cel ='" & lstCellen.SelectedItem.Text & "'" & "Select * from tblOogst WHERE Medewerker ='" & lstPersoneel.SelectedItem.Text & "'"

Veranderd door sevenoftwo, 15 september 2013 - 09:06.
AUB codes tussen tags plaatsen.


#2 guest_chrissie1_*

guest_chrissie1_*
  • Gasten
    Laatst bezocht

Geplaatst op 15 september 2013 - 09:31

Dit is wat je waarschijnlijk wil

Code:
Dim sqlStatement1 As String = "Select * from tblOogst WHERE Cel ='" & lstCellen.SelectedItem.Text and Medewerker ='" & lstPersoneel.SelectedItem.Text & "'"

Maar ik wil je ook waarschuwen dat het conateneren van strings bijzonder gevaarlijk is voor het gebruik met een database.

Het is beter om parameters te gebruiken. Parameters vidnt je op je command opject.

Als je ons iets meer code geeft kunnen we je wel tonen hoe dat werkt.

#3 sevenoftwo

sevenoftwo

    Starting Developer

  • Leden
  • 9 berichten
    Laatst bezocht 13 dec 2013 22:46

Geplaatst op 15 september 2013 - 11:17

Ik ga dit uit proberen.

Hier is een stuk van mijn code:

ps Hoe plaats ik mijn code hier tussen tags?
Code:
#Region "Get Connection String"
	Private Function GetConnectionString1() As String
		Return System.Configuration.ConfigurationManager.ConnectionStrings("db_OogstRegistratieConnectionString").ConnectionString
	End Function
#End Region

#Region "Bind GridView"
	Private Sub BindGridView1()
		Dim dt1 As New DataTable()
		Dim connection1 As New SqlConnection(GetConnectionString1())
		Try
			connection1.Open()
			Dim sqlStatement1 As String = "Select * from tblOogst WHERE Cel ='" & lstCellen.SelectedItem.Text & "'" & "Select * from tblOogst WHERE Medewerker ='" & lstPersoneel.SelectedItem.Text & "'"
			'Dim sqlStatement1 As String = "Select * from tblOogst WHERE Medewerker ='" & lstPersoneel.SelectedItem.Text & "'"
			Dim cmd1 As New SqlCommand(sqlStatement1, connection1)
			Dim sqlDa1 As New SqlDataAdapter(cmd1)
			sqlDa1.Fill(dt1)
			If dt1.Rows.Count > 0 Then
				GridView4.DataSource = dt1
				GridView4.DataBind()
			End If
		  Catch Err As Exception
			lblResults.Text = "Error reading list of names. "
			lblResults.Text &= Err.Message
		Finally
			connection1.Close()
		End Try
	End Sub
#End Region



#4 sevenoftwo

sevenoftwo

    Starting Developer

  • Leden
  • 9 berichten
    Laatst bezocht 13 dec 2013 22:46

Geplaatst op 16 september 2013 - 20:29

Beste Chrissie1,

Kun je mijn op weg helpen hoe je het met parameters zo moeten doen?

Het wil mijn nog niet lukken de oplossing van je geeft een fout melding op  " and medewerkers ".




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)