Discussion :

[will2taz]

Bonjour à tous,

Voilà, je souhaiterais récupérer une colonne de ma base de données sous SQL Server, mais le problème est qu'elle est en type 'varbinary', qui, si je ne me trompe pas, corespond au type bytes sous Visual Basic .NET.

J'aimerais donc afficher cette valeur soit dans un datagridview (ce qui me parait assez difficile vu le type de données), soit dans un textbox.

Si quelqu'un pouvait m'aider sur la façon de procéder...

Merci beaucoup !

Will2taz

[Pol63]

varbinary c'est une suite d'octet
en vb c'est un tableau d'octets
dim octets() as byte

m'enfin un tableau d'octet tu peux le transformer en ce que tu veux

[will2taz]

Merci sperot51, peux tu m'aider pour ce qui est de la récupération de la valeur dans la base ? Car il me la transforme en String quand je veux l'afficher....

Merci

[Pol63]

quel est ton code qui récupère la valeur ?
si c'est le datagridview qui s'en occupe et que donc tu t'en sers en mode "automatique", il faut surement que tu traites ca dans la requete

si t'es en mode manuel, via un reader par exemple, tu peux faire la transformation en vb

enfin qu'a tu mis dans ce champ varbinary ?

[will2taz]

Voici mon code pour extaire la valeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim str AsString = "Data Source=SRVSQL;Initial Catalog=DBEMP;Persist Security Info=True;User ID=sa;Password=pass123"
Dim conn AsNew SqlConnection(str)
Try
conn.Open()
Dim cmd As SqlCommand = New SqlCommand("SELECT [SecretPasswd] from Employees")
Dim Resultat AsByte() = cmd.ExecuteScalar
conn.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreur lors de l'accès aux données")
EndTry

En fait, je souhaite récupérer la valeur [SecretPasswd] qui est stockée en Varbinary dans la base SQL Server, et l'affiché en tant que tel dans un textbox....

[Pol63]

pourquoi utiliser un varbinary si c'est pour y stocker une chaine de caractère
normalement le varbinary sert à mettre des images ou des fichiers

enfin essaye :

select convert([SecretPasswd],varchar) from employees

[will2taz]

En fait, je ne souhaite pas le convertir, je souhaite tout simplement récupérer la valeur comme par exemple : 0x030203F1200AE

Merci

[Pol63]

un tableau d'octet n'est pas en héxadécimal
donc il faudra bien faire une conversion à un moment ou à un autre car select d'un varbinary donne un tableau d'octets

moi j'aurais vu
Dim Resultat() As Byte = cmd.ExecuteScalar
plutot que
Dim Resultat As Byte() = cmd.ExecuteScalar
mais y a ptete pas de différence

après tu fais ce que tu veux avec ce tableau d'octet pour le convertir, en parcourant les octets via une boucle

[will2taz]

Voila ce que j'obtiens avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Resultat AsByte() = cmd.ExecuteScalar()
 
ForEach bt As Byte In Resultat
   MsgBox(bt)
Next

Résultat : "48 0 39 0 74..."

au lieu de : "0 x 30 00 27 00 4A..."

Avec l'un ou l'autre. Une idée ?

Merci.

[Pol63]

convertit ton tableau d'octet en héxadécimal si c'est de l'héxa que tu veux
l'héxa est basée sur 2 octets et non 1

[will2taz]

Merci, mais comme je débute, je ne sais pas comment faire pour convertire en héxa ...

Peux tu m'aider stp ?

Merci bcp !

[will2taz]

C'est bon, j ai trouvé !!!

Pour infos :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim Resultat() AsByte = cmd.ExecuteScalar()
Dim HexaStr AsString = ""
 
ForEach bt AsByteIn Resultat
 
If Hex(bt).Length = 1 Then
 HexaStr = HexaStr & 0 & Hex(bt)
Else
HexaStr = HexaStr & Hex(bt)
EndIf
Next
Me.TextBox1.Text = HexaStr

[will2taz]

C'est bon, j ai trouvé !!!

Pour infos :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim Resultat() AsByte = cmd.ExecuteScalar()
 
Dim HexaStr AsString = ""
 
ForEach bt AsByteIn Resultat
   If Hex(bt).Length = 1 Then
     HexaStr = HexaStr & 0 & Hex(bt)
   Else
     HexaStr = HexaStr & Hex(bt)
   EndIf
Next
 
Me.TextBox1.Text = HexaStr