建站
咨詢
售后
建站咨詢
新聞中心
vb.net如何讀取oracle數(shù)據(jù)庫(kù)中的圖片
Public Sub Combo1_Click()
為陵川等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及陵川網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都網(wǎng)站建設(shè)、做網(wǎng)站、陵川網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！
Dim adoCnn As ADODB.Connection
Dim rstOra As ADODB.Recordset
Dim intI As Integer
Set adoCnn = New ADODB.Connection
Set rstOra = New ADODB.Recordset
adoCnn.ConnectionString = "Provider=OraOLEDB.Oracle;User ID=dzjc;password=zlkj;Data Source=dzjc_2005;" '讀blob字段要用Provider=OraOLEDB.Oracle
adoCnn.CursorLocation = adUseClient
adoCnn.Open
rstOra.CursorLocation = adUseClient
rstOra.ActiveConnection = adoCnn
rstOra.Open "SELECT zp FROM dzjc.dzjc_wfzp WHERE xh = '5'"
'Set Image1.DataSource = rstOra
Set Image1.Picture = PictureFromByteStream(rstOra.Fields("zp").Value)
End Sub
VB.NET從數(shù)據(jù)庫(kù)中讀取圖片出現(xiàn)“Parameter is not valid”
Dim curSqlstr As String = "INSERT INTO Picture(picture_id, picture_area)" _
"VALUES('" (i + 1).ToString() "','@picture_area ')"
你看這句中的,'@picture_area ')",多個(gè)單引號(hào)了,被當(dāng)成VARCHAR處理了.去了單引號(hào)才是變量.
vb.net中，如何像下圖一樣，用很簡(jiǎn)單的辦法，導(dǎo)入1000張圖片。
很簡(jiǎn)單的方法，貌似沒(méi)有。這個(gè)需要自己寫很多代碼：
用一個(gè)ListView控件。
判斷滾動(dòng)條當(dāng)前所顯示的圖片集合，獲取它們的物理路徑。
用Bitmap.FromImage方法把這些圖片讀出來(lái)，
然后獲取縮略圖，
把縮略圖用Graphics.DrawImage()繪制出來(lái)。
我可以提供Bitmap如何獲取縮略圖的方法：
'''?summary必須創(chuàng)建一個(gè)委托并將對(duì)此委托的引用作為獲取縮略圖?callback?參數(shù)傳遞，但不使用此委托。/summary
Public?Function?ThumbnailCallback()?As?Boolean
Return?False
End?Function
'''?summary返回Image，表示圖像指定?寬?和?高?的縮略圖。/summary
Public?Function?獲取縮略圖(位圖?As?Bitmap,?寬?As?Integer,?高?As?Integer)?As?Image
Dim?myCallback?As?New?Image.GetThumbnailImageAbort(ThumbnailCallback)
Return?位圖.GetThumbnailImage(寬,?高,?myCallback,?IntPtr.Zero)
End?Function
分享標(biāo)題：vb.net讀入圖片 vb讀取圖片
本文地址：http://fisionsoft.com.cn/article/doehsic.html
