| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 701 人关注过本帖
标题:请问怎么把图片存到数据库中呢???
只看楼主 加入收藏
YAXIONG
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2006-11-6
收藏
 问题点数:0 回复次数:5 
请问怎么把图片存到数据库中呢???
请问要怎么把图片存到SQL SERVER数据库中呢??有没有人可以说下呀 ?
搜索更多相关主题的帖子: 数据库 
2007-05-15 18:42
YAXIONG
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2006-11-6
收藏
得分:0 
回复:(YAXIONG)请问怎么把图片存到数据库中呢???

乍么买有人可以说下呀?????


喜欢~左岸~~..
2007-05-16 21:14
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
收藏
得分:0 
要么存入图片的地址,要么以二进制形式存入..

飘过~~
2007-05-17 10:49
YAXIONG
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2006-11-6
收藏
得分:0 
o  那要怎么存入图片的地址啊??

喜欢~左岸~~..
2007-05-17 17:48
lyt_nick
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-12-16
收藏
得分:0 
图片的路径
2007-05-20 16:09
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 
ole

这个是保存
If txtPhoto.Text <> "" Then Call SaveToDB(rst.Fields("照片"), txtPhoto.Text)


调用下面的函数

Private Sub SaveToDB(ByRef Fld As ADODB.Field, DiskFile As String)
Dim byteData() As Byte '定义数据块数组
Dim NumBlocks As Long '定义数据块个数
Dim FileLength As Long '标识文件长度
Dim LeftOver As Long '定义剩余字节长度
Dim SourceFile As Long '定义自由文件号
Dim i As Long '定义循环变量
SourceFile = FreeFile '提供一个尚未使用的文件号
Open DiskFile For Binary Access Read As SourceFile '打开文件
FileLength = LOF(SourceFile) '得到文件长度
If FileLength = 0 Then '判断文件是否存在
Close SourceFile
MsgBox DiskFile & " 无 内 容 或 不 存 在 !"
Else
NumBlocks = FileLength \ BLOCKSIZE '得到数据块的个数
LeftOver = FileLength Mod BLOCKSIZE '得到剩余字节数
Fld.Value = Null
ReDim byteData(BLOCKSIZE) '重新定义数据块的大小
For i = 1 To NumBlocks
Get SourceFile, , byteData() ' 读到内存块中
Fld.AppendChunk byteData() '写入FLD
Next i
ReDim byteData(LeftOver) '重新定义数据块的大小
Get SourceFile, , byteData() '读到内存块中
Fld.AppendChunk byteData() '写入FLD
Close SourceFile '关闭源文件
End If
End Sub

2007-05-20 17:01
快速回复:请问怎么把图片存到数据库中呢???
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032644 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved