Discussion :

[cari]

bonjour, j'utilise un dataenvironnement.
je veux récupérer la valeur d'un champ avec "fields" .
mais l'erreur suivante s'affiche :
erreur d'execution 3704 : opération impossible, car l' objet n'est pas ouvert.

Code :

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

1
2
3
4
5
6
7
8
9
 
With frmClientE
        .Show
        DataEnv.rsClient.AddNew
        .[b]txtCode = GenereCode(Trim(DataEnv.rsParametreS.Fields(1).Value), DataEnv.rsParametreS.Fields(2).Value + 1)[/b]       
       .txtRaison.SetFocus
        .Tag = "0"
    End With
    Unload Me

[jacma]

Bonjour

Je ne sais pas comment tu as créé ton Data Enviroment, mais tu peux t'inspirer de ce qui suis, qui fonctionne bien.

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
Private Sub Form_load()
 
  Dim myDe As New DataEnvironment
  Dim myDEConnect As New Connection
  Dim myDECommand As New Command
  Dim rsAuthors As New Recordset
 
  myDEConnect.CursorLocation = adUseClient
  myDEConnect.Mode = adModeReadWrite
  myDEConnect.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Biblio2002.mdb")
 
  myDECommand.ActiveConnection = myDEConnect
  myDECommand.CommandType = adCmdText
  myDECommand.CommandText = "SELECT * FROM Authors"
 
  Set rsAuthors.DataSource = myDECommand.Execute
 
  MsgBox rsAuthors.RecordCount
 
End Sub

[jacma]

Suite à ma première réponse, tu peux trouver dans mon praticiel "Grille et recordset hiérarchique" accessible par un simple clic sur l'adresse en signature, une démarche faite avec le concepteur DataEnvironment. Et en plus du code, tu as une explication .

[cari]

ma base de données est sous sql server

[jacma]

Cela ne change rien. Entres les parametres pour accéder à ta base de données SQL et pour 'objet command. Ensuite, le simple code si dessous te montres comment il faut ouvrir le recordset sous jacent à l'objet command avant que de pouvoir l'utiliser (c'est ton message d'erreur )..

Code :

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

1
2
DataEnvironment2.rsCommand1.Open
MsgBox DataEnvironment2.rsCommand1.RecordCount

[Mehdi_ab]

bonjour
tu peux aussi faire un teste sur l'etat de la commande ,s'il est fermé tu l'ouvre :

Code :

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

if DatEnv.RsClients.State = 0 then DatEnv.RsClients.open

[cari]

merci Mehdi_ab et Jacma.
Il faut dire que c'est de state dont j'avais besoin pour avoir l'état du recordset.
J'ai pu aussi contourner la diffuclté en plaçant sur le formulaire un champ caché.

[jacma]

Merci de mettre le tag [Résolu]...