这三种添加记录的方法哪种效率最高，哪种最常用？
方法1还存在问题，求帮助解决！
方法1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Make the connect string.
Dim connect_string As String ="Data Source=172.30.76.249;Initial Catalog=ldg;User ID=wink;Pwd=wcp6810662"
' Open a database connection.
Dim conn_people As New SqlClient.SqlConnection(connect_string)
conn_people.Open()
Dim cmd As New SqlClient.SqlCommand( _
"INSERT INTO wink (id,name,sex,age,address,birth) " & _
"VALUES (?,?,?,?,?,?)", _
conn_people)
' Create parameters for the command.
cmd.Parameters.Add(New SqlClient.SqlParameter("id", TextBox1.Text))
cmd.Parameters.Add(New SqlClient.SqlParameter("name", TextBox2.Text))
cmd.Parameters.Add(New SqlClient.SqlParameter("sex", TextBox3.Text))
cmd.Parameters.Add(New SqlClient.SqlParameter("age", TextBox4.Text))
cmd.Parameters.Add(New SqlClient.SqlParameter("address", TextBox5.Text))
cmd.Parameters.Add(New SqlClient.SqlParameter("birth", DateTimePicker1.Value))
' Execute the command.
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
方法2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim str As String
str = "Data Source=172.30.76.249;Initial Catalog=ldg;User ID=wink;Pwd=wcp6810662"
Dim con As New SqlClient.SqlConnection(str)
con.Open()
Dim sql As String = "insert into wink (id,name,sex,age,address,birth) values('" & TextBox1.Text.ToString().Trim() & "','" & TextBox2.Text.ToString().Trim() & " ','" & TextBox3.Text.ToString().Trim() & " ','" & TextBox4.Text.ToString().Trim() & " ','" & TextBox5.Text.ToString().Trim() & " ','" & DateTimePicker1.Value & "') "
Dim cmd As New SqlClient.SqlCommand(sql, con)
Try
cmd.ExecuteNonQuery() '执行插入动作
Catch sqlExceptionErr As SqlClient.SqlException
MessageBox.Show(sqlExceptionErr.Message)
Finally
con.Close()
End Try
MsgBox("添加成功")
End Sub
方法3
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim insert As String
insert = "insert into wink (id,name,sex,age,address,birth)"
insert = insert & "values (@id,@name,@sex,@age,@address,@birth)"
Dim connection As SqlClient.SqlConnection
Dim Conn As String = "Data Source=172.30.76.249;Initial Catalog=ldg;User ID=wink;Pwd=wcp6810662"
connection = New SqlClient.SqlConnection
connection.ConnectionString = Conn
connection.Open()
Dim cmd As New SqlClient.SqlCommand(insert, connection)
cmd.Parameters.Add("@id", SqlDbType.Int).Value = Trim(TextBox1.Text)

cmd.Parameters.Add("@name", SqlDbType.VarChar).Value = Trim(TextBox2.Text)
cmd.Parameters.Add("@sex", SqlDbType.VarChar).Value = Trim(TextBox3.Text)
cmd.Parameters.Add("@age", SqlDbType.Int).Value = Trim(TextBox4.Text)
cmd.Parameters.Add("@address", SqlDbType.VarChar).Value = Trim(TextBox5.Text)
cmd.Parameters.Add("@birth", SqlDbType.DateTime).Value = DateValue(Me.DateTimePicker1.Text)
cmd.ExecuteNonQuery()
MsgBox("添加成功!", MsgBoxStyle.Information, "提示")
connection.Close()
End Sub
End Class

第二种吧。。。最基本的

这个还没试过~~~~~~~~·