Discussion :

[nadong]

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 :

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

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

[callo]

Tu peux passer par ExecuteScalar.

Code vb.net :

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

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 vb.net :

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

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())

[shayw]

Bonjour

ce n'est pas plutot

Code :

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

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

[callo]

Bonjour

ce n'est pas plutot

Code :

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

 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 vb.net :

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

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.

[_Ez3kiel]

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 :

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

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 :

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

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 :

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

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 :

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

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 "?"

[nadong]

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 :

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 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

[Jabbal'H]

Quelques truc qui me gène dans ton code

Code :

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

1
2
 
Dim varSemaine = frmBReeducateur.txtNoCalendarSemaine.Text

C'est une chaine de caractère

Code :

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

1
2
3
 
Dim numSem As Integer
numSem = en.Current("noSemaine")

C'est donc un entier

Code :

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

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.