Discussion :

[williamkwr]

Bonjour,
je voudrais interroger une base de données access 2003 via le code vba de access 2003 sous access 2003 apres consultation de l'aide de VBA access sous access je sasisie les codes que voici

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
22
23
24
25
26
27
28
29
30
31
32
33
Public Function ty()
Dim Polic As String
Dim nom As String, prenom As String
Dim n As Integer, nb As Integer
Dim con As New ADODB.Connection
Dim requete As New ADODB.Command
Dim sp As New ADODB.Parameter
Dim record As New ADODB.Recordset
Dim Query_identitie As New ADODB.Command, Query_usage_code As New ADODB.Command, Query_usage As New ADODB.Command
Dim param_police As New ADODB.Parameter, param_code As New ADODB.Parameter
Dim Record_identitie As New ADODB.Recordset, Record_usage_code As New ADODB.Recordset, Record_usage As New ADODB.Recordset
Polic = "827/05/A/0014"
requete.CommandText = "SELECT Police, Nom, Prénom, Adresse,Telephone,Profession " & _
"FROM Clients " & _
"WHERE (Clients.Police=?);"
 
Query_usage_code.CommandText = "SELECT CodeUsage from Avenants " & _
"WHERE (Police=?);"
Query_usage.CommandText = "SELECT Libellé from Table des usages " & _
"WHERE (Code=?);"
requete.CommandType = adCmdText
requete.Prepared = True
Set sp = requete.CreateParameter("Police", adChar, adParamInput, 20, Polic)
'requete.Parameters.Append sp
requete.ActiveConnection = CurrentProject.Connection
MsgBox requete.CommandText, vbCritical, "Requet a produits :"
Set record = requete.Execute
n = record.RecordCount
record.MoveFirst
MsgBox record("Nom") & " " & record("Prénom"), vbCritical, "Requet a produits :"
 
End Function
:calim2:

mais j'ai une erreur que voici "Erreur d'exécution '-2147217904(80040e10)': Aucune valeur dennée pour 1 ou plusieurs des paramétrés requis"

s'il vous aidez moi

[argyronet]

Bonjour,

Dans un souci de lisibilité, il serait bon que tu aprrennes à coder avec les noms appropriés, ne serait-ce pour que l'on ait envie de et d'une arriver à te lire et de deux t'aider...

1/ pourquoi toutes ces variables ?
Les variables
-> Nom'
->'prenom'
->'nb'
->'con'
->'Query_identitie'
->'param_police'
->'param_code'
->'Record_identitie'
->'Record_usage_code'
->'Record_usage'
ne sont pas utilisées dans cette fonction !
2/ ty ? c'est une fonction ça...?
3/ pourquoi les instancier de la sorte sans les libérer ?
4/ pourquoi appeler une chèvre comme une clé anglaise ? Un objet Command ne peut pas d'un point du vue logique s'appeler requete !!!

Code :

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

Dim oCmd As ADODB.Command

Réécris ton code proprement sera la voie de la réponse...

Argy
Prend pas la mouche, j'ai mes jours de râleur invétéré...