十年網(wǎng)站開(kāi)發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專業(yè)推廣+無(wú)憂售后,網(wǎng)站問(wèn)題一站解決
Dim curSqlstr As String = "INSERT INTO Picture(picture_id, picture_area)" _

創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供臨縣網(wǎng)站建設(shè)、臨縣做網(wǎng)站、臨縣網(wǎng)站設(shè)計(jì)、臨縣網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、臨縣企業(yè)網(wǎng)站模板建站服務(wù),十載臨縣做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
"VALUES('" (i + 1).ToString() "','@picture_area ')"
你看這句中的,'@picture_area ')",多個(gè)單引號(hào)了,被當(dāng)成VARCHAR處理了.去了單引號(hào)才是變量.
圖片數(shù)據(jù)其實(shí)就是一組二進(jìn)制數(shù)據(jù)。你要存到csv中應(yīng)該是字符串格式。很少見(jiàn)這樣的存儲(chǔ)方式。你可以把數(shù)據(jù)存儲(chǔ)在數(shù)據(jù)庫(kù)中的呀。存取圖片就很好搞了
假如b窗體是form2,在a窗體中調(diào)用B窗體,直接dim frm as new form2,然后frm.show()就OK
Public Sub Combo1_Click()
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