affichages des données blob d'une base de données mysql
Bonjour chers amis développeurs, j'ai besoin de votre aide. en effet je développe une application de gestion qui store des données dans une Base de données mysql. j'ai enregistré des images dans celles-ci et je voudrais les afficher dans une une picturebox lors d'une requête.j'ai essayé ce code mais il ne passe
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| Dim conn As New MySqlConnection
Dim cmd As New MySqlCommand
Dim myData As MySqlDataReader
Dim SQL As String
Dim rawData() As Byte
Dim FileSize As UInt32 'taille de l'image
Dim fs As FileStream 'le fichier lui-meme
conn.ConnectionString = "server=127.0.0.1;" _ 'exemple de connection
& "uid=root;" _
& "pwd=12345;" _
& "database=test"
SQL = "SELECT file_name, file_size, file FROM file"
Try
conn.Open()
cmd.Connection = conn
cmd.CommandText = SQL
myData = cmd.ExecuteReader
If Not myData.HasRows Then Throw New Exception("There are no BLOBs to save")
myData.Read()
FileSize = myData.GetUInt32(myData.GetOrdinal("file_size"))
rawData = New Byte(FileSize) {}
myData.GetBytes(myData.GetOrdinal("file"), 0, rawData, 0, FileSize)
fs = New FileStream("C:\newfile.png", FileMode.OpenOrCreate, FileAccess.Write) 'sur le "C:\" le compilateur dit qu'il n'y a pas d autorisation, mais sur autre
fs.Write(rawData, 0, FileSize)
picturebox1.load("C:\newfile.png" ) 'disque il que le fichier est utilisé par un autre processus
fs.Close()
MessageBox.Show("File successfully written to disk!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk) |
alors que quelqu’un ait la générosité de m'aider. Merci
