vb點(diǎn)虐 如何讀取oracle數(shù)據(jù)庫(kù)中的圖片

Public Sub Combo1_Click()

我們提供的服務(wù)有：成都網(wǎng)站建設(shè)、成都做網(wǎng)站、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、興賓ssl等。為上千家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的興賓網(wǎng)站制作公司

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點(diǎn)虐 從數(shù)據(jù)庫(kù)讀取圖片循環(huán)顯示

假如b窗體是form2,在a窗體中調(diào)用B窗體，直接dim frm as new form2,然后frm.show()就OK

本文標(biāo)題：vb點(diǎn)虐 讀取圖片 vbnet讀取文件內(nèi)容
URL標(biāo)題：http://vcdvsql.cn/article0/ddegdoo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、虛擬主機(jī)、網(wǎng)站設(shè)計(jì)公司、網(wǎng)站改版、ChatGPT

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)