Requete parametrée access VB

Bonjour,

Après de nombreuses recherches sur internet, je n'ai toujours pas de réponse à mon problème...
Voici mon souci : J'ai une requete parametrée qui fonctionne sous access

SELECT Nom_indiv, Prenom_indiv
FROM Individu
WHERE Nom_indiv LIKE [Nom de l'élève :] & "*";

J'aimerai savoir comment faire en vb pour indiquer que le parametre de la requete est une textbox sans avoir à réécrire toute la requete (faire en quelque sorte une procédure stockée sous access et accessible avec Visual studio 2005), et comment mettre à jour la liste des élèves qui se charge entièrement lors de l'ouverture de la fenetre.

J'utilise ADODB.net...

Petite précision : il s'agit d'une simple requete paramétré que j'arrive pas à integré en vb. J'aimerai qu'en tapant le début d'un nom d'élève dans un textbox, la listbox se mette à jour et ne garde que les èléves ayant un nom commençant par le texte saisie.
A l'origine, la listbox contient tous les eleves de A à Z...

Si quelqu'un pouvait m'aider car là je bloque depuis un moment :cry: ;)

Tu travailles donc dans l'vent keypress de ta textbox et la requete est :

Citation:

---

"SELECT Nom_indiv, Prenom_indiv FROM " & Nom_Table & " WHERE Nom_indiv LIKE '" & Textbox1.text & "%'"

---

Voila et tu auras ce que tu veux ;)

Je suis d'accord sur ce point là... ça je sais faire :)
Cependant, le fait de recuperer la requete existante sous access et preciser à vb que le parametre dont il est question est la zone de saisie de mon application n'est pas résolu...

sql =" select * From nomDeMaRequete Where param ='" & txtnom.Text

J'aimerais trouvé un moyen qui me permettrais, en modifiant simplement la requete sous access, de modifier aussi la requete dans le code vb pour une utilisation plus simple :)

C'est peut etre un plus clair non ? C'est peut etre impossible à faire entre access et vb mais bon... je tente !!

La solution que vous m'avez donné, est la solution que j'envisageais de prendre si ce que je veux faire est impossible

Ah dans ce cas je ne pense pas que ce soit possible sous Access... je te conseille d'utiliser ma solution qui est simple et claire non ?

Citation:

---

Envoyé par Aspic

Ah dans ce cas je ne pense pas que ce soit possible sous Access... je te conseille d'utiliser ma solution qui est simple et claire non ?

---

:fessee:
Non, tu conseilles d'utiliser un paramètre SQL ;)

lucie22 :
Tu peux créer des paramètres SQL en VB aussi en utilisant maCommande.CreateParameter().
Ensuite tu renseignes le type du paramètre, la valeur et tu l'ajoutes dans la liste des paramètres de ta commande. Il ne reste plus qu'à l'exécuter comme tu le fais d'habitude, avec un ExecuteReader() par exemple.

Merci SaumonAgile, je vais essayer ta solution ;)

SaumonAgile :

Voilà le code que j'ai essayer de faire fonctionner:
(cmd est le nom de ma commande déclarée en globale)

Code:

---

1 2 3 4 5

Dim rsajout As New ADODB.Recordset sql = "SELECT * FROM Vue_nomeleve" cmd.CommandText = sql cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant) cmd.ActiveConnection = cnx

---

Code trouvé dans l'aide de Visual Studio 2005

Code:

---

1 2 3 4 5 6 7 8 9 10

' Retrieve CustomerID to search for. Dim ID As String = TextBox1.Text Dim query As String = _ "SELECT * FROM Orders WHERE CustomerID = @CustomerID" Dim cmd As SqlCommand = New SqlCommand(query, conn) cmd.Parameters.Add("@CustomerID", SqlDbType.VarChar, 5).Value = ID ' Code connecting to a data source has been omitted for brevity. Dim reader As SqlDataReader = cmd.ExecuteReader() ' Process results. reader.Close()

---

Je ne sais pas comment faire pour adapter le code de l'aide au mien, ni comment faire pour ajouter les parametres à la requete. J'ai trouve comment le creer mais après, je ne sais pas :)

Ceci devrait fonctionner :

Code:

---

1 2 3 4 5 6

Dim rsajout As New ADODB.Recordset sql = "SELECT * FROM Vue_nomeleve" cmd.CommandText = sql IDbParameter param = cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant) cmd.Parameters.Add(param) cmd.ActiveConnection = cnx

---

EDIT : Et la prochaine fois, essaie de penser aux balises [CODE] (le bouton # dans l'éditeur de texte) pour formatter ton code. Merci.

Merci, oui j'oubliais les balises désolée :)

J'ai essayer le code que tu m'as donner, il y a deux lignes qui ne passe pas... Décidement ;)

Code:

---

1 2	IDbParametre(param = cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant)) cmd.Parameters.Add(param)

---

Peux tu préciser l'erreur pour que SaumonAgile puisse t'aider ?

Citation:

---

Envoyé par lucie22

Merci, oui j'oubliais les balises désolée :)

J'ai essayer le code que tu m'as donner, il y a deux lignes qui ne passe pas... Décidement ;)

Code:

---

1 2	IDbParametre(param = cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant)) cmd.Parameters.Add(param)

---

---

Essaie avec :

Code:

---

IDataParameter param = cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant)

---

Je m'excuse car il est vrai que dans la précipitation avant d'aller en cours, j'ai oublier de préciser ou cela bloquait...

Code:

---

1 2 3 4

IDbParametre(param = cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant)) cmd.Parameters.Add(param)   IDataParameter param = cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant)

---

Dans les deux cas, mon problème se situe au niveau de "IDbParametre" ou de "IDataParameter". J'ai essayer les deux et à chaque fois, ça m'indique "Variable non déclarée"

Voilà pour la petite précision que j'avais oublié... Encore désolée :oops: ;)

C'est normal c'est pas du vb.net ! En vb.net ca donne :

Code:

---

1 2 3 4

IDbParametre(param = cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant)) cmd.Parameters.Add(param)   Dim param as IDataParameter = cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant)

---

Vue comme ça... Ca marche un peu mieux !! Cependant, (hé oui, mon problème persiste:cry:) après avoir lancer le débogage de l'application la ligne

Code:

---

Dim param As IDataParameter = cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant)

---

est surlignée en jaune avec le message suivant :

Impossible d'effectuer un cast d'un objet de type 'ADODB.InternalParameter' en type 'System.Data.IDataParameter'.

Peut etre ai-je oublié de préciser quelque chose dans mon code que voici ?

Code:

---

1 2 3 4 5

Dim param As IDataParameter = cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant) sql = "SELECT * FROM Vue_nomeleve" cmd.CommandText = sql cmd.ActiveConnection = cnx cmd.Execute()

---

Je seche là...:?

Peux tu me donner le code complet ?

Le message d'erreur veut dire que tu essayes de faire une conversion impossible.

Le code complet est celui que je t'ai donné...

Code:

---

1 2 3 4 5 6

Dim param As IDataParameter = cmd.CreateParameter(Ajoutereleve.Text, ADODB.DataTypeEnum.adVariant) sql = "SELECT * FROM Vue_nomeleve" cmd.CommandText = sql cmd.ActiveConnection = cnx cmd.Execute()

---

Je travail dans la procédure evenementielle textchanged... Et le code que j'ai est mis est ci-dessus.
La zone de saisie Ajoutereleve.Text est une zone dans laquelle j'ai autorisé que les lettres ;)
sql est une variable chaine déclarée en globale
cmd est egalement déclarée en globale en tant que ADODB.Command

voilà pour cette partie du code :cry: :lol:

Après un moi de recherche j'ai fini par trouver la solution à mon problème...
Je le mets dans ce post, car il pourrait servir à d'autre personne ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim rsAs New ADODB.Recordset Dim liste As New ADODB.Command   liste.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc liste.ActiveConnection = cnx liste.CommandText = "Nomrequete"   liste.Parameters("[monparam]").Type = ADODB.DataTypeEnum.adLongVarChar liste.Parameters("[monparam]").Size = 20 liste.Parameters("[monparam]").Value = zonedesaisie.Text rs = liste.Execute() listebox.Items.Clear() If Not rs.EOF Then Do While Not rs.EOF listebox.Items.Add(rs.Fields("Champ1").Value & " " & rs.Fields("Champ2").Value & " " & rs.Fields("Champ3").Value) rs.MoveNext() Loop End if

---

Voilà !! c'est tout !