please help to solve this cod

[kingofnothing]

hi everybody i dont now whats wrong whith this code below when i run it debug show an error with con.open()

Dim con As New System.Data.SqlClient.SqlConnection
        con.ConnectionString = "Server=iraq\\sqlexpress ; Database=stats ; Trusted_Connection=True ;"
        Dim com As New System.Data.SqlClient.SqlCommand
        com.CommandText = "insert into users values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
        com.Connection = con
        con.Open()
        com.ExecuteNonQuery()
        con.Close ()

i well happy if there any another method :)

[kingofnothing]

There are new events happen when i adjust the connection string to

con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\WebSites\WebSite2\App_Data\stats.mdf;Integrated Security=True;User Instance=True"

show me error with com.ExecuteNonQuery()

any suggestion ?

[kingofnothing]

thank you guys i solved the problem

i thought it will work if i sort textboxes Parallel with clumins as they told me
but i must provide more to the inserting code
just like

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim con As New System.Data.SqlClient.SqlConnection
        con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\WebSites\WebSite2\App_Data\stats.mdf;Integrated Security=True;User Instance=True"
        Dim com As New System.Data.SqlClient.SqlCommand
        com.CommandText = "insert into users(fname) values('" & TextBox1.Text & "')"
        com.Connection = con
        con.Open()
        com.ExecuteNonQuery()
        con.Close ()

    End Sub

[Teme64]

show me error with com.ExecuteNonQuery()

Could you please post the exact error message that you get. It would help a lot.

I also suggest using Try...Catch...Finally blocks when you deal with databases:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim con As New System.Data.SqlClient.SqlConnection
      con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\WebSites\WebSite2\App_Data\stats.mdf;Integrated Security=True;User Instance=True"
      Dim com As New System.Data.SqlClient.SqlCommand
        com.CommandText = "insert into users(fname) values('" & TextBox1.Text & "')"
        Try
            com.Connection = con
            con.Open()
            com.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Database Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            If con.State = ConnectionState.Open Then
                con.Close()
            End If
        End Try
End Sub

besides, now the messagebox shows the error message.

HTH

[kingofnothing]

omg the last code dose not work again

thank you Teme64 but it seem there is a big mistake with my last good

when i run it and fill the text box it works fine but when i check the table data
nothing happen:confused:

[pritesh2010]

see this Link this will help you for inserting data in table

[Holy Sage]

hi everybody i dont now whats wrong whith this code below when i run it debug show an error with con__ __ .open()

Dim con As New System.Data.SqlClient.SqlConnection
        con.ConnectionString = "Server=iraq___ ___ //sqlexpress ; Database=stats ; Trusted_Connection=True ;"
        Dim com As New System.Data.SqlClient.SqlCommand
        com.CommandText = "insert into users values('" & TextBox1_ _ ___ ___ /Text & "','" & TextBox2.Text & "','" & TextBox3_ ___ ___ /Text & "')"
        com.Connection = con
        con.Open()
        com.ExecuteNonQuery()
        con.____ ____ __ __ ()

[/QUOTE__ __ ____ ____ holy___ ___sage__ __6996__ __

[hirenpatel53]

com.Connection = con

remove this line an then executes

[Oxiegen]

You are probably getting an error because you are missing the field names in the INSERT query.
Try this:

Dim con As New SqlClient.SqlConnection("Server=iraq\SQLEXPRESS; Database=stats; Trusted_Connection=True;")
Dim com As New SqlClient.SqlCommand("insert into users (field1,field2,field3) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')", con)

Try
   con.Open()
   com.ExecuteNonQuery()
   con.Close ()
Catch ex As Exception
   ' This will give you the exact error of what's going wrong
   MessageBox.Show(ex.ToString())
End Try

[kingofnothing]

THANK YOU EVERYBODY ALL REPLAYS ABOVE WORKS CORRECTLY

BUT THERE IS SOME THING ELSE

WHY THIS SYNTAX DOSE NOT WORK

con.State = ConnectionState.Open

IM USING VISUAL STUDIO 2005
AND MESSEGBOX HAVE TO REPLACE WITH MSGBOX

WHAT VERSION DO YOU HAVE

thanks

[Oxiegen]

con.State gives you the state of the connection.
You can't SET the state that way, you can only read the state.

If con.State = ConnectionState.Open Then
   con.Close()
End If

I'm using VS 2008.
And there is absolutely no reason to replace MessageBox with MsgBox.
MsgBox is the VB6 way, MessageBox is the VB.NET way.

Oh, and stop yelling.
We are civilized people here, aren't we?