VB.NET中怎么將圖片和MP3等存進(jìn)SQL server2000的數(shù)據(jù)庫(kù)中？

為圖片、照片、MP3、rmvb指定專屬文件名稱和文件夾，SQL數(shù)據(jù)庫(kù)中定義字符串字段存儲(chǔ)他們的路徑。

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

制作對(duì)應(yīng)控件，綁定到對(duì)應(yīng)的文件類型上去。

范例 網(wǎng)頁(yè)中插入圖片 圖片來(lái)源數(shù)據(jù)庫(kù)

1、在網(wǎng)站主目錄下建立一個(gè)文件夾 Photo 將 張三.jpg圖片存進(jìn)去

2、數(shù)據(jù)庫(kù)表1.字段1中存放 張三

3、在pic.aspx中使用一個(gè)Image控件 ID=Image1

4、pic.aspx.cs文件中代碼如下

string x=""

*****************//查詢數(shù)據(jù)庫(kù) 并將"張三"賦值給x這部分代碼省略

Image1.ImageUrl = "/photo/" + x.ToString() + ".jpg";

希望能解決你的問(wèn)題。

vb.net2003如何將二進(jìn)制流轉(zhuǎn)換成圖片顯示在網(wǎng)頁(yè)上?

好像沒有什么好辦法，你只有不用數(shù)值型的文本框，還是改用字符型的，這樣不論點(diǎn)擊哪里光標(biāo)都會(huì)出現(xiàn)在最前面，然后在代碼中用val()函數(shù)將其轉(zhuǎn)換為數(shù)值型

VB UTF-8 問(wèn)題

Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long

Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Const CP_UTF8 = 65001

Function Utf8ToUnicode(ByRef Utf() As Byte) As String

Dim lRet As Long

Dim lLength As Long

Dim lBufferSize As Long

lLength = UBound(Utf) - LBound(Utf) + 1

If lLength = 0 Then Exit Function

lBufferSize = lLength * 2

Utf8ToUnicode = String$(lBufferSize, Chr(0))

lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf(0)), lLength, StrPtr(Utf8ToUnicode), lBufferSize)

If lRet 0 Then

Utf8ToUnicode = Left(Utf8ToUnicode, lRet)

End If

End Function

Private Sub Form_Load()

Dim a As String

Dim b() As Byte

Dim i As Integer

a = "E9 A2 91 E9 81 93 31 00"

ReDim b(UBound(Split(a, " ")) - 1) As Byte

For i = 0 To UBound(Split(a, " ")) - 1

b(i) = "H" Split(a, " ")(i)

Next i

Text1.Text = Utf8ToUnicode(b())

End Sub

vb.net(2008)把圖片(或其它類型文件)轉(zhuǎn)換成字符串存入.txt文件中，并從.txt中讀出生成圖片

這個(gè)做法應(yīng)該是圖方便的加密解密做法。按你的C#代碼來(lái)改的話是這樣的。

'Imports System.IO

Public Function MapPath(ByVal virtualPath As String) As String

' Return System.Web.Hosting.MapPath(virtualPath)

' 猜想是這個(gè) MapPath 函數(shù)

' 如果不是那就自己還原原來(lái)C#代碼里的那個(gè)MapPath

End Function

Public Sub GetImage()

Dim s As System.IO.Stream = System.IO.File.Open(MapPath("33.jpg"), System.IO.FileMode.Open)

Dim leng As Integer = 0

If s.Length Int32.MaxValue Then

leng = s.Length

End If

Dim by(leng) As Byte

s.Read(by, 0, leng) ' 把圖片讀到字節(jié)數(shù)組中

s.Close()

Dim str As String = Convert.ToBase64String(by) ' 把字節(jié)數(shù)組轉(zhuǎn)換成字符串

Dim sw As System.IO.StreamWriter = System.IO.File.CreateText(MapPath("11.txt")) ' 存入11.txt文件

sw.Write(str)

sw.Close()

sw.Dispose()

End Sub

' 把字符串還原成圖片

Public Sub CreateImg()

Dim sr As New System.IO.StreamReader(MapPath("11.txt"))

Dim s As String = sr.ReadToEnd()

sr.Close()

Dim buf As Byte() = Convert.FromBase64String(s) ' 把字符串讀到字節(jié)數(shù)組中

Dim ms As New System.IO.MemoryStream(buf)

Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(ms)

img.Save(MapPath("12.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)

ms.Close()

ms.Dispose()

End Sub

vb.net文件讀取txt

1、實(shí)現(xiàn)上傳按鈕方法代碼。

2、判斷圖片對(duì)象是否為空代碼。

3、取得數(shù)據(jù)庫(kù)字段 dt.Rows(0)("Pic")方法代碼。

4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。

5、處理SQL中操作Image類型方法代碼。

6、實(shí)現(xiàn)的上傳結(jié)果。

本文題目：vb.net圖片轉(zhuǎn)字符的簡(jiǎn)單介紹
文章網(wǎng)址：http://chinadenli.net/article48/dodoihp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、小程序開發(fā)、商城網(wǎng)站、服務(wù)器托管、網(wǎng)站排名、面包屑導(dǎo)航

廣告

聲明：本網(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)