请问那位大哥知道在数据库里存放一般的文章、规章制度(pdf)、表格内容、图片和附加的说明、动画、flash时,格式上有什么区别? 要是你不怕数据库太大的话就直接保存到数据库里去,用的时候再读出来 那样会好一些 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 图片,表格怎么存?别人上传时可能是一个已经做好的有一定格式的文件,我要保持版面不变,格式不变的存下来,怎么办? 用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 If2 :读出 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 不能加载'DaTa.Dsr'--继续加载工程吗? 自己在VF中遇到的问题——谁能救我啊! 如何将一个htm文件或htm文件里的代码加入到VB中 高手求救,關閉execel問題! 求助!如何用VBA实现单元格内容加一 关于汉字 请问下这个小程序怎么制作的 怎样才能把一个目录下的文件名列出并放到listview中,用FileSystemObject可以做到吗? CRYSTAL REPORTS如何与ADO相连,老兄请帮帮忙! JNeu:看看吧:) 取系统时间格式 在VB中如何用TreeView对Access数据库进行排序?
代码如下:
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