Announcement

Collapse
No announcement yet.

Such funktion

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Such funktion

    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!!
    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

  • #2
    Hm, ist jetzt das Problem, herauszufinden, ob keine Reihen gefunden wurden?

    Comment


    • #3
      ja genau das ist meine problem, wenn keine reihe gefunden wird soll ganz einfach ein text erscheinen(zb in ein label)"datnsatz wurde nicht gefunden!"

      Comment


      • #4
        Hm, probiers mal damit, die Tabelle innerhalb des Datasets zu benennen und dann über die Anzahl deren Reihen herauszufinden, ob was gefunden wurde.

        Code:
                    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, "Beispiel") 'Ein Name als Beispiel
                    Me.GridView1.DataSource = ds
                    Me.GridView1.DataBind()
                    Me.TextBox1.Text = ""
                    If ds.Tables("Beispiel").Rows.Count = 0 Then
                                Me.Label3.Text = "Fehlermeldung"
                    End If

        Comment


        • #5
          nein leider nicht!

          Comment


          • #6
            Hm, macht er's einfach nicht oder schmeißt er was? Bzw. versuch mal über'n Debugger herauszufinden, was in Count drinsteht, wenn garantiert keine Reihen existieren.

            Comment


            • #7
              ich glaube ich kann das gleiche machen mit dataview oder so? oder?? wenn ja hast du vieleicht ein bsp!?

              Comment


              • #8
                Problem habe ich gelöscht! danke für die hilfe!

                Comment

                Working...
                X