OracleÊý¾Ý¿âÖдó¶ÔÏó£¨lob£©´¦Àí·½·¨£¨2£©_OracleÊý¾Ý¿â_ºÚ¿Í·ÀÏßÍø°²·þÎñÆ÷ά»¤»ùµØ--Powered by WWW.RONGSEN.COM.CN

OracleÖдó¶ÔÏó£¨lob£©´¦Àí·½·¨£¨2£©

×÷ÕߣººÚ¿Í·ÀÏßÍø°²Oracleά»¤»ùµØ À´Ô´£ººÚ¿Í·ÀÏßÍø°²Oracleά»¤»ùµØ ä¯ÀÀ´ÎÊý£º0

±¾Æª¹Ø¼ü´Ê£ºOracleÊý¾Ý¿âOracleÊý¾Ý¿â
ºÚ¿Í·ÀÏßÍø°²ÍøѶ£º¡¡¡¡ole_1.objectdata =ole_blob ¡¡¡¡If ole_1.activate(offsite!) <> 0 Then ¡¡¡¡Messagebox("OLE Activate","²»Äܼ¤»î") ¡¡¡¡Return -1 ¡¡¡¡end If ¡¡¡¡end if ¡¡¡¡else ¡¡¡¡messagebox("...

¡¡¡¡ole_1.objectdata =ole_blob
¡¡¡¡If ole_1.activate(offsite!) <> 0 Then
¡¡¡¡Messagebox("OLE Activate","²»Äܼ¤»î")
¡¡¡¡Return -1
¡¡¡¡end If
¡¡¡¡end if
¡¡¡¡else
¡¡¡¡messagebox("Ìáʾ","ûÓи½¼þ")
¡¡¡¡end if
¡¡¡¡end if
¡¡¡¡
¡¡¡¡£¨¶þ£©ÔÚvbÖеĴ¦Àí
¡¡¡¡
¡¡¡¡ÔÚvbÖд¦Àí´ó¶ÔÏó£¬Ò»°ã¿ÉÒÔÓÃOO4O(oracle objects for ole)À´´¦Àí´ó¶ÔÏó¡£ÕâÀï½éÉÜÒ»ÖÖ²»ÓÃ0040´¦Àí´ó¶ÔÏóblobµÄ·½·¨¡£
¡¡¡¡
¡¡¡¡ÏÂÃæÕâ¶Î³ÌÐò¿ÉÒÔ½«Ò»¸öÎļþ£¨Îı¾Îļþ£¬docÎļþ£¬Í¼ÏóÎļþµÈ£©±£´æµ½Êý¾Ý¿âÖУ¬²¢¿ÉÒÔ½«Æä´ÓÊý¾Ý¿â¶Á³ö
¡¡¡¡
¡¡¡¡ÐèÒªÁ½¸öcommandbutton
¡¡¡¡
¡¡¡¡cmd1 Ãû³Æ cmdsave caption ±£´æ
¡¡¡¡
¡¡¡¡cmd2 Ãû³Æ cmdread caption ¶ÁÈ¡ Íø¹Übitscn_com
¡¡¡¡
¡¡¡¡Ò»¸öcmddialog¿Ø¼þ
¡¡¡¡
¡¡¡¡Í¬Ê±ÐèÒª´´½¨Ò»Õűít_demo(×Ö¶Îid ÀàÐÍ number,;×Ö¶Îtext ÀàÐÍ blob;)
¡¡¡¡
¡¡¡¡exmple 3.
¡¡¡¡Option Explicit
¡¡¡¡Dim rn As ADODB.Connection
¡¡¡¡Public Function CreateDataSource(DataSource As String, UserID As String, Password As String) As Boolean
¡¡¡¡On Error GoTo DbConErr:
¡¡¡¡Set rn = New ADODB.Connection
¡¡¡¡With rn
¡¡¡¡.ConnectionString = "Provider=OraOledb.Oracle.1;" & _
¡¡¡¡"password=" & Password & ";" & _
¡¡¡¡"User ID =" & UserID & ";" & _
¡¡¡¡"Data Source=" & DataSource & ";" & _
¡¡¡¡"Locale Identifier=2052"
¡¡¡¡.Open
¡¡¡¡End With
¡¡¡¡CreateDataSource = True
¡¡¡¡Exit Function
¡¡¡¡DbConErr:
¡¡¡¡CreateDataSource = False
¡¡¡¡End Function
¡¡¡¡
¡¡¡¡Private Sub cmdRead_Click()
¡¡¡¡Dim rs As New ADODB.Recordset
¡¡¡¡rs.ActiveConnection = rn
¡¡¡¡rs.LockType = adLockOptimistic
¡¡¡¡rs.CursorLocation = adUseClient
¡¡¡¡rs.Source = "select * from t_demo"
¡¡¡¡rs.Open
¡¡¡¡ComDlgDir.DialogTitle = "±£´æÎļþ"
Íø¹ÜÁªÃËbitsCN_com

¡¡¡¡ComDlgDir.Filter = "*.*"
¡¡¡¡ComDlgDir.ShowSave
¡¡¡¡Call BlobToFile(rs.Fields("text"), ComDlgDir.filename)
¡¡¡¡Set rs = Nothing
¡¡¡¡Exit Sub
¡¡¡¡Set rs = Nothing
¡¡¡¡End Sub
¡¡¡¡
¡¡¡¡Private Sub cmdsave_Click()
¡¡¡¡Dim rs As New ADODB.Recordset
¡¡¡¡rs.ActiveConnection = rn
¡¡¡¡rs.LockType = adLockOptimistic
¡¡¡¡rs.CursorLocation = adUseClient
¡¡¡¡rs.Source = "select * from t_demo"
¡¡¡¡rs.Open
¡¡¡¡rs.AddNew
¡¡¡¡ComDlgDir.DialogTitle = "Ñ¡È¡Îļþ"
¡¡¡¡ComDlgDir.ShowOpen
¡¡¡¡rs.Fields("id").Value = 1
¡¡¡¡If ComDlgDir.filename <> "" Then
¡¡¡¡Call FileToBlob(rs.Fields("text"), ComDlgDir.filename)
¡¡¡¡rs.Update
¡¡¡¡End If
¡¡¡¡Set rs = Nothing
¡¡¡¡Exit Sub
¡¡¡¡Set rs = Nothing
¡¡¡¡End Sub
¡¡¡¡
¡¡¡¡Private Sub Form_Load()
¡¡¡¡If Not CreateDataSource("sid", "systemp", "manager") Then
¡¡¡¡MsgBox "Connection failure!"
¡¡¡¡End If
¡¡¡¡End Sub
¡¡¡¡
¡¡¡¡fld As ADODB.Field, filename As String, Optional ChunkSize As Long = 8192)
Íø¹ÜÏÂÔØdl.bitscn.com

¡¡¡¡Dim fnum As Integer, bytesleft As Long, bytes As Long
¡¡¡¡Dim tmp() As Byte
¡¡¡¡If (fld.Attributes And adFldLong) = 0 Then
¡¡¡¡Err.Raise 1001, , "field doesn't support the GetChunk method."
¡¡¡¡End If
¡¡¡¡If Dir$(filename) = "" Then Err.Raise 53, , "File not found"
¡¡¡¡fnum = FreeFile
¡¡¡¡Open filename For Binary As fnum
¡¡¡¡bytesleft = LOF(fnum)
¡¡¡¡Do While bytesleft
¡¡¡¡bytes = bytesle

    ºÚ¿Í·ÀÏßÍø°²·þÎñÆ÷ά»¤·½°¸±¾ÆªÁ¬½Ó£ºhttp://www.rongsen.com.cn/show-13328-1.html
Íøվά»¤½Ì³Ì¸üÐÂʱ¼ä:2012-03-23 00:53:47  ¡¾´òÓ¡´ËÒ³¡¿  ¡¾¹Ø±Õ¡¿
ÎÒÒªÉêÇë±¾Õ¾£ºNµã | ºÚ¿Í·ÀÏß¹ÙÍø |  
רҵ·þÎñÆ÷ά»¤¼°Íøվά»¤ÊÖ¹¤°²È«´î½¨»·¾³£¬ÍøÕ¾°²È«¼Ó¹Ì·þÎñ¡£ºÚ¿Í·ÀÏßÍø°²·þÎñÆ÷ά»¤»ùµØÕÐÉ̽øÐÐÖУ¡QQ:29769479

footer  footer  footer  footer