发布时间 : 星期六 文章VBNET2008六种添加记录方法学习笔记（图例、源码、说明）更新完毕开始阅读3343554c804d2b160b4ec07a
由于时间关系此处用到的数据库是Oracle数据库，但与
SQLServer基本相似。是一种比较偏向于企业级的添加记录的方法。该方法减少了本地处理时间，但是增加了数据库的负担。并且可以通过存储过程的编程更加灵活地添加记录。
按钮代码如下：
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim objCmd As New OracleClient.OracleCommand()
objCmd.Connection = New OracleClient.OracleConnection(strConn) objCmd.CommandText = \
objCmd.CommandType = CommandType.StoredProcedure
objCmd.Parameters.Add(\, OracleClient.OracleType.VarChar).Value = TextBox1.Text objCmd.Parameters.Add(\, OracleClient.OracleType.VarChar).Value = TextBox2.Text objCmd.Parameters.Add(\, OracleClient.OracleType.VarChar).Value = TextBox3.Text objCmd.Parameters.Add(\, OracleClient.OracleType.VarChar).Value = TextBox4.Text objCmd.Parameters.Add(\, OracleClient.OracleType.DateTime).Value = DateTimePicker1.Value.Date
'cmd.Parameters.Add(\ Dim objDA As New OracleClient.OracleDataAdapter(objCmd) Dim objDs As New DataSet() objDA.Fill(objDs, \) Call GridView() End Sub
存储过程代码如下：
create or replace procedure addTest( Pro_A TEST.A%type, Pro_B TEST.B%type, Pro_C TEST.C%type, Pro_D TEST.D%type, Pro_S TEST.S%type) as begin
insert into TEST (A,B,C,D,S)
values(Pro_A,Pro_B,Pro_C,Pro_D,Pro_S); -------------------------------4个参数 commit;
end;
6、参数化及占位符方式增加数据库记录方法：
该方法与JAVA中使用SQL添加记录的方法较为相似，是方法3的一种变化，是较新的方法。该方法使用“？”进行站位，并且按照数据库中字段的顺序进行赋值。使用时要注意“？”的个数应与字段个数一致，否则将出现错误。
按钮1代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objConn As New SqlClient.SqlConnection Dim objComm As New SqlClient.SqlCommand
objConn.ConnectionString = \ID=wink;Pwd=wcp6810662\
objComm.Connection = objConn
objComm.CommandText = \ objComm.Parameters.AddWithValue(\, TextBox1.Text)
objComm.Parameters.AddWithValue(\, TextBox2.Text) objComm.Parameters.AddWithValue(\, TextBox3.Text) objComm.Parameters.AddWithValue(\, TextBox4.Text) objComm.Parameters.AddWithValue(\, TextBox5.Text)
objComm.Parameters.AddWithValue(\, DateTimePicker1.Value) objConn.Open() Try
objComm.ExecuteNonQuery()
Catch sqlExceptionErr As SqlClient.SqlException MessageBox.Show(sqlExceptionErr.Message) Finally
objConn.Close() End Try
Call Form2_Load(sender, e)
MsgBox(\添加成功!\, MsgBoxStyle.Information, \提示\)
End Sub
三、VB.NET2008数据库操作简要总结
上述六种方法基本结构较为相似，大部分代码都相同，只是
CommandText属性里的内容不同。读者也可以将CommandText属性的内容由添加记录扩展到删除记录、修改记录。 MsgBox提示“添加成功”的代码放置位置不是最佳，读者可以自己思考放在哪里更为合适。
作者首选推荐的是方法3，参数化方式增加数据库记录方法
（VB.NET2008及以后）；其次推荐方法5，使用存储过程添加记录的方法；再次推荐方法4，以行提交的方式插入数据库记录方法。不推荐使用方法1，虽然理解上很简单，但是隐患很多。对于方法6笔者未做太深入的研究，可能会在VB.NET未来的编程中使用到。
不过要想进行大型数据库编程还是要使用企业级的数据库编程方法，使用上述方法在企业级应用时效率较差。