Probleme requete sql vb6

ykowilfried Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
ykowilfried Messages postés 2 Date d'inscription Statut Membre Dernière intervention - 18 mai 2017 à 10:06

Bonjour,

je travail sur un projet et je suis un débutant en vb6
j'ai créer un champ recherche avec un textbox et un commande appeler recherche
et quand je rentre ma requête sel dans on code vb il n y a une erreur qui s'affiche:

"aucune valeur donnée pour un ou plusieurs des paramètre requis"

voici mon code:
Private Sub cmdok_Click()
BDSALON.rsClient.Close
BDSALON.rsClient.Open "select*from CLIENT where CODE_CLI='" & Text1.Text & "'or NOM_PRENOM_CLI='" & Text1.Text & "'"
DataGrid1.Refresh
If BDSALON.rsClient.EOF Then
MsgBox "Donnée introuvable", vbCritical, "Message"
Else
Set DataGrid1.DataSource = BDSALON.rsArticle
End If
End Sub

merci cordialemenent

A voir également:

Probleme requete sql vb6
Vb6 - Télécharger - Divers Utilitaires
Logiciel sql - Télécharger - Bases de données
Sql lister les tables ✓ - Forum Programmation
Requête bloquée par le pare-feu applicatif claranet webfence ✓ - Forum Réseaux sociaux
Jointure sql ✓ - Forum MySQL

1 réponse

Réponse 1 / 1

Kalissi Messages postés 218 Date d'inscription Statut Membre Dernière intervention 20

Bonjour,

Dans un premier temps, il manque des espaces dans la chaine de caractères qui forme la requête.


Dim Chaine As String

Chaine = "Select * From CLIENT Where CODE_CLI= ' " & Text1.Text & " ' Or  NOM_PRENOM_CLI= ' " & Text1.Text & " ' "
BDSALON.rsClient.Open Chaine

Bien que certains espaces ne soit pas requis, une bonne habitude est de rendre le code facilement lisible.

K

ykowilfried Messages postés 2 Date d'inscription Statut Membre Dernière intervention

Merci pour ta méthode mais sa ne marche pas le message d'erreur est: un objet est requis
j'ai ressayer de réécrire mon code le même message est apparu: un objet est requis pour la 2 eme ligne du code

BDSALON.ConBDSALON.Close
BDSALON.ConBDSALON.Open " select*From CLIENT where NOM_PRENOM_CLI= '%" & txtseach.Text & "%' or CODE_CLI='%" & Text1.Text & "%'"
DataGrid1.Refresh
If BDSALON.rsClient.EOF Then
MsgBox "Donnée introuvable", vbCritical, "Message"
Else
Set DataGrid1.DataSource = BDSALON.rsClient
End If

Discussions similaires

Certification Pix - Python et SQL

Afficher le résultat d'une requête SQL dans une zone de texte

Additions et multiplication dans des requêtes SQL

Qu'est ce qu'un BLOB en SQL ou MySQL?

[PL/SQL] le rôle exact du (+) dans une clause

Votre réponse

Discussions similaires