作者gbmail (做了好長的夢)
看板Visual_Basic
標題[.NET] BLOB傳MySQL資料庫
時間Fri Sep 5 12:14:27 2008
請輸入專案類型(網站專案或者應用程式專案)：應用程式專案
這幾天參考了很多範例
但大部分都是vb2005 + sql server的寫法
總之拼拼湊湊vb2005 + mysql5 一般的資料也是可以進去了
但BLOB的資料怎麼樣都進不去
換了很多種方法也都是在"addEmp.ExecuteNonQuery()"錯誤
煩請各位先進能提供些解決辦法嗎?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim myConnectionString As String
Dim asc() As Byte = Getasc(Application.StartupPath & _
"\Images\CEH_20020304000000.asc")
myConnectionString = "server=xxx.xxx.xxx.xxx;" _
& "uid=xxxx;" _
& "pwd=xxxx;" _
& "database=test;"
Try
Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
Select Case ex.Number
Case 0
MsgBox("Cannot connect to server. Contact administrator")
Case 1045
MsgBox("Invalid username/password, please try again")
End Select
End Try
'-------------------------------------------------------------------
Dim myConnection As New MySqlClient.MySqlConnection(myConnectionString)
Dim addEmp As MySqlClient.MySqlCommand = New MySqlClient.MySqlCommand("INSERT INTO test (date, value)" &
"Values(20080904120000,@asc)", myConnection)
addEmp.Parameters.Add("@asc", SqlDbType.Binary, Int(asc.Length)).Value = asc
myConnection.Open()
addEmp.ExecuteNonQuery()
myConnection.Close()
End Sub
Public Shared Function Getasc(ByVal filePath As String) As Byte()
Dim fs As FileStream = New FileStream(filePath, FileMode.Open, FileAccess.Read)
Dim br As BinaryReader = New BinaryReader(fs)
Dim asc() As Byte = br.ReadBytes(fs.Length)
br.Close()
fs.Close()
Return asc
End Function
--
╱ ▅ ███▆ ◥█◥◥█ ▇▇▂███◤▄ ╲
╱ 做研究的人們啊 ▅ ◥█___
▍ ◥ ◥▌ ████◤▅分一點章節給 ╲
╱ ╱ ▄◥ ██◤▃▅ 想要畢業的我
╱
╱ ◣ ▁▄▆ 吧！╲
╲
╱╱
╱ ◤ ◤` ◢ ▏ ╲ ╲
╲
ψraepopo ∕
/ /│
▉ ▊ ▆▆ 6▏ ▎│
\ \ ﹨
╲
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.124.61.111
1F：→ gbmail:參考MySQL網站範例已解決 09/05 14:25