1、實現(xiàn)上傳按鈕方法代碼。
成都創(chuàng)新互聯(lián)公司專注于崇左企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站開發(fā),成都做商城網(wǎng)站。崇左網(wǎng)站建設(shè)公司,為崇左等地區(qū)提供建站服務(wù)。全流程專業(yè)公司,專業(yè)設(shè)計,全程項目跟蹤,成都創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)
2、判斷圖片對象是否為空代碼。
3、取得數(shù)據(jù)庫字段 dt.Rows(0)("Pic")方法代碼。
4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。
5、處理SQL中操作Image類型方法代碼。
6、實現(xiàn)的上傳結(jié)果。
應(yīng)該是邊界溢出了,因為默認是0開始,所以 PictureBox1.Image.Width-1
同理PictureBox1.Image.Height - 1,不然行循環(huán)也會溢出
在VB 學(xué)習(xí)中,絕對路徑就是指帶有盤符的固定的路徑,比如“c:\windows\systems\a.exe” 而相對路徑則可用APP.PATH連接文件名來表示,比如:App.Path "\a.exe"
以vb學(xué)習(xí)中加載圖片為例,這樣就容易弄明白了。假設(shè)我們要在vb中加載一幅圖片,假設(shè)我們把這個加載圖片的程序保存在如下位置:"E:\aa-vbnew\加載圖片講解"而我們的圖片在"D:\My Files\圖畫\tong.jpg"
那么情況如下:1,在代碼中直接以絕對路徑表示加載到form1中,如圖所示:
顯示結(jié)果如下:
2,換一種方式,以相對路徑直接加載也可以。程序如圖:
結(jié)果如上圖。
下面分析如下:
第一種方式,我們使用的是圖片的完整路徑,就稱之為絕對路徑,也就是說不管我們的這個VB程序放到硬盤的任何位置,都完全可以顯示出來這幅圖片,因為圖片的路徑是絕對的,只要不改變圖片的路徑,那么就是絕對不變的。
第二種方式,我們使用的是圖片的相對路徑,相對于誰呢?是相對于我們的VB這個應(yīng)用程序和這幅圖片自身位置的。一旦我們的程序位置發(fā)生變化或者圖片的位置發(fā)生改變,那么這個程序都不可以執(zhí)行,不會顯示這幅圖片。所以說這就是相對路徑,是以一個參考對象而存在的。
Dim curSqlstr As String = "INSERT INTO Picture(picture_id, picture_area)" _
"VALUES('" (i + 1).ToString() "','@picture_area ')"
你看這句中的,'@picture_area ')",多個單引號了,被當(dāng)成VARCHAR處理了.去了單引號才是變量.
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
Dim?imgPhoto?As?System.Drawing.Image??=?System.Drawing.Image.FromFile("圖片路徑名")?
Dim?imgWidth?As?Integer?=?imgPhoto.Width??
Dim?imgHeight?As?Integer=?imgPhoto.Height
題主看懂了就采個納吧~