Vb.net向sql server數據庫中保存圖片（二）
2024-07-10 13:01:33
供稿：網友
4、 聲明類級的變量。找到設計期產生的代碼部分，把下面的語句加到變量聲明后面。什么？不知道變量聲明在哪兒?不會吧！
private fs as filestream
private ds as dataset
private conn as new sqlconnection("server=localhost;database=northwind;integrated security=true;")
private currentpos as integer = 9
5、 開始寫代碼了。首先是form_load
private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
btnopen.enabled = true
btnsave.enabled = true
btnback.enabled = false
btnforward.enabled = false
end sub
6、 open按鈕的點擊事件代碼：
private sub openbtn_click(byval sender as system.object, byval e as system.eventargs) handles btnopen.click
dim opendlg as new openfiledialog
opendlg.title = "select a picture file"
opendlg.filter = "(*.bmp)|*bmp|(*.jpg)|*.jpg"
opendlg.showdialog()
lblpath.text = opendlg.filename.tostring()
fs = new filestream(opendlg.filename.tostring(), filemode.open, fileaccess.read)
picturebox1.image = image.fromfile(opendlg.filename.tostring())
end sub
7、 save按鈕的點擊事件代碼
private sub savebtn_click(byval sender as system.object, byval e as system.eventargs) handles btnsave.click
dim sqlcomm as new sqlcommand
sqlcomm.commandtext = "insert into employees (lastname,firstname,photo) values (@lastname,@firstname,@photo)"
sqlcomm.connection = conn
dim data(fs.length) as byte
fs.read(data, 0, int(fs.length))
dim prm1 as new sqlparameter("@lastname", txtln.text)
dim prm2 as new sqlparameter("@firstname", txtfn.text)
dim prm3 as new sqlparameter("@photo", sqldbtype.varbinary, int(fs.length), parameterdirection.input, false, 0, 0, "", datarowversion.current, data)
sqlcomm.parameters.add(prm1)
sqlcomm.parameters.add(prm2)
sqlcomm.parameters.add(prm3)
try
conn.open()
sqlcomm.executenonquery() '執行插入語句
conn.close()
fs.close()
catch ex as exception
msgbox(ex.message)
end try
end sub
8、 選擇view狀態的事件代碼
private sub checkbox1_checkedchanged(byval sender as system.object, byval e as system.eventargs) handles checkbox1.checkedchanged
if checkbox1.checked = true then
btnopen.enabled = false
btnsave.enabled = false
btnback.enabled = true
btnforward.enabled = true
currentpos = 9
dim sqlcomm as new sqlcommand
sqlcomm.commandtext = "select employeeid, photo from employees order by employeeid"
sqlcomm.connection = conn
dim da as new sqldataadapter(sqlcomm)
try
conn.open()
ds = new dataset
da.fill(ds, "employees")
conn.close()
catch sqlex as sqlexception
msgbox(sqlex.message)
end try
dim data() as byte = ds.tables("employees").rows(9)("photo")
dim stmphoto as new memorystream(data)
picturebox1.image = image.fromstream(stmphoto)
else
btnopen.enabled = true
btnsave.enabled = true
btnback.enabled = false
btnforward.enabled = false
end if
end sub
9、 “>>”按鈕點擊事件代碼
private sub forward_click(byval sender as system.object, byval e as system.eventargs) handles btnforward.click
if currentpos = ds.tables("employees").rows.count - 1 then
return
else
currentpos += 1
dim data() as byte
data = ds.tables("employees").rows(currentpos)("photo")
dim stmphoto as new memorystream(data)
picturebox1.image = image.fromstream(stmphoto)
end if
end sub
10、 “<<”按鈕點擊事件代碼
private sub back_click(byval sender as system.object, byval e as system.eventargs) handles btnback.click
if currentpos = 9 then
return
else
currentpos -= 1
end if
dim data() as byte
data = ds.tables("employees").rows(currentpos)("photo")
dim stmphoto as new memorystream(data)
picturebox1.image = image.fromstream(stmphoto)
end sub
11、 好了，可以運行看看了。
