Hallo erstmal,
ich habe folgendes problem, mein such funktion funktioniert einwandfrei. User gibt im textbox sein suchbegriff und die wird in eine gridview angezeigt . Jetzt will ich folgendes machen. wenn diese such begriff nicht gefunden wird soll ein fehler meldung erscheinen in ein label!! Wie mache ich das!? danke!!
p.s bitte mit code!!
ich habe folgendes problem, mein such funktion funktioniert einwandfrei. User gibt im textbox sein suchbegriff und die wird in eine gridview angezeigt . Jetzt will ich folgendes machen. wenn diese such begriff nicht gefunden wird soll ein fehler meldung erscheinen in ein label!! Wie mache ich das!? danke!!
p.s bitte mit code!!
Code:
Protected Sub Such_Funktion() If Me.DropDownList1.SelectedValue = "0" And Me.TextBox1.Text = "" Then Me.Label3.Text = "Suchkriterien auswählen und Suchbegriff eingeben!" ElseIf Me.DropDownList1.SelectedValue = "1" Then Dim ONBKz As String = Me.TextBox1.Text Dim strSQL As String = "Select ONBKz, ON_Name, Starttermin FROM DSL_Sofortmassnahme_Check WHERE ONBKz= @ONBKz" Dim objconn As New SqlConnection(strConnString) Dim myCommand As SqlCommand = New SqlCommand(strSQL, objconn) Dim mySQLda As New SqlDataAdapter mySQLda.SelectCommand = myCommand Dim parameterONBKz As SqlParameter = New SqlParameter("@ONBKz", SqlDbType.VarChar, 150) parameterONBKz.Value = ONBKz myCommand.Parameters.Add(parameterONBKz) Dim ds As New DataSet mySQLda.Fill(ds) Me.GridView1.DataSource = ds Me.GridView1.DataBind() Me.TextBox1.Text = "" Me.Label3.Text = "" 'ElseIf Me.DropDownList1.SelectedValue = "2" Then ' Dim ON_Name As String = Me.TextBox1.Text ' Dim strSQL As String = "Select ONBKz, ON_Name, Starttermin FROM DSL_Sofortmassnahme_Check WHERE ON_Name= @ON_Name" ' Dim objconn As New SqlConnection(strConnString) ' Dim myCommand As SqlCommand = New SqlCommand(strSQL, objconn) ' Dim mySQLda As New SqlDataAdapter ' mySQLda.SelectCommand = myCommand ' Dim parameterON_Name As SqlParameter = New SqlParameter("@ON_Name", SqlDbType.VarChar, 150) ' parameterON_Name.Value = ON_Name ' myCommand.Parameters.Add(parameterON_Name) ' Dim ds2 As New DataSet ' mySQLda.Fill(ds2) ' Me.GridView1.DataSource = ds2 ' Me.GridView1.DataBind() ' Me.TextBox1.Text = "" ' Me.Label3.Text = "" end if
Comment