Pb de requete avec accessRésolu

Question

Bonjour, g un pb avec ma partie de code en gras ci-dessous, en fait je veux recuperer le numero le plus gran de mon champ 'Identifiant'. la requete a l'air de passer mais quan je fai " i = rst![Identifiant] " , ca menvoi une erreur "impossible de trouver l'objet dans la collection correspondant au nom ou a la r&#233;ference ordinale demand&#233;"

 Le code : 

Dim cnx As New ADODB.Connection
cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\bd1.mdb"
Dim rst As New ADODB.Recordset
rst.Open "SELECT Max(Identifiant) FROM stockPal", cnx, adOpenDynamic, adLockOptimistic
rst.MoveFirst
Dim i As Integer
 i = rst![Identifiant]
 rst.Close
 rst.Open "SELECT * FROM stockPal", cnx, adOpenDynamic, adLockOptimistic
 rst.AddNew
 rst![Identifiant] = txtIdentifiant.Text
 rst![Cod_Pal] = listCod_Pal.Text
 rst![NbColis] = listNbColis.Text
 rst.Update
 rst.Close
 cnx.Close

Merci davance ...

alexsimps2002 · Accepted Answer

Salut,
le fait de faire un max te cr&#233;e une expression, c pour &#231;a qu'il l'appelle expr1000. Si tu veux le modifier, tu fais select max(identifiant) as Identifiant from .... et &#231;a marchera quand tu fera rst![Identifiant].
Voila, c pas plus compliqu&#233; que &#231;a

Alexsimps 
La vie ne vaut rien mais rien ne vaut la vie

colibrialuile · Answer

c'est tout bete il fau mettre Microsoft Excel 9.0 object library en intermediaire

damiendu56 · Answer

nan ca marche pas meme en rajoutant ca. en fait g trouv&#233; . g tap&#233; ma requete directement sous access, la requete est bonne mais la valeur maximale recuperee n'est pas stock&#233;e dans un champ " Identifiant " mais dans un champ " Expr1000 ".

Donc apres ca marche quand je fais : 
 " i rst![Expr1000] " au lieu de " i rst![Identifiant] "

Donc quelqun peu mexpliquer pourqoi ca stock dan un champ " Expr1000 "   ????????????

damiendu56 · Answer

ok, en effet c tout simple  et ca marrange autant de retrouver le resultat dans un champ "Identifiant" plutot que dans un champ "Expr1000" . Merci bocou

cs_pjour · Answer

bjr, je veux effectuer une modification dans une base access &#224; travers mon appli vb.
J'effectue d&#233;j&#224; une insertion sans pb.

pour la modif, je souhaiterai  coder de la fa&#231;on suivante:

1/ on dblclick sur le champ afficher pour ouvrir une nouvelle forme avec le contenu des zones &#224; modifier.    L'op&#233;ration fonctionne,  l'erreur arrive avec la connection &#224; la base
2/ on modifie et on update.
J'ai cod&#233; la connection &#224; la base access dans le form_load de la form &#224; afficher qui servira &#224; modifier le champ. J'ai le code suivant:

    Set cnmodifMaDb1 = New ADODB.Connection
    Set rsmodifMaDb1 = New ADODB.Recordset
    Set rsmodifMaDb1 = New ADODB.Recordset
    MamodifDb1 = "C:\projetvbcourrier\courrier.mdb"
    ' construction de la cha&#238;ne de connection
    cnmodifStr1 = "driver={Microsoft Access Driver (*.mdb)};dbq=" & MamodifDb1
    ' ouverture de la base de donn&#233;es avec cette connexion
     cnmodifMaDb1.Open cnmodifStr1
    ' ouverture du recordset avec la requ&#234;te SQL int&#233;gr&#233;e
      ' rsMaDb.Open "SELECT  max(COMPTEUR) as maxcompteur ,compteur,NOM,PRENOM,APPARTEMENT,ARCHIVE,ETAGE,DATECREATION FROM courrier group by nom,prenom,appartement,etage,archive,datecreation,compteur;", cnMaDb, adOpenKeyset, adLockBatchOptimistic
'    MsgBox varcompteur
    rsmodifMaDb1.Open "SELECT  compteur, nom, prenom FROM courrier where compteur like '" & varcompteur & "' ;, cnmodifMaDb1, adOpenKeyset, adLockBatchOptimistic"
&#224; l'&#233;x&#233;cution j'ai l'erreur '3709'
impossible d'effectuer cette connexionpour effectuer cette op&#233;ration. Elle est ferm&#233;e ou non valide dans ce contexte.
Une id&#233;e ?
Merci.

Pb de requete avec access

5 réponses

Discussions similaires