Discussion :

[talere]

Bonjour,

J'ai un soucis au sein de l'appli que je suis en train de créer. Celui ci concerne la mise à jour et la consulation d'une info d'un Recordset.

Mon recordset est ouvert en Keyset/lockPessimist avec un curseur coté serveur et fait appel à deux tables liée entre elles :

RS_Contenant ->
"SELECT Contenant.*,Element.Nom_Element FROM Element INNER JOIN Contenant ON Element.ID_Element=Contenant.Ref_Element WHERE Element.Type_Element=1 AND Contenant.Ref_Extraction=1".

Dans une fonction, je modifie la valeur de RS_Contenant !Ref_Element vers un nouveau element que je viens de crée ( par exemple, il passe de 4 à 7, changeant implicitement Nom_Element de "HP1" à "HP3" ). Ensuite, dans une autre fonction, j'intérroge RS_Contenant !Nom_Element :
J'ai vérifié, RS_Contenant pointe toujours sur le même enregistrement (j'ai controlé : le num auto est toujours le même) --> Comment cela se fait-il que RS_Contenant.nom_Element indique toujours l'ancien nom ? ( lorsque je relance l'application, et que la requete a été exécuté à nouveau, je n'ai plus de soucis).
J'ai bien fait un RS_Contenant.Update après la modification de Ref_Element, mais ceci ne semble rien faire. Je ne peux pas faire .requery car je dois conservé le curseur à sa position actuelle.

Merci pour votre aide.

[random]

c'est que un recordset n'est pas évolutif
il faut forcer l'évolution

interrogation
modif
nouvelle interrogation

voir requery

[talere]

Bonjour,

J'ai finalement résolu mon problème en créant en 2ème recordset, en faisant attention de bien synchronisé les deux (c'est pas évident)

Là je suis en train d'apprendre à comment utiliser un RS Hiérarchique, à priori, ça va me résoudre pas mal de soucis...

Encore Merci

TALERE

[jacma]

Là je suis en train d'apprendre à comment utiliser un RS Hiérarchique, à priori, ça va me résoudre pas mal de soucis...

Le provider Data Shape facilite grandement l'accès aux données hiérarchiques. Tu peux trouver une bonne approche du sujet notemment dans le praticiel 'Accès aux données avec ADO' (adresse en signature).

[talere]

Super ton praticiel ... il m'aide énormément, surtout pour pondre la requete grace au DataEnvironement ...

A ce sujet, j'aurais une question :
Au lancement de mon application, je peux demander à l'utilisateur quelle BDD utiliser ce qui ne me pose pas de problème lors de la 1ère connexion. Je mémorise ensuite ce nom dans le registre pour éviter de reposer la question à chaque démarrage.

Je lui donne aussi la possibilité de changer cette base de donnée quand il le souhaite (Dans la cas ou son travail concerne une autre BDD). Mon soucis est que je n'arrive pas à redémarrer mes RS lié à mon DataEnvirronement. Voila ce que je fais :

Après une boite de dialogue ouverture, voila ce que je fais :

Code :

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

1
2
3
4
 
If Acces_BDD.Cnx.State <> 0 Then Acces_BDD.Cnx.Close
Acces_BDD.Cnx.Properties("Data Source") = Base_Access.Path
Acces_BDD.Cnx.Open

Du coté de mon DataEnvirronement, lors de chaque connection, je fais pointer mes RS mères.

Code :

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

1
2
3
4
5
6
7
Private Sub Cnx_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
 
If rsSites.State = 0 Then rsSites.Open
If rsListe_sites.State = 0 Then rsListe_sites.Open
If rsListe_ateliers.State = 0 Then rsListe_ateliers.Open
 
End Sub

J'ai vérifié, il n'y a pas d'erreur de connection, les états de mes RS sont bien à 0, mais lorsque j'essaie de les ouvrir, voila ce que j'ai :

"Impossible d'utiliser cette connexion pour effectuer cette opération. Elle est fermée ou non valide dans ce contexte."

Qu'est-ce que j'ai oublié ?

Merci,

TALERE

[jacma]

Bonjour

Il te faut redéfinir ton objet Command. Le code suivant fonctionne correctement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Dim rsAuthors As New Recordset
With DataEnvironment1
  .Connection1.Close
  .Connection1 = "c:\didactdb\biblio2002.mdb"
  MsgBox .Connection1
  .Connection1.Open
  Dim mydecommand As New Command
  mydecommand.ActiveConnection = .Connection1
  mydecommand.CommandType = adCmdText
  mydecommand.CommandText = "SELECT * FROM Authors"
 
  Set rsAuthors.DataSource = mydecommand.Execute
 
  MsgBox rsAuthors.RecordCount

Dans la mesure ou tu veux jouer avec les command, je pense que tu devrais tout faire par code et non utiliser le concepteur. On vois mieux ainsi ce qui se passe.