Somebody please help me! I have a student project in VB and i am really confused

Question

0.00/5 (No votes)

See more:

I have two forms: form 1 have one textbox in which i want to enter student Id number with an Ok button. after entering student Id number in form 1 and click Ok, i want to get records from the database using OleDbdatareader about the only student loaded into the form 2 textboxes. How can i achieve this? please help! Sorry, Here is what i have under the Ok button click event:

Dim cnn As New OleDbConnection
cnn.ConnectionString = "my connection string..."
Dim cmd AsNew OleDbCommand
cmd.CommandText = "SELECT Id, Fname, Lname FROM student"
cmd.Connection = cnn
Dim sdr As OleDbDataReader
sdr = cmd.ExecuteReader

If sdr.HasRows Then

dr.Read()

Form 2.Load()

txt_Id.text = dr.Item("Id")
txt_Fname.text = dr.Item("Fname")
txt_Lname.text = dr.Item("Lname")

sdr.Close()

End If
cnn.Close()

Posted 27-May-13 21:48pm

dflo

Updated 27-May-13 22:13pm

v2

Add a Solution

Comments

Basmeh Awad 28-May-13 4:00am

so where did you stuck???
what efforts did you made???
show your code...

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)

OriginalGriff · Answer 1 · 2013-05-27T22:02:00

Solution 1

Try something like this:

VB

Using con As New SqlConnection(strConnect)
	con.Open()
	Using cmd As New SqlCommand("SELECT myColumn1, MyColumn2 FROM myTable WHERE ID=@ID", con)
                cmd.Parameters.AddWithValue("@ID", studentId)
		Using reader As SqlDataReader = cmd.ExecuteReader()
			While reader.Read()
				Dim col1 As Integer = CInt(reader("myColumn1"))
				Dim col2 As String = DirectCast(reader("myColumn2"), String)
				' and put the values on your form.
			End While
		End Using
	End Using
End Using

Posted 27-May-13 22:02pm

OriginalGriff

Comments

dflo 28-May-13 4:18am

Thanks, this is really cool but how can i call the second form?

Basmeh Awad 28-May-13 5:21am

try Solution2

OriginalGriff 28-May-13 5:23am

Dim f2 as New Form2
f2.MyProperty1 = value1
f2.MyProperty2 = value2
f2.ShowDialog

When you want to transfer data from a parent form to a child, set up public properties in the child and set the textboxes in the properties. That way the parent doesn't need to know how teh child works.

Basmeh Awad · Answer 2 · 2013-05-27T22:17:00

VB

Dim connetionString As String
        Dim cnn As SqlConnection
        Dim cmd As SqlCommand
        Dim sql As String
        Dim reader As SqlDataReader

        connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
        sql = "Select *  from myTable WHERE ID=" & Textbox1.Text & ""
        cnn = New SqlConnection(connetionString)
        Try
            cnn.Open()
            cmd = New SqlCommand(sql, cnn)
            reader = cmd.ExecuteReader()
          if reader.hasrows() then
           While reader.Read()
               dim frm2 as Form2
               frm2.Textbox1.Text=reader(0)
               frm2.Textbox2.Text=reader(1) ' And so on
               frm2.ShowDialog() 'or you can just use .Show()
            End While
         End If
            reader.Close()
            cmd.Dispose()
            cnn.Close()
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try