Quantcast
Channel: VBForums - Visual Basic .NET
Viewing all articles
Browse latest Browse all 27469

VS 2010 Show value between 2 textboxes

$
0
0
Hello,

I have a column called "VrijNummeriekVeld01" being datatyp "real" in a table in a sql server express 2008 R2 database.
An example value in this column = 10,2

I also have a form containing 2 textboxes ("txtVrijNummer01Van" and "txtVrijNummer01Tot").

When I fill in the value 10,2 in the textbox txtVrijNummer01Van and execute the code I get 1 result (this is good).
When I fill in the values:
txtVrijNummer01Van = 10
txtVrijNummer01Tot = 11

I get no results.

What am I doing wrong?

Code:

Dim strZoekVrijNummer01 As String '13
    If Me.txtVrijNummer01Tot.TextLength = 0 Then
      If Me.txtVrijNummer01Van.TextLength = 0 Then 'beide leeg
        strZoekVrijNummer01 = ""
      Else 'Alleen van gevuld
        strZoekVrijNummer01 = String.Format("AND (M.VrijNummeriekVeld01 = @VrijNummeriekVeld01Van)")
      End If
    Else
      strZoekVrijNummer01 = String.Format("AND (M.VrijNummeriekVeld01 BETWEEN @VrijNummeriekVeld01Van AND @VrijNummeriekVeld01Tot)")
    End If


If Me.txtVrijNummer01Van.TextLength <= 0 Then
            .Add("@VrijNummeriekVeld01Van", SqlDbType.Real).Value = DBNull.Value
          Else
            .Add("@VrijNummeriekVeld01Van", SqlDbType.Real).Value = Me.txtVrijNummer01Van.Text
          End If

          If Me.txtVrijNummer02Tot.TextLength <= 0 Then
            .Add("@VrijNummeriekVeld01Tot", SqlDbType.Real).Value = DBNull.Value
          Else
              .Add("@VrijNummeriekVeld01Tot", SqlDbType.Real).Value = Me.txtVrijNummer01Tot.Text
          End If

Thanks in advance!!!

Viewing all articles
Browse latest Browse all 27469

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>