cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
16 juin 2005 à 14:05
cs_frop01
Messages postés1352Date d'inscriptionlundi 27 octobre 2003StatutMembreDernière intervention19 novembre 2008
-
16 juin 2005 à 14:32
Salut...
Je suis en VB6 avec ADO
Je me suis créé un prog pour faire un recherche et pour ajouter des info dans ma table ACCESS.
Le prog va tres bien jusqu'à ce que je fasse une recherche.
J'ai les boutons suivants Suivant, Précédant, Update et Ajout.
Aussitôt que je fais une Recherche tout mes boutons ne fonctionnent plus.
Je n'y comprend rien....
Je vous annexe la totalité de mon code....
On dirait qu'il ne reconnais plus ma Variable BD...
Aidez moi svp...
Meric d'avance
'Déclaration des deux variables pour la connexion
Dim Connection As New ADODB.Connection
Dim BD As New ADODB.Recordset
'Dim BDTravauxenCours2005 As New ADODB.Recordset
Private Sub Form_Load()
'Set Connection = New ADODB.Connection
'Type de bases de donnée pour la connexion (Pour Acces 2000 (4.0), pour la version 95 et 97 (3.51)
Connection.Provider = "Microsoft.jet.OLEDB.4.0"
'Chemin de la base de donnée (APP.PATH permet de ce mettre dans le chemin
'courant la ou ce trouve le projet)- Paramettrage de la chaine de connection
Connection.ConnectionString = App.Path & "\LISTE_DE_JOBS.mdb"
'Ouverture de la connection
Connection.Open
'Ouverture de la requête sql dans le recordset
BD.Open "Select * from GES_TEMPS", Connection, adOpenDynamic, adLockOptimistic
'BDTravauxenCours2005.Open "Select * from TRAVAUX EN COURS 2005", Connection, adOpenDynamic, adLockOptimistic
BD.Open "SELECT * FROM [GES_TEMPS] WHERE [DOSSIER] like '%" & txtRecherche.Text & "%' AND [EMPLOYER] like '%" & ListTempsEmployesRecherche.Text & "%'", Connection, adOpenKeyset, adLockBatchOptimistic
'Permet d'aller après le dernier enregistrement qui correspond
'à la dernière ligne dans la base de donnée
Chargement
BD.AddNew
End Sub
Private Sub cmdPrecedent_Click()
'Permet d'aller a l'enregistrement précédent dans la table
Chargement
BD.MovePrevious
'S'il n'y a plus d'enregistrement aller au premier
If BD.BOF Then
BD.MoveFirst
End If
End Sub
Private Sub cmdSuivant_Click()
Chargement
'Permet d'aller a l'enregistrement suivant dans la table
BD.MoveNext
'S'il n'y a plus d'enregistrement, aller au dernier
If BD.EOF Then
BD.MoveLast
End If
End Sub
Private Sub cmdSupprimer_Click()
Supression = MsgBox("Êtes-vous certain de vouloir suprimer ce Dossier?", vbYesNo, "Attention")
If Supression = vbYes Then
'Permet de supprimer l'enregistrement en cour
BD.Delete
BD.MovePrevious
'S'il n'y a plus d'enregistrement aller au premier
If BD.BOF Then
BD.MoveFirst
End If
Else
BD.Update
End If
End Sub
Private Sub cmdUpDate_Click()
'Permet d'enregistrer dans la base de donnée l'ajout que l'on souhaite faire
