图片怎样存取数据库啊 是sql server 快快快啊 各位大哥！
我要实现的是图片存取数据库
能否实现一个表放图片
另一个放图片名啊
用中间变量实现互连啊
我不是是特地要两个表的 是真的需要两个表啊
问题点数：10、回复次数：8Top
1 楼dzq_1（）回复于 2003-08-04 12:38:46 得分 0
看一下这个示例(数据库存取图片)：
http://expert.csdn.net/Expert/topic/2053/2053195.xml?temp=.9429285
Top
2 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2003-08-04 12:46:10 得分 0
VB.NET象SQL SERVER存入图象:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;308042Top
3 楼mmiiaaoo（bondy）回复于 2003-08-04 13:13:08 得分 0
我不是很清楚啊
你们那为dage 帮我解释一下啊Top
4 楼jary12581（老七）回复于 2003-08-04 15:20:08 得分 5
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private fs As FileStream
Private st As ADODB.Stream
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn = New ADODB.Connection()
cn.Open("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=image;Data Source=lover")
rs = New ADODB.Recordset()
rs.Open("picture", cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
st = New ADODB.Stream()
st.Type = ADODB.StreamTypeEnum.adTypeBinary
st.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '利用文件流进行图片的存取
Dim data0(100000) As Byte
Dim filepath As String
Me.OpenFileDialog1.Title = "Open"
Me.OpenFileDialog1.Filter = "bmp文件(*.bmp)|*.bmp" '打开图片到本地数据库
Me.OpenFileDialog1.ShowDialog()
filepath = Me.OpenFileDialog1.FileName
If filepath <> "" Then
fs = New FileStream(filepath, FileMode.Open)
fs.Read(data0, 0, 100000)
rs.AddNew()
rs.Fields(0).Value = data0
rs.Update()
End If
If Err.Number = 0 Then
'MessageBox.Show("successful to send data to database!")
End If
fs.Close()
rs.MoveLast() '保存图片到本地磁盘
Dim data() As Byte = rs.Fields(0).Value
fs = New FileStream("d:\210.bmp", FileMode.OpenOrCreate)
fs.Write(data, 0, data.Length)
If Err.Number = 0 Then
'MessageBox.Show("successful to save image!")
Else
MsgBox(Err.Description)
End If
fs.Close()
Dim mypicture As Bitmap
mypicture = New Bitmap("d:\210.bmp")
Me.PictureBox1.Image = New Bitmap(mypicture)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '利用普通流进行文件的存取
If st.State = ADODB.ObjectStateEnum.adStateClosed Then
st.Open()
End If
rs.AddNew()
Me.OpenFileDialog1.Title = "Open"
Me.OpenFileDialog1.Filter = "bmp文件(*.bmp)|*.bmp"
Me.OpenFileDialog1.ShowDialog()
Dim filepath As String
filepath = Me.OpenFileDialog1.FileName
st.LoadFromFile(filepath)
rs.Fields(0).Value = st.Read
If Err.Number = 0 Then
'MessageBox.Show("successful to send image to database!")
End If
st.Close()
If st.State = ADODB.ObjectStateEnum.adStateClosed Then
st.Open()
End If
rs.MoveFirst()
st.Write(rs.Fields(0).Value)
st.SaveToFile("d:\210.bmp", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
Dim myimage As Bitmap
myimage = New Bitmap("d:\210.bmp")
Me.PictureBox1.Height = myimage.Height
Me.PictureBox1.Width = myimage.Width
Me.Height = myimage.Height
Me.Width = myimage.Width
Me.PictureBox1.Image = New Bitmap(myimage)
st.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
rs.MoveFirst()
Do Until rs.EOF
rs.Delete()
rs.MoveNext()
Loop
End Sub
End ClassTop
5 楼mmiiaaoo（bondy）回复于 2003-08-04 15:34:33 得分 0
你这是什么啊asp 还是asp.net 啊Top
6 楼mmiiaaoo（bondy）回复于 2003-08-04 15:48:30 得分 0
大哥 我是用在web上的啊 你的好象是用在windows窗体上的啊 能不能提供我在web上的啊 万分感谢啊Top
7 楼sumysong（水样年华）回复于 2003-08-26 21:13:11 得分 2
还不少啊Top
8 楼net_lover（【孟子E章】）回复于 2003-08-26 21:20:49 得分 3
http://xml.sz.luohuedu.net/xml/Content.aspTop
