[vb.net] Requête SQLRésolu

Question

Salut !

J'ai un soucis avec une requ&#234;te SQL, voici mon code :
####################################################

' On r&#233;cup&#232;re la hauteur s&#233;lectionn&#233;e dans la combobox


Dim ht As Double


ht = CDbl(cmbBoxHauteur.SelectedItem)


ht = Math.Round(ht, 2)


' On recherche les faisceaux disponibles pour cette hauteur


Dim MyConnexion As OleDbConnection = New
 OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _


"C:\bd.mdb")


Dim Mycommand As
 OleDbCommand = MyConnexion.CreateCommand()


Mycommand.CommandText = "SELECT DISTINCT faisceau FROM produit WHERE hauteur=" & ht & ""


MyConnexion.Open()


Dim myReader As
 OleDbDataReader = Mycommand.ExecuteReader()


Do While
 myReader.Read()


cmbBoxFaisceau.Items.Add(myReader.GetInt32(0))


Loop


myReader.Close()


MyConnexion.Close()

####################################################
Je pense qu'il s'agit d'un probl&#232;me au niveau de la variable ht qui repr&#233;sente la hauteur ! Dans la base de donn&#233;es, hauteur est du type r&#233;el.
L'erreur affich&#233;e est :

Une exception non g&#233;r&#233;e du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll

Merci d'avance pour vos r&#233;ponses...

Alex

cs_steppenwolf · Accepted Answer

Au fait, j'ai la solution &#224; mon probl&#232;me :

Dim ht 
As 
Double


ht = 
CDbl(cmbBoxHauteur.SelectedItem)


ht = Math.Round(ht, 2)


Dim MyConnexion 
As OleDbConnection = 
New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _


"C:\bd.mdb")



Dim Mycommand 
As OleDbCommand = MyConnexion.CreateCommand()


Mycommand.CommandText = "SELECT DISTINCT faisceau FROM produit WHERE hauteur=?"



Dim HauteurParameter 
As 
New System.Data.OleDb.OleDbParameter("hauteur", System.Data.OleDb.OleDbType.Double, 0, "hauteur")


MyCommand.Parameters.Add(HauteurParameter)


HauteurParameter.Value = ht


MyConnexion.Open()



Dim myReader 
As OleDbDataReader = Mycommand.ExecuteReader()



Do 
While myReader.Read()


cmbBoxFaisceau.Items.Add(myReader.GetInt32(0))



Loop


myReader.Close()


MyConnexion.Close()

Et voila le travail...

A+
(merci &#224; FlorentG sur http://forum.hardware.fr/ qui m'a donn&#233; la solution)

cs_drahcir · Answer

Salut,

as-tu essay&#233; de mettre ta variable ht entre ' : 

"SELECT DISTINCT faisceau FROM produit WHERE hauteur='" & ht & "'"

De plpus je ne comprend pas pourquoi tu ajoute & "" &#224; la fin?

@+

cs_steppenwolf · Answer

je viens d'essayer ta solution ("SELECT DISTINCT faisceau FROM produit WHERE hauteur='" & ht & "'") mais tj la meme erreur ! 
Sans (& "" &#224; la fin) &#224; la fin ca fait une erreur de syntaxe !

cs_liquide · Answer

je ne connaissais pas le distinct, que veut il dire ?

Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide (Membre "Liquide-Fundation" -- tout ce qui peut etre bu est interdit -- les alcolo sont mals  , moi le 1er&n

cs_steppenwolf · Answer

DISTINCT permet de s&#233;lectionner les &#233;l&#233;ments et de supprimer les doublons !

[vb.net] Requête SQL

5 réponses

Discussions similaires