将ACCESS的ole对象导出为文件

 

1.frm

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   855
      Left            =   1440
      TabIndex        =   0
      Top             =   1080
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
    
  Private Declare Function ShellExecute()Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  Private Const SW_SHOW = 5
  Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    
  '保存
  Private Sub Command1_Click()Sub Command1_Click()
          Dim bteContent()     As Byte
            
          Open "C:aa.DOC" For Binary Access Read As #1
          bteContent = InputB(LOF(1), #1)
          Close #1
            
          If rs.State = adStateOpen Then rs.Close
          rs.Open "select   *   from   tablename", cn, adOpenDynamic, adLockPessimistic
          rs.AddNew
          rs!Name = "张三"
          rs!AGE = 22
          rs!SEX = "男"
          rs.Fields("PHOTO").AppendChunk bteContent
          rs.Update
            
          Erase bteContent
  End Sub
    
  '打开
  Private Sub Command2_Click()Sub Command2_Click()
          Dim bteContent()     As Byte
          If rs.State = adStateOpen Then rs.Close
          rs.Open "select   *   from   tablename", cn, adOpenForwardOnly, adLockReadOnly
          bteContent = rs.Fields("PHOTO").GetChunk(rs.Fields("PHOTO").ActualSize)
    
          Open "F:
.doc" For Binary Access Write As #1
          Put #1, , bteContent
          Close #1
          ShellExecute Me.hWnd, "open", "F:
.doc", vbNullString, vbNullString, SW_SHOW
  End Sub
    
  Private Sub Form_Load()Sub Form_Load()
  On Error GoTo Errhandle
          cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:
.mdb;Persist Security Info=False"
          cn.Open
            
          Exit Sub
Errhandle:
          MsgBox Err.Description, vbExclamation
  End Sub
    
  Private Sub Form_QueryUnload()Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  On Error Resume Next
          rs.Close
          Set rs = Nothing
          cn.Close
          Set cn = Nothing
  End Sub

 

1.vbp

Type=Exe
Form=Form1.frm
Reference=*G{00020430-0000-0000-C000-000000000046}#2.0#0#........WINDOWSsystem32stdole2.tlb#OLE Automation
Startup="Form1"
Command32=""
Name="Project1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="cnpvp"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1

转载自http://topic.csdn.net/t/20040508/00/3040090.html 自行调试通过