Im using this code, i want to know is it the best way to insert data into a db and do i miss something so its running better !?
Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim strSQL As String = ""
strSQL = "" & _
"INSERT INTO news_users " & _
"(newsuser_name, newsuser_mail, newsuser_gen, newsuser_dob, newsuser_status, newsuser_add, newsuser_city, newsuser_zip) " & _
"VALUES (?,?,?,?,?,?,?,?)"
Using connection As OleDbConnection = New OleDbConnection(ConfigurationManager.ConnectionStrings("MasterConnStr").ConnectionString)
Using insertcmd As OleDbCommand = New OleDbCommand(strSQL, connection)
insertcmd.CommandType = CommandType.Text
insertcmd.Parameters.AddWithValue("newsuser_name", addedmailnametext.Text)
insertcmd.Parameters.AddWithValue("newsuser_mail", addedemailtext.Text)
insertcmd.Parameters.AddWithValue("newsuser_gen", gen.Text)
insertcmd.Parameters.AddWithValue("newsuser_dob", dobd.Text - dobm.Text - doby.Text)
insertcmd.Parameters.AddWithValue("newsuser_status", 0)
insertcmd.Parameters.AddWithValue("newsuser_add", Now.ToShortDateString)
insertcmd.Parameters.AddWithValue("newsuser_city", addedmailcitytext.Text)
insertcmd.Parameters.AddWithValue("newsuser_zip", addedmailzip.Text)
insertcmd.Connection.Open()
insertcmd.ExecuteNonQuery()
End Using
End Using
End Sub
siraero
Member
419 Points
604 Posts
Is this the best way to use Intert Into.
Apr 29, 2012 06:43 PM|LINK
Hi.
Im using this code, i want to know is it the best way to insert data into a db and do i miss something so its running better !?
Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim strSQL As String = "" strSQL = "" & _ "INSERT INTO news_users " & _ "(newsuser_name, newsuser_mail, newsuser_gen, newsuser_dob, newsuser_status, newsuser_add, newsuser_city, newsuser_zip) " & _ "VALUES (?,?,?,?,?,?,?,?)" Using connection As OleDbConnection = New OleDbConnection(ConfigurationManager.ConnectionStrings("MasterConnStr").ConnectionString) Using insertcmd As OleDbCommand = New OleDbCommand(strSQL, connection) insertcmd.CommandType = CommandType.Text insertcmd.Parameters.AddWithValue("newsuser_name", addedmailnametext.Text) insertcmd.Parameters.AddWithValue("newsuser_mail", addedemailtext.Text) insertcmd.Parameters.AddWithValue("newsuser_gen", gen.Text) insertcmd.Parameters.AddWithValue("newsuser_dob", dobd.Text - dobm.Text - doby.Text) insertcmd.Parameters.AddWithValue("newsuser_status", 0) insertcmd.Parameters.AddWithValue("newsuser_add", Now.ToShortDateString) insertcmd.Parameters.AddWithValue("newsuser_city", addedmailcitytext.Text) insertcmd.Parameters.AddWithValue("newsuser_zip", addedmailzip.Text) insertcmd.Connection.Open() insertcmd.ExecuteNonQuery() End Using End Using End Sub