1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
'prepare the connection properties' Dim con As SqlConnection Dim cmd As SqlCommand Dim strg As String Dim dr1 As SqlDataReader 'prepare your connection string' con = New SqlConnection(“Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\ED-CARLOS\Documents\Visual Studio 2010\Projects\save\save\Info.mdf;Integrated Security=True;User Instance=True”) con.Open() strg = “insert into Details values (@Name,@IndexNumber,@Level,@ID,@Default) “ cmd = New SqlCommand (strg, con) cmd.Parameters.AddWithValue("@Name”, TextBox1.Text) cmd.Parameters.AddWithValue(“@IndexNumber”, TextBox2.Text) cmd.Parameters.AddWithValue(“@Level”, TextBox3.Text) cmd.Parameters.AddWithValue(“@ID”, TextBox4.Text) cmd.Parameters.AddWithValue(“@Default”, “Yes”) cmd.ExecuteNonQuery() MsgBox("saved") con.Close() |

Leave a comment