Dim strConn As String
Dim objConn As OracleConnection
Dim objComm As OracleCommand Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
strConn = "User Id=scott;Password=tiger;Data Source=oracle"
End Sub Public Sub InsertDeptLOGO(ByVal intDeptNO As Integer, ByVal bytsLogo As Byte())
Dim strSql As String = "INSERT INTO DEPT_LOGO T (DEPTNO, LOGO) VALUES (:PI_LOGO, :PI_DEPTNO)" Try
objConn = New OracleConnection(strConn)
objComm = New OracleCommand(strSql, objConn)
objComm.Parameters.Add("PI_LOGO", OracleType.Blob).Value = bytsLogo
objComm.Parameters.Add("PI_DEPTNO", OracleType.Number).Value = intDeptNO
objConn.Open()
objComm.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If Not objConn Is Nothing Then
objConn.Close()
End If
End Try
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货