.net连接oracle 预编译写法

Dim slqinsert As String slqinsert = "insert into BBS_COMMU(title,info,accessory,emp_no,emp_name,dpt_no,cre_time,action_id) values(:headline,:content,:attach,:empid,:empname,:dptid,:cretime,:actionno)" Dim parameter(8) As OracleParameter

parameter(0) = New OracleParameter(":headline", OracleType.NVarChar, 30)

parameter(1) = New OracleParameter(":content", OracleType.Clob)

parameter(2) = New OracleParameter(":attach", OracleType.VarChar, 300)
parameter(3) = New OracleParameter(":empid", OracleType.VarChar, 20)
parameter(4) = New OracleParameter(":empname", OracleType.VarChar, 20)
parameter(5) = New OracleParameter(":dptid", OracleType.VarChar, 20)
parameter(6) = New OracleParameter(":cretime", OracleType.VarChar, 40)
parameter(7) = New OracleParameter(":actionno", OracleType.VarChar, 100)

parameter(0).Value = title_txt.Text
parameter(1).Value = info_txt.Text
parameter(2).Value = accessory_txt.Text
parameter(3).Value = user_no
parameter(4).Value = user_no
parameter(5).Value = user_dpt
parameter(6).Value = time
parameter(7).Value = actionid

Dim db_conn As New OracleConnection(connectionString)
db_conn.Open()

Dim cmd As New OracleCommand

Dim trans As OracleTransaction = db_conn.BeginTransaction()
cmd.Transaction = trans
cmd.Connection = db_conn
cmd.CommandText = slqinsert

cmd.Parameters.Add(parameter(0))
cmd.Parameters.Add(parameter(1))
cmd.Parameters.Add(parameter(2))
cmd.Parameters.Add(parameter(3))
cmd.Parameters.Add(parameter(4))
cmd.Parameters.Add(parameter(5))
cmd.Parameters.Add(parameter(6))
cmd.Parameters.Add(parameter(7))

Try
cmd.ExecuteNonQuery()

trans.Commit()

Catch ex As Exception

Try
trans.Rollback()
Throw New ApplicationException(ex.Message)

Catch exe As Exception
If Not trans.Connection Is Nothing Then
Console.WriteLine("An exception of type " & ex.GetType().ToString() & _
" was encountered while attempting to roll back the transaction.")
End If

End Try

Finally
db_conn.Close()
Response.Write("<script>alert('" & " sucees  insert into database " & "') </script>")

clearinfo()

Response.Redirect("innerbbs.aspx")
End Try