Bonjour à tous,
Je soumet une requête a mon serveur MySql. Puis je récupère la valeur de retour. Cependant il se peut qu'il n'y ait pas de valeur correspondante dans la table.
Je ne parviens pas à réaliser un test cohérent avant d’exécuter ma requête.
Voir le ? ci dessous :
Je vous remercie par avance.
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
16
17
18
19
20
21 Dim Commande_SQL_Code_article As New MySqlCommand("SELECT ARTICLE FROM article WHERE (CODE_2=@Code_secondaire);", Connection_SQL) Dim Adapter_SQL As New MySql.Data.MySqlClient.MySqlDataAdapter Dim Data_SQL As MySql.Data.MySqlClient.MySqlDataReader Connection_SQL.ConnectionString = "chaine_de_connexion" Connection_SQL.Open() Commande_SQL_Code_article.Parameters.AddWithValue("@Code_secondaire", Code_secondaire) Adapter_SQL.SelectCommand = Commande_SQL_Code_article Data_SQL = Commande_SQL_Code_article.ExecuteReader() Data_SQL.Read() 'MsgBox("Code secondaire : " & Code_secondaire & Chr(10) & "Retour requete : " & Data_SQL.GetString("ARTICLE") & Chr(10) & "Nombre : " & Data_SQL.GetString("ARTICLE").Count) MsgBox(Commande_SQL_Code_article.) If ? Then Code_article = Data_SQL.GetString("ARTICLE") Else GoTo Suivant End If Data_SQL.Close() Commande_SQL_Code_article.Parameters.Clear()
A plus.
Partager