dim conn as new sqlconnection("server=(local);database=news;uid=sa;pwd=3312079")
Dim count As Integer         
Dim offset = 1048576          
Dim MyStream As System.IO.Stream      
Dim Input(offset - 1) As Byte         
MyStream = UploadFile.PostedFile.InputStream             
MyStream.Position = 0  'Position是位置的意思 0 应该可以被文件代替吧?
conn.open()
Do
  count = MyStream.Read(Input, 0, offset)
  If count <> offset Then
  ReDim Preserve Input(count - 1)
  End If
dim strsql as string
strsql="insert into " & tablename.text & "(news_name,news_imagurl,news_text,submit) values('" & news_name.text & "',@imagur,'" & news_text.text & "',getdate())"
dim cmd as new sqlcommand(strsql,conn)
cmd.Parameters.Add(New SqlClient.SqlParameter("@imagur", SqlDbType.Image)).Value = Input
            cmd.ExecuteNonQuery()
            cmd.Dispose()               
Loop While count = offset
conn.close()
MyStream.Close()
用上面的代码已经把图片存到数据库了 用image数据类型保存,用datagrid回显,是System.Byte[]
怎么才可以让它回显的是我上传的图片呢。下面是我的显示数据库数据的,绑定datagrid的代码。
帮忙加工一下,谢谢!!!
sub binddata()'对数据库的绑定读取
dim conn as new sqlconnection("server=(local);database=news;uid=sa;pwd=3312079")
dim strsql as string="select * from " & tablename.text & " order by news_id desc" 
dim dp as new sqldataadapter(strsql,conn)
dim myset as new dataset()
dp.fill(myset,"tt")
mydg.datasource=myset.tables("tt").defaultview
mydg.databind()
end sub