salut a tous.
mon probleme se presente comme suit ; avec le code suivants je veux enregistrer puis afficher le resultat de l'enregistrement recement effectue dans un flex. mais curieusement la derniere ligne ne parvient a s'afficher malgre l'appel de la procedure de rafraichissement. Aidez moi a me rappeler ce que j'ai oublier dans le code ci apres;
'Dans un Module nommé MOD1
'------------------------
Public VBD as Adodb.Connexion
Public COmmande as Adodb.Command
'Procedure dans ce Module (MOD1)
'-------------------------------
Connexion ()
Set VBD = New ADODB.Connection
VBD.Provider = "Microsoft.jet.OLEDB.4.0;"
VBD.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\BDXFS.mdb;" & _
"Jet OLEDB:Database Password=MP"
' Configuration de la commande
' ----------------------------
Set Commande = New ADODB.Command
Commande.ActiveConnection = VBD
'Dans le module standard de Form1
'--------------------------------
'Procédure d'enregistrement
'--------------------------
Dim VTab As ADODB.Recordset
Set VTab = New Recordset
VTab.CursorLocation = adUseClient
VTab.CursorType = adOpenDynamic
VTab.LockType = adLockOptimistic