用stream组件就可以了，给你个示例
保存文件到数据库中
Sub s_SaveFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcstr As String
'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile App.Path + "\test.jpg"
End With
'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from img", iConc, 1, 3
.AddNew '新增一条记录
.Fields("photo") = iStm.Read
.Update
End With
‘贰’ 如何使用vba 将excel指定行的数据导入到sql2008中
你在EXCEL中增加一个列名为ID,后在VBA中写以下代码，并引用Microsoft
ActiveX
Data
Objects
2.8后执行
Public
Sub
写入SQL2008()
Dim
cnn
As
New
ADODB.Connection
Dim
SQL
As
String,
mydata
As
String,
mytable
As
String
Dim
i%
mydata
=
"KKKK"
'指定要修改的数据库
mytable
=
"aaaa"
'指定数据表
'建立与指定SQL
Server数据库的连接
cnn.ConnectionString
=
"Provider=SQLOLEDB;"
_
&
"User
ID=sa;"
_
'sa改成你SQL账号(通常不用改)
&
"Password
=123;"
_
'123改成你SQL2008密码
&
"Data
Source=sowin;"
_
'sowin改成你的SQL2008的电脑名,
'如sql2008在网络上，则sowin改成IP地址(如192.168.0.1)
&
"Initial
Catalog
="
&
mydata
cnn.Open
'查询全表某些字段的记录
for
i
=
2
to
[a65536].end(xlup).row
SQL
=
"UPDATE
"
&
mytable
&
"
SET
x="
&
cells(i,1)
&
","
&
_
"y="
&
cells(i,2)
&
","
&
_
"z="
&
cells(i,3)
&
","
&
_
"where
id=11"
next
i
'注意引号里面的空格
'数据库没有更新的数据则用INSERT
INTO
'SQL
=
"INSERT
INTO
"
&
mytable
&
"
COLUMNS(x,y,z)"
&
_
"
VALUES('"
&
CELLS(i,1)
&
"','"
&
cells(i,2)
&
"','"
&
cells(i,3)
&"')"
cnn.Execute(SQL)
cnn.Close
Set
cnn
=
Nothing
End
Sub
‘叁’ vb.net 中如何将图片保存到SQL数据库
保存路径最好，我几个项目都是这样。
具体如何保存，需要看你使用什么样的上传控件才可以定。
个人推荐一个是CFUPDATE，不错的控件，你可以了解，如果有不清楚，可以再问我。
‘肆’ vba 上传数据到sql 数据库问题
如果有数据就执行你的上传处理，没数据就退出
while cells(1,i) <> ""
上传处理
i = i + 1
Wend
‘伍’ VBA自动导入excel数据到SQL数据库，求代码
Subtest()
DimcnAsADODB.Connection
DimstrSQLAsString
DimlngRecsAffAsLong
DimHeadersAsBoolean
DimstrConnAsString
DimpathAsString
OnErrorGoTotest_Error
Headers=True
path="c:20131212.xls"
strConn="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource="&path&";"&_
"ExtendedProperties=""Excel8.0;IMEX=1;HDR=YES"""
Debug.PrintstrConn
Setcn=NewADODB.Connection
cn.OpenstrConn
'ImportbyusingJetProvider.
strSQL="InsertINTO[odbc;Driver={SQLServer};"&_
"Server=192.168.6.111;Database=answer;"&_
"UID=sa;PWD=password].test1"&_
"Select*FROM[Sheet1$]"
Debug.PrintstrSQL
cn.ExecutestrSQL,lngRecsAff
Debug.Print"Recordsaffected:"&lngRecsAff
cn.Close
Setcn=Nothing
OnErrorGoTo0
ExitSub
test_Error:
MsgBox"Error"&Err.Number&"("&Err.Description&")"
EndSub
‘陆’ vc mfc中怎么通过按钮 “上传图片”把本机上的图片读入SQL数据库
图片就是文件嘛，把文件数据全部读入到内存然后插入到
sql数据库
中就可以了，但不建议这样做，因为图片数据比较大，存入数据库会很慢，检索也会很慢，建议只存入图片的路径，比如你要存入的图片为c:\\test.bmp,那么你存入数据的信息就为c:\\test.bmp，当有地方要使用该图片时，只需取出c:\\test.bmp这个路径就可以操作该图片了。
‘柒’ vb.net 中如何将图片保存到SQL数据库
#Region "二进制文件的存储函数" Public Function BinaryToFile(ByRef TableRowColItem As Object, ByVal FileName As String) As Boolean Dim data As Byte() = TableRowColItem
Dim myfilestream As New System.IO.FileStream(FileName, IO.FileMode.Create)
myfilestream.Write(data, 0, data.Length)
myfilestream.Close()
Return True
End Function Public Function BinaryToImage(ByRef TableRowColItem As Object, ByRef image As Image) As Boolean Dim data As Byte() = TableRowColItem Dim imgStream As New System.IO.MemoryStream '(data)
imgStream.Write(data, 0, data.Length)
image = System.Drawing.Image.FromStream(imgStream)
imgStream.Close()
imgStream.Dispose() Return True
End Function
Public Function BinaryFromFile(ByVal FileName As String, ByRef TableRowColItem As Object) As Boolean Using myfilestream As New FileStream(FileName, FileMode.Open, FileAccess.Read)
Dim data() As Byte
ReDim data(myfilestream.Length - 1)
myfilestream.Read(data, 0, myfilestream.Length)
myfilestream.Close()
TableRowColItem = data End Using
Return True
End Function Public Function BinaryFromImage(ByRef Image As Image, ByRef TableRowColItem As Object) As Boolean
Dim imgStream As New MemoryStream
Dim b As New Bitmap(Image) b.Save(imgStream, System.Drawing.Imaging.ImageFormat.Jpeg) Dim data As Byte() = imgStream.GetBuffer
TableRowColItem = data
data = TableRowColItem
imgStream.Close()
imgStream.Dispose() Return True
End Function Public Function BinaryFromImage(ByVal Image As Image, ByRef TableRowColItem As Object, ByVal imgFormat As System.Drawing.Imaging.ImageFormat) As Boolean
Dim imgStream As New MemoryStream
'Image.Save(imgStream, imgFormat)
'Dim b As New Bitmap(Image)
'b.Save("c:\a.bmp", imgFormat)
'b.Save("c:\a.bmp", imgFormat) Dim data As Byte() = imgStream.GetBuffer TableRowColItem = data
data = TableRowColItem
imgStream.Close()
Return True
End Function
#End Region
‘捌’ 怎么让VB.NET 上传图片到SQL 数据库只保存路径，图片保存到文件
图片和文件的记录加个地址的字段，字段内容是文件和图片的绝对路径就好了,那就把图片和文件弄成2进制存进去，或转成hash值
‘玖’ 怎样把图片存入SQL数据库表中
一、先来熟悉一下将要使用的对象方法：
用来获取上一个页面传 递过来的数据一般是使用Request对象。同样的，我们也可以使用Request对象 来获取上传上来的文件数据，使用的方法是Request.BinaryRead()。
要从数据库中读出来图片的数据显示到网页上面要用到的方法是：Request.BinaryWrite()。
二、在得到了图片的数据，要保存到数据库中的时候，不可以直接使用Insert语句对数据库进行操作，而是要使用ADO的AppendChunk方法。
同样的，读出数据库中的图片数据，要使用GetChunk方法。
各个方法的具体语法如下：
*Request.BinaryRead语法：
variant=Request.BinaryRead(count)
参数
variant
返回值保存着从客户端读取到数据。
count
指明要从客户端读取的数据量大小，这个值小于或者等于使用方法
Request.TotalBytes得到的数据量。
*Request.BinaryWrite语法：
Request.BinaryWritedata
参数
data
要写入到客户端浏览器中的数据包。
*Request.TotalBytes语法：
variant=Request.TotalBytes
参数
variant
返回从客户端读取到数据量的字节数。
*AppendChunk语法
将数据追加到大型文本、二进制数据Field或Parameter对象。
object.AppendChunkData
参数
objectField或Parameter对象
Data变体型，包含追加到对象中的数据。
说明
使用Field或Parameter对象的AppendChunk方法可将长二进制或字符数
据填写到对象中。在系统内存有限的情况下，可以使用AppendChunk方法对长
整型值进行部分而非全部的操作。
*GetChunk语法
返回大型文本或二进制数据Field对象的全部或部分内容。
variable=field.GetChunk(Size)
返回值
返回变体型。
参数
Size长整型表达式，等于所要检索的字节或字符数。
说明
使用Field对象的GetChunk方法检索其部分或全部长二进制或字符数据。
在系统内存有限的情况下，可使用GetChunk方法处理部分而非全部的长整型
值。
GetChunk调用返回的数据将赋给“变量”。如果Size大于剩余的数据，则
GetChunk仅返回剩余的数据而无需用空白填充“变量”。如果字段为空，则
GetChunk方法返回Null。
每个后续的GetChunk调用将检索从前一次GetChunk调用停止处开始的数
据。但是，如果从一个字段检索数据然后在当前记录中设置或读取另一个字段
的值，ADO将认为已从第一个字段中检索出数据。如果在第一个字段上再次调
用GetChunk方法，ADO将把调用解释为新的GetChunk操作并从记录的起始
处开始读取。如果其他Recordset对象不是首个Recordset对象的副本，则
访问其中的字段不会破坏GetChunk操作。
如果Field对象的Attributes属性中的adFldLong位设置为True，则可
以对该字段使用GetChunk方法。
如果在Field对象上使用Getchunk方法时没有当前记录，将产生错误3021
（无当前记录）。
三、设计数据库，作为测试的数据库结构如下（Access97）：
字段名称类型描述
id自动编号主键值
imgOLE对象用来保存图片数据
对于在MSSQLServer7中，对应的结构如下：
字段名称类型描述
idint(Identity)主键值
imgimage用来保存图片数据
四、正式编写纯ASP代码上传部分了，首先，有一个提供给用户的上传界面，可以让用户选择要上传的图片。代码如下（upload.htm）：
<html>
<body>
<center>
<formname="mainForm"enctype="multipart/form-data"
action="process.asp"method=post>
<inputtype=filename=mefile><br>
<inputtype=submitname=okvalue="OK">
</form>
</center>
</body>
</html>
注意代码中黑色斜体的部分，一定要在Form中有这个属性，否则，将无
法得到上传上来的数据。
五、接下来，要在process.asp中对从浏览器中获取的数据进行必要的处理，因为在process.asp中获取到的数据不仅仅包含了想要的上传上来的图片的数据，也包含了其他的无用的信息，需要剔除冗余数据，并将处理过的图片数据保存到数据库中，这里以Access97为例。具体代码如下（process.asp）：
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)setconnGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={MicrosoftAccessDriver(*.mdb)};DBQ="&
server.MapPath("images.mdb")&";uid=;PWD=;"
connGraph.Opensetrec=server.createobject("ADODB.recordset")
rec.Open"SELECT*FROM[images]whereidisnull",connGraph,1,3
rec.addnew
rec("img").appendchunkmydata
rec.update
rec.close
setrec=nothing
setconnGraph=nothing
%>
六、这样就把上传来的图片保存到了名为images.mdb的数据库中了，剩下的工作就是要将数据库中的图片数据显示到网页上面了。
一般在HTML中，显示图片都是使用<IMG>标签，也就是<IMGSRC="图片路径">，但是图片是保存到了数据库中，“图片路径”是什么呢？呵呵，其实这个SRC属性除了指定路径外，也可以这样使用哦：
<IMGSRC="showimg.asp?id=xxx">
所以，要做的就是在showimg.asp中从数据库中读出来符合条件的数据，并返回到SRC属性中就可以了，具体代码如下（showimg.asp）：
<%
setconnGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={MicrosoftAccessDriver(*.mdb)};DBQ="&
server.MapPath("images.mdb")&";uid=;PWD=;"
connGraph.Open
setrec=server.createobject("ADODB.recordset")
strsql="selectimgfromimageswhereid="&trim(request("id"))
rec.openstrsql,connGraph,1,1
Response.ContentType="image/*"
Response.BinaryWriterec("img").getChunk(7500000)
rec.close
setrec=nothing
setconnGraph=nothing
%>
七、注意在输出到浏览器之前一定要指Response.ContentType="image/*"，以便正常显示图片。最后要注意的地方是，我的process.asp中作的处理没有考虑到第一页(upload.htm)中还有其他数据，比如<INPUTtype=tesxtname=userid>等等，如果有这些项目，process.asp就要注意处理掉不必要的数据。