Solved

How to check if the records are exist in table and store it on another table?

Posted on 2009-07-14
5
233 Views
Last Modified: 2012-05-07
I have already a form in VB.net with textbox1.text and buttons from 0 to 9 (as calculator). I would like to have my textbox1.text asking a question three times inside the text itself Enter STD ID , Enter SS ID Enter car #  and check the entering in the database if it is exits or not !
1- If it is exist;
Save him in the table called sign and give him a seat from (1 to 5) if the seat is available and if not let him wait?
con.Open()
 

        MsgBox("A Connection to the Database is now open")
 

        Dim ds As New DataSet

        Dim da As OleDb.OleDbDataAdapter

        Dim sql As String
 

        sql = "SELECT * FROM table"

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "northwind")
 

.

.

.

.

.
 
 

con.Close()

Open in new window

calc.jpg
0
Comment
Question by:aiman_alnasir
  • 3
  • 2
5 Comments
 
LVL 83

Accepted Solution

by:
CodeCruiser earned 250 total points
ID: 24848227
I dont understand your question fully but here is an example of how to check if a record already exists in database.


Dim dbcon as new OleDBConnection(connectionstring)

dbcon.open

Dim dbcmd as new OleDBCommand

dbcmd.connection = dbcon

dbcmd.commandtext = "Select Count([Name]) From [Employee] Where [Name]='" & txtName.Text & "'"

Dim Count as Integer = dbcmd.ExecuteScaler()

If Count > 0 Then

   Messagebox.show("This Employee already exists")

End If

dbcmd.dispose

dbcon.dispose

Open in new window

0
 

Author Comment

by:aiman_alnasir
ID: 24848459
This is a good step to start;
Could you please see my code below and fix any errors;
.
.
.
Dim Show1, Show2, Show3 As String
        Show1 = InputBox("Enter STD ID Number: ")
        a = Show1
        Show2 = InputBox("Enter SS ID Number: ")
        b = Show2
        Show3 = InputBox("Enter car Number: ")
        c = Show3

        dbcmd.Connection = con
        dbcmd.CommandText = "Select Count(*) From table Where STD ='" & a & "' and SS = '" & b & "' and car = '" & c & "'"
        ' please note the error message (ExecuteScaler is not a member of System.Data.OleDb.OleDbCommand)    
        Dim Count As Integer = dbcmd.ExecuteScaler()
        If Count > 0 Then
            MessageBox.Show("This Employee already exists")
        End If
        dbcmd.Dispose()
0
 
LVL 83

Assisted Solution

by:CodeCruiser
CodeCruiser earned 250 total points
ID: 24848657
My typo
Its
dbcmd.ExecuteScalar()
0
 

Author Comment

by:aiman_alnasir
ID: 24856745
Thanks dude,
Now, do you know some code to reserve a space or a seat or a time per day on VB.net? So, whenever the students are available on the database it will allow him to reserve a specific time or seat. For example, if we have 5 seats, 5 students are allow to pick one seat for each and any other students who came after will keep him in the waiting list.
0
 
LVL 83

Assisted Solution

by:CodeCruiser
CodeCruiser earned 250 total points
ID: 24857577
There is no quick code for that functionality. This is what your application will be doing and you need to implement it based on the requirements.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction As chip makers focus on adding processor cores over increasing clock speed, developers need to utilize the features of modern CPUs.  One of the ways we can do this is by implementing parallel algorithms in our software.   One recent…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

864 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now