是用ado,还是什么啊??具体步骤说一下把,我是新手呢,数据库为sql2000,呵呵,thanks
解决方案 »
- 要给邮件添加多附件,用什么控件?:打开文件夹目录,选中多个文件,然后能自动把文件路径全部添到list1中
- 要如何控制 TrackBar 的原件呢?
- 一段源码修改一下,鼠标和键盘钩子
- 关于水晶报表的问题
- 一个语句不明白,哪位高手帮指点一下阿。t& = ExitWindowsEx(EWX_LOGOFF, 0)
- 哪有好点的VB电子书 或者 文章
- 高分讨论VB下开发木马程序需要使用哪些控件和调用哪些API?(来者有分)
- 请帮忙解决,高分求解(100分,系统只让我给这么多分,我尽力了)
- 关于VFOutbar.ocx控件图标不能显示的问题?
- 帮帮菜鸟
- 有没有办法区分工程处于设计模式还是运行模式?
- textbox控件怎么取得sql查询的值?
对于二进制文件 都是一样的
'存储照片文件到数据库
Public Function WriteToDB(ByRef col As ADODB.Field, ByVal FileName As String) As Boolean
On Error GoTo ErrMsg
Dim mStream As ADODB.Stream
Set mStream = New ADODB.Stream
WriteToDB = False
mStream.Type = adTypeBinary
mStream.Open
mStream.LoadFromFile FileName
col.Value = mStream.Read
mStream.Close
Set mStream = Nothing
WriteToDB = True
Exit Function
ErrMsg:
MsgBox "存储照片到数据库时出现错误." & vbCrLf & Err.Description, vbExclamation + vbOKOnly, "提示"
End Function'设置临时照片文件
Public Function ReadDB(col As ADODB.Field, ByRef imgFile As String) As Boolean
On Error GoTo ErrRead
Dim mStream As New ADODB.Stream
ReadDB = False
If col.ActualSize < 200 Then Exit Function
mStream.Type = adTypeBinary
mStream.Open
mStream.Write col.Value
mStream.SaveToFile imgFile, adSaveCreateOverWrite
ReadDB = True
Exit Function
ErrRead:
MsgBox "设置临时照片文件时出现错误:" & vbCrLf & Err.Description, vbInformation, "提示"
ReadDB = False
End Function