zouhair77
Messages postés27Date d'inscriptionjeudi 24 mars 2005StatutMembreDernière intervention 6 août 2007
-
19 oct. 2005 à 13:46
zouhair77
Messages postés27Date d'inscriptionjeudi 24 mars 2005StatutMembreDernière intervention 6 août 2007
-
20 oct. 2005 à 12:57
mon literal crée la premiere image correctement et toutes les autres sont entassées koike je lui change le TOP de l image comme vous verrez ds ma fonction
Public
Function images_promo(
ByVal marque
As
String)
Dim conn_pass
As
New SqlClient.SqlConnection("workstation id=TANIOS;packet size=4096;integrated security=SSPI;data source=TANIOS;persist security info=False;initial catalog=stock")
Dim command
As
New SqlClient.SqlCommand("select * from promotion where marque ='" & marque & "'", conn_pass)
conn_pass.Open()
Dim var_reader
As SqlClient.SqlDataReader
var_reader = command.ExecuteReader
Dim nbr_img
As
Integer
Dim var_top
As
Integer
Dim nom_image, lechemin
As
String
Dim mybyte
As
Byte()
var_top = 358
While (var_reader.Read())
nbr_img = nbr_img + 1
mybyte =
CType(var_reader.GetValue(2),
Byte())
Dim mybitmap
As
New Bitmap(
New System.IO.MemoryStream(mybyte))