✔ SQL - Keine Datensätze

[Va7e]

Hey!

Ich möchte es bei meinem Programm so haben, dass ich eine Meldung bekomme, falls es diesen Datensatz nicht gibt. Kann mir vielleicht jemand helfen?

Das muss zwischen Do While und Loop passieren denke ich. Hab im Moment nur eine MsgBox, die mir einen Datensatz anzeigt.

Hat jemand eine Idee?

Hier der Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New SqlServerCe.SqlCeConnection
        Dim cmd As New SqlServerCe.SqlCeCommand
        Dim reader As SqlServerCe.SqlCeDataReader
        Dim dbPfad As String = "Data Source=C:\db.sdf"

        Try
            con.ConnectionString = dbPfad
            cmd.Connection = con
            'cmd.CommandText = "select * from Personen"
            cmd.CommandText = _
            "select * from Personen where NAME like '" _
            & txtAnmeldename.Text & "'"
            con.Open()

            reader = cmd.ExecuteReader()

            Do While reader.Read()

                MsgBox(reader("Nickname"))

            Loop
            reader.Close()
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

MfG

Va7e

 

[Nico Graichen]

Hi

Mit dem Property HasRows kannst du abfragen, ob im DataReader ein Ergebnis vorhanden ist.
Und bitte pack Quellcode in die entsprechenden Code-Tags! Danke!

 

[Va7e]

Sorry, hatte es vergessen.

Danke für Deine Antwort, ich werde es gleich ausprobieren ;-]

 

[Va7e]

Ne, macht der nicht:

"Aufrufe der HasRows-Eigenschaft werden von SQL Server Compact Edition nicht unterstützt, wenn der zugrunde liegende Cursor nicht scrollfähig ist."

Sonst noch jemand eine Idee?

 

[Va7e]

Habs jetzt anders gelöst. Einfach ein Label eingefügt (lblCheck.Text = "", Visible = False)

Danach kommt die SQL-Abfrage und wenn der was findet, dann speichert er den Eintrag im lblCheck.Text. Falls er nichts findet, bleibt lblCheck.Text dann leer

Und dann nur noch mit der If-Methode überprüfen, ob lbl.Check.Text leer ist. Wenn ja, dann gibts diesen Eintrag nicht.

Hoffe, ihr versteht, wie ich das meine

Va7e