Discussion :

[boudincweole10]

Voilà, je dois créer un programme intégrant les bases de données. N'y connaissant pas grand chose en VB, je crèe mon application avec l'assistant création d'application et j'insère donc une table de ma base de données. Tout fonctionne bien et il me crèe mon application mais lorsque je veux la lancer il me dit comme erreur " Erreur de compilation : Type défini par l'utilisateur non défini "

Voici la partie de code qu'il me souligne

Code :

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

1
2
3
4
Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  'Ceci affichera la position de l'enregistrement actif pour ce jeu d'enregistrements
  datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition)
End Sub

Voyez-vous le problème?? merci d'avance

[jacma]

Bonsoir

...ByVal pRecordset As ADODB.Recordset)

C'st là le problème.
Mets:

Code :

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

ADODB.Recordset20

Pour plus d'information: http://support.microsoft.com/kb/222145/fr

[boudincweole10]

et je dois mettre et ?? à quoi ça sert en fait?? merci

[boudincweole10]

zut c'était le crochet b et le crochet /b

[boudincweole10]

en mettant

ADODB.Recordset20


ça ne marche pas non plus, j'ai la mm erreur :s

[jacma]

Quelle version d'ADO utilises-tu?

Les interfaces d'ADO version 2.1 et ultérieures ont été changées par rapport à la version 2.0. Il n'y a aucune solution avec cette nouvelle interface, à moins que de compiler le contrôle avec une version ancienne d'ADO.
Private
Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset20)
Notez bien que "20" a été ajouté à ADODB.Recordset dans l'argument de
pRecordset.

Concerne les évènements

FieldChangeComplete
MoveComplete
RecordChangeComplete
RecordsetChangeComplete
WillChangeField
WillChangeRecord
WillChangeRecordset
WillMove

[boudincweole10]

En fait, à la base mon erreur c'est "Type défini par l'utilisateur non défini"

Alors j'ai été dans Projet--> Références et là j'ai sélectionné Microsoft ActiveX Data Objects Library 2.0 et là il m'a mis l'erreur "La déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure du mm nom". Ensuite j'ai mis le 20 comme il est mis dans le lien que tu m'as donné et on me remet : "Type défini par l'utilisateur non défini".

Sinon la version d'ado je v voir où pr la connaitre?

[boudincweole10]

Dans Composant il y a Microsoft Ado Data Control 6.0 de coché...car j'ai installé le service pack 6. En fait je l'ai installé le sp6 car sinon je pouvais pas importer de fichier .mdb car ils provenaient de la version 2003 d'access et VB me disait que ça n'était pas reconnu...

[jacma]

Un petit exemple qui fonctionne tout à fait, testé et tout...

Dans les références du projet: Microsoft ActiveX Data Objects2.8 Library.
Dans les composants: Microsoft ADO Data Control 6.0 (SP6) (OLEDB) et Microsft DataGrid Control 6.0 (SP6) (OLEDB).
Dans la page de propriété du contrôle ADO, onglet Général, sélectionnes le bouton radio Utiliser une chaîne de connexion.. Défini la chaîne comme suis:

Code :

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

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Developpez.com\Data\Biblio2002.mdb;Persist Security Info=False

.
Dans l'onglet RecordSource, défini Type de commande à 2 - adCmdTable et Nom de la table à Publishers.
Saisis le code suivant dans la feuille de code:

Code :

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

1
2
3
4
5
6
7
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, _
        ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
        ByVal pRecordset As ADODB.Recordset)
 
  MsgBox Adodc1.Recordset.AbsolutePosition
 
End Sub

Et tu obtiens ceci:

[boudincweole10]

merci bcp pr votre aide!!!