要是你不怕数据库太大的话就直接保存到数据库里去,用的时候再读出来 那样会好一些

解决方案 »

  1.   

    图片,表格怎么存?别人上传时可能是一个已经做好的有一定格式的文件,我要保持版面不变,格式不变的存下来,怎么办?
      

  2.   

    用IMG字段 
    代码如下:
    1:保存
        Dim SQL As String
        Dim r As New ADODB.Recordset
        Dim bit() As Byte
        
        If Trim(Txtkh) = "" Then
            MsgBox "没有拉卡!"
            Exit Sub
        End If
        SQL = "insert into byzl(kh,xm1,xm2,xb,cb,pz,ms,sr,tz,yt,zr,dz,dh1,dh2,dh3,dh4) values('"
        SQL = SQL & Txtkh & "','"
        SQL = SQL & TXTXM1 & "','"
        SQL = SQL & TXTXM2 & "','"
        SQL = SQL & TXTXB & "','"
        SQL = SQL & TXTCB & "','"
        SQL = SQL & TXTPZ & "','"
        SQL = SQL & TXTMS & "','"
        SQL = SQL & TXTCS & "','"
        SQL = SQL & TXTTZ & "','"
        SQL = SQL & TXTYT & "','"
        SQL = SQL & TXTZR & "','"
        SQL = SQL & TXTDZ & "','"
        SQL = SQL & TXTDH1 & "','"
        SQL = SQL & TXTDH2 & "','"
        SQL = SQL & TXTDH3 & "','"
        SQL = SQL & TXTDH4 & "')"
        Cn.Execute "delete from byzl where kh='" & Trim(Txtkh) & "'"
        Cn.Execute SQL
        If Image1.Tag <> "" Then
            Open Image1.Tag For Binary As #1
            ReDim bit(LOF(1)) As Byte
            Get 1, 1, bit
            Close 1
            r.Open "select * from byzl where kh='" & Trim(Txtkh) & "'", Cn, adOpenKeyset, adLockOptimistic
            r("zp").AppendChunk bit
            r.Update
            r.Close
        End If
    2 :读出
        r.Open SQL, Cn
        If Not (r.EOF And r.BOF) Then
        Set Image1 = Nothing
            TXTXM1 = Trim(r!xm1)
            TXTXM2 = Trim(r!xm2)
            TXTXB = Trim(r!xb)
            TXTCB = Trim(r!cb)
            TXTPZ = Trim(r!pz)
            TXTMS = Trim(r!ms)
            TXTCS = Trim(r!SR)
            TXTTZ = Trim(r!tz)
            TXTYT = Trim(r!yt)
            TXTZR = Trim(r!zr)
            TXTDZ = Trim(r!dz)
            TXTDH1 = Trim(r!dh1)
            TXTDH2 = Trim(r!dh2)
            TXTDH3 = Trim(r!dh3)
            TXTDH4 = Trim(r!dh4)
            Load_Bl
            Dim bit1() As Byte
            On Error GoTo Err1:
            bit1 = r("zp").GetChunk(r("zp").ActualSize)
            '然后将字节数组的内容拼装成文件即可
            Open App.Path & "\temp.jpg" For Binary As #1
            Put 1, 1, bit1
            Close 1