check if the phone number exist in ms table

Question

1.00/5 (1 vote)

See more:

how i can know if the phone number exist in ms database or not ?

I'm using this code but i have error , i think i need to get all phone number as array and search in array if the number exist or not .

Dim number As String
    con.Open()
    Dim sql As String = "select cphone from cust "
    Dim cmd As New OleDbCommand(sql, con)
    Dim dr As OleDbDataReader
    dr = cmd.ExecuteReader
    While dr.Read
        number = dr(5)
    End While
    con.Close()

    If TextBox5.Text = number Then
        MsgBox("exist")
    Else
        MsgBox("NOT-exist")
    End If

Posted 13-May-15 11:06am

Rabeea Qabaha

Updated 13-May-15 11:16am

Sergey Alexandrovich Kryukov

v2

Add a Solution

Comments

Rabeea Qabaha 13-May-15 17:43pm

what ?

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

virusstorm · Accepted Answer · 2015-05-14T08:02:00

What is your error? I can tell you now that unless the phone number you are looking for is the last entry in the table, you will never find it. You should be doing something like this:

VB

Dim number As String
Dim found As Boolean
con.Open()
Dim sql As String = "select cphone from cust "
Dim cmd As New OleDbCommand(sql, con)
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader

found = false

While dr.Read
    number = dr(5)
    
    If TextBox5.Text = number Then
        found = True
        Exit While
    End If
End While
con.Close()

If found Then
    MsgBox("exist")
Else
    MsgBox("NOT-exist")
End If

Richard Deeming · Accepted Answer · 2015-05-14T08:47:00

Let the database do the work for you:

VB.NET

Using con As New OleDbConnection("YOUR CONNECTION STRING HERE")
    Using cmd As New OleDbCommand("SELECT TOP 1 cphone FROM cust WHERE cphone = ?", con)
        
        ' OleDb doesn't use named parameters, so only the order matters here:
        cmd.Parameters.AddWithValue("p0", TextBox5.Text)
        
        con.Open()
        Dim result As Object = cmd.ExecuteScalar()

        If result IsNot Nothing Then
            MsgBox("exist")
        Else
            MsgBox("NOT-exist")
        End If
    End Using
End Using

check if the phone number exist in ms table

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0