.net连接oracle 预编译写法

来源：互联网发布：如何免费创建企业域名编辑：程序博客网时间：2024/06/10 22:55

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

0 0