Connection String (Object)

ssimkhan · May 31st, 2007, 05:41 AM

I am new to Vb.net and I'me trying to store data to the sql databse using text fields. Everything seems ok but i've tried several connection strings but they wont work.Could somebody give a hand, please?

Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim conn As New SqlClient.SqlConnection()
Dim cmd As New SqlClient.SqlCommand()
conn.ConnectionString = "Data Source=(local);Initial Catalog=myDatabase;Integrated Security=SSPI"
conn.Open()
cmd.Connection = conn
With cmd.Parameters
.Add(New SqlClient.SqlParameter("@Student_id", TextBox1.Text))
.Add(New SqlClient.SqlParameter("@FirstName", TextBox1.Text))
.Add(New SqlClient.SqlParameter("@LastName", TextBox2.Text))
.Add(New SqlClient.SqlParameter("@Email", TextBox3.Text))
.Add(New SqlClient.SqlParameter("@Module", TextBox1.Text))
End With

cmd.CommandText = "INSERT INTO <Students> (<field1>,<field2>,<field3>,<field4>,<field5>) VALUES (@Student_id, @FirstName, @LastName, @Email, @Module)"
Progress.Show()
End Sub

BrianWren · June 1st, 2007, 10:41 AM

Having filled up your command, you need to execute it.

Note that in this forum, if you click the [[u]#</u>] button, that will add two âcode tagsâ to your post. Everything between the tags will be fixed pitch, and there will be a blank line before and after the code section. All spaces are preserved when you do that. So:

Code:

Private Sub btnSubmit_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs _
                           ) Handles btnSubmit.Click

    Dim conn As New SqlClient.SqlConnection()
    Dim cmd As New SqlClient.SqlCommand()
    conn.ConnectionString = "Data Source=(local);" & _
                            "Initial Catalog=myDatabase;" & _
                            "Integrated Security=SSPI"
    conn.Open()
    cmd.Connection = conn

    With cmd.Parameters
        .Add(New SqlClient.SqlParameter("@Student_id", TextBox1.Text))
        .Add(New SqlClient.SqlParameter("@FirstName", TextBox1.Text))
        .Add(New SqlClient.SqlParameter("@LastName", TextBox2.Text))
        .Add(New SqlClient.SqlParameter("@Email", TextBox3.Text))
        .Add(New SqlClient.SqlParameter("@Module", TextBox1.Text))
    End With

    cmd.CommandText = _
        "INSERT INTO <Students> ( <field1>, <field2>, <field3>, <field4>, <field5> ) " & _
        "VALUES                 ( @Student_id, @FirstName, @LastName, @Email, @Module )"

    cmd.Execute     ' I believe this is the right method; look into that.

    Progress.Show()

End Sub