Récupérer le résultat d'une requête SQL et la mettre dans une variable

Version imprimable

Bonjour à tous,

Je fais une application en VB.NET avec une base Access 2010.
Je voudrais mettre le résultat de ma requête SQL dans une variable mais je ne sais pas comment m'y prendre.
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
For j = 0 To dts.Tables("semaine").Rows.Count - 1
 
                Dim varTypeSem As String = rd.GetString(dts.Tables("semaine").Rows(i).Item("TypeSem"))
                secondSQL = "SELECT TypeSem FROM semaine WHERE noSemaine = varSemaine"
 
                rd = cmd.ExecuteReader()
                Do While rd.Read()
                    dtr("typeSemaine") = rd.GetString("TypeSem")
                Loop
            Next

Merci de votre aide

Tu peux passer par ExecuteScalar.

Code:

1
2
3
4
5
6
'...
secondSQL = "SELECT TypeSem FROM semaine WHERE noSemaine = varSemaine"
Dim cmd As New OleDbCommand(secondSQL , Taconnexion) 
Dim obj As Object  
obj = cmd.ExecuteScalar()
MessageBox.Show(obj.ToString())

En outre, mieux vaut adopter les bonnes pratiques en utilisant les requêtes paramétrées:

Code:

1
2
3
4
5
6
7
8
'...
secondSQL = "SELECT TypeSem FROM semaine WHERE noSemaine = ?varSemaine"
Dim cmd As New OleDbCommand(secondSQL , Taconnexion) 
Cmd.Parameters.AddWithValue("?varSemaine", TaValeur)
Taconnexion.Open() 
Dim obj As Object  
obj = cmd.ExecuteScalar()
MessageBox.Show(obj.ToString())

27/02/2014, 15h50
shayw

Bonjour

ce n'est pas plutot

Code:

secondSQL = "SELECT TypeSem FROM semaine WHERE noSemaine = [varSemaine?] ;"

:?

Citation:

Envoyé par shayw

Bonjour

ce n'est pas plutot

Code:

secondSQL = "SELECT TypeSem FROM semaine WHERE noSemaine = [varSemaine?] ;"

:?

Non. En revanche, il semblerait que le fournisseur OLEDB.NET ne prend pas en charge les paramètres nommés pour passer des paramètres à une instruction SQL ou à une procédure stockée. Donc la bonne syntaxe devrait être (j'ai ajouté la clause using pour faire plus propre):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim ConnString As String = "La chaine de connexion" Dim secondSQL As String = "SELECT TypeSem FROM semaine WHERE noSemaine = ?" Using conn As New OleDbConnection(ConnString) Using cmd As New OleDbCommand(secondSQL, conn) cmd.CommandType = CommandType.Text cmd.Parameters.AddWithValue("noSemaine", LaValeur) conn.Open() Dim obj As Object obj = cmd.ExecuteScalar() MessageBox.Show(obj.ToString()) End Using End Using
Plus de détails ici.

Même s'il ne les prend pas en charge, tu peux les nommer pour la lisibilité du codeur, seul l'ordre l'importe.

Par ex :

Code:

1
2
3
4
5
6
7
8
  req = "UPDATE Table SET CH_NOM= :nom, CH_PRENOM= :prenom"
 
With updateCommand.Parameters
                    .Add(New OleDbParameter(":nom", OleDbType.BSTR))
                    .Add(New OleDbParameter(":prenom", OleDbType.BSTR))
End With
 
'Marche bien.

Code:

1
2
3
4
5
6
7
8
  req = "UPDATE Table SET CH_NOM= :, CH_PRENOM= :"
 
With updateCommand.Parameters
                    .Add(New OleDbParameter(":nom", OleDbType.BSTR)) 'Remplira le 1er paramètre
                    .Add(New OleDbParameter(":prenom", OleDbType.BSTR)) 'Remplira le 2nd paramètre
End With
 
'Marche bien.

Code:

1
2
3
4
5
6
  req = "UPDATE Table SET CH_NOM= :Prenom, CH_PRENOM= :Nom"
 
With updateCommand.Parameters
                    .Add(New OleDbParameter(":nom", OleDbType.BSTR)) ' Affectera :Prenom
                    .Add(New OleDbParameter(":prenom", OleDbType.BSTR)) 'Affectera :Nom
End With

Code:

1
2
3
4
5
6
  req = "UPDATE Table SET CH_NOM= :Nom, CH_PRENOM= :Prenom"
 
With updateCommand.Parameters
                    .Add(New OleDbParameter(":prenom", OleDbType.BSTR)) 'Affectera :Nom
                    .Add(New OleDbParameter(":nom", OleDbType.BSTR)) ' Affectera :Prenom
End With

EDIT : L'exemple est avec le "deux-point (:)" mais c'est par réflexe d'Oracle, à remplacer par "?"

Merci à tous pour vos aides,
Je suis passé par un autre moyen mais vos conseils m'ont bien aidés.
Voici le code final :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim varSemaine = frmBReeducateur.txtNoCalendarSemaine.Text
 
            For j = 0 To dts.Tables("semaine").Rows.Count - 1
                secondSQL = "SELECT noSemaine, TypeSem FROM semaine"
                Dim en As IEnumerator
                en = dts.Tables("semaine").Rows.GetEnumerator
                en.Reset()
                Dim numSem As Integer
                Do While en.MoveNext()
                    numSem = en.Current("noSemaine")
                    If varSemaine = en.Current("noSemaine") Then
                        dtr("typeSemaine") = en.Current("TypeSem")
                    End If
                Loop
            Next

09/04/2014, 14h05
Jabbal'H
Quelques truc qui me gène dans ton code
Code:

1 2 Dim varSemaine = frmBReeducateur.txtNoCalendarSemaine.Text
C'est une chaine de caractère
Code:

1 2 3 Dim numSem As Integer numSem = en.Current("noSemaine")
C'est donc un entier
Code:

1 2 If varSemaine = en.Current("noSemaine") Then
Comparaison d'un entier et une chaine de carcatère, bon cast implicite

Mais c'est surtout que tu charge la variable "numSem" pour ne jamais l'utiliser !
Tu fais ton If sur le même appels pour charger la variable "numSem", tu fais donc deux appels à un dictionnaire alors que tu ne pourrais en faire qu'un.
La différence de perf est probablement négligeable, mais c'est surtout que ça me pique à chaque fois les yeux lorsque je vois çà, c'est une mauvais pratique.

Il faut faire attention à ne pas faire d'appels X fois à la même méthode qui te renverra de manière sur et certaine la même valeur.
Pour ce cas, la différence de perf est négligeable, mais si tu manipule des Web service par exemple, tu fais la chasse à ce genre de chose, cela n'a l'air de rien, mais ça peut te bouffer pas mal de temps au final.