type incompatible sous vb6

Question

slt svp qlq un peut m aider j ai le program suivant qui utilise une base de données et qui m affiche type incompatible lor de l execution
si vous pouvez m aider je serai tré reconnaissant
le programm es le suivant:

Private Sub Command1_Click()
On Error Resume Next
RDV.Recordset.Delete
RDV.Recordset.MoveNext
End Sub

Private Sub Form_Load()
HeureActuelle = Format(Time, "hh:mm")
End Sub

Private Sub Label6_Click()

End Sub

Private Sub RDV_Validate(Action As Integer, Save As Integer)

End Sub

Private Sub Timer1_Timer()
HeureActuelle = Format(Time, "hh:mm")
Dim MaBase As Database, MaTable As Recordset
Set MaBase = OpenDatabase( _
"C:\Documents and Settings\Administrateur\Mes documents\RDV.mdb")
Set MaTable = MaBase.OpenRecordset("RDV")
On Error Resume Next
MaTable.MoveFirst
Do Until MaTable.EOF
MaTable.EditIf Date MaTable("Date") And MaTable("Prévenir") True Then
 If Time >= DateAdd("n", -MaTable("Avant"), MaTable("Heure")) Then
  Beep
  Message = "Vous avez un rendez-vous dans " & MaTable(5) & _
  " minute(s)" & vbLf & "avec " & MaTable(0) & vbLf & _
  "à " & MaTable(1)
  MsgBox Message, vbInformation, "(-:) Rendez-vous (:-)"
  MaTable("Prévenir") = False
 End If
End If
MaTable.Update
If Date = MaTable("Date") And Time >= MaTable("Heure") Then
   MsgBox "Vous avez rendez-vous avec " & MaTable("Avec") & _
    " maintenant", vbCritical, "(-:) Rendez-vous (:-)"
   MaTable.Delete
End If
If MaTable("Date") < Date Then
   MaTable.Delete
End If
MaTable.MoveNext
Loop
RDV.Refresh
   
End Sub
 

j attend votr reponse et merci d avance

bricoyeye · Answer

Salut,
Si tu disais à quelle ligne çà coince???

radcur · Answer

d'apres moi tu tentes de faire une opération de date sur un champ de la base qui n'est pas de type date.

cs_maciass · Answer

non mai prkoi vous dites qu il n est pa de type date si vous voulez m aider je peux vous donner mon email pr vous envoyer le projet et le verifier vous mem
ok?
allé j attend votr rep et merci d avance.

jrivet · Answer

salut 
commence par nous dire la ligne qui donne l'erreur comme le demande à juste titre [auteur/BRICOYEYE/491288.aspx bricoyeye]

@+: Ju£i?n
Pensez: Réponse acceptée

cs_maciass · Answer

la lige qui donne l erreur est la suivante:
"C:\Documents and Settings\Administrateur\Mes documents\RDV.mdb")
Set MaTable = MaBase.OpenRecordset("RDV")
c pas un problem de compatibilité entr l access que j ai et la version d access utilisée par le vb6?
ce n etai qu une "?" je sui pa un pro en vb(je vien de le commencer)
alors c a vous de voir biensur chers amis et amies

bricoyeye · Answer

Salut,
La syntaxe est bonne, apparemment, ta table RDV existe elle bien dans ta base?
Quelle version d"access as tu?

cs_maciass · Answer

slt bricoyeye j ai l access 2007 pr le moment.mai je l ai testé avec l access 2003 et ca n a pa marché.pouvez vous me dire quel acces es le + compatible avec le vb6 version francaise(peut etr le 97 ou le 2000?)
merci pr votre attention
j atten votre reponse

bricoyeye · Answer

Salut,
Access 2003 marche trés bien.
Là tu est en ADO, donc tes variables sont mal indiquées:

Dim MaBase As DAO.Database
Dim MaTable As DAO.Recordset

Là, ça devrait marcher.

jrivet · Answer

Re,

>[auteur/BRICOYEYE/491288.aspx bricoyeye]"là tu est en ADO
, donc tes variables sont mal indiquées:": Ah non je ne pense pas . il est en DAO comme tu lui indiques dans les déclarations.

Il ferait d'ailleurs mieux, à mon sens de passer à ADO plutot que de continuer avec DAO

@+: Ju£i?n
Pensez: Réponse acceptée

bricoyeye · Answer

Salut,

Ses déclarations de variables sont "Dim MaBase As Database", donc par defaut en ADO, mais ses codes sont en DAO, donc incompatible.

C'est sûr que l'ADO est mieux, mais il doit réadapter tous ses codes!!

jrivet · Answer

Salut,
Je persiste en disant qu'il est en DAO puisque à ma connaissance l'objet DataBase n'existe PAS en ADO

<hr size="2" width="100%" />@+: Ju£i?n
Pensez: Réponse

bricoyeye · Answer

Salut,Jrivet
Comme dit dans mon poste un Recordset sans type est par défaut un recordset ADO, mais lui il est en DAO.
Ses codes:

Dim MaBase As DAO.Database
Dim MaTable As DAO.Recordset
Set MaBase = OpenDatabase("C:\Documents and Settings\Administrateur\Mes documents\RDV.mdb")
Set MaTable = MaBase.OpenRecordset("RDV", dbOpenDynaset)

jrivet · Answer

Salut,
Un recordset sera du type que tu as ajouté en référence... si tu n'ajoutes QUE DAO en référence il sera de type DAO (non?)

Tu penses qu'il a ajouter les deux références?

<hr size="2" width="100%" />@+: Ju£i?n
Pensez: Réponse

bricoyeye · Answer

Salut,
Non il n'a pas mis de type:
Dim MaBase As Database, MaTable As Recordset
Donc là par defaut sans le type il est en ADO.

jrivet · Answer

Re,
Non Moi sur mon VB6 si tu n'ajoutes aucune références, il te sera impossible de déclarer une variable de type recordset (non?).  il te diras Variable ou Type utilisateur non défini (ou un truc du style car je n'ai pas VB sous la main)

Ou alors cela fait des années que je rajoutes des références pour rien...

<hr size="2" width="100%" />@+: Ju£i?n
Pensez: Réponse

cs_maciass · Answer

slt j ai tenté ce que vous m avez di cher bricoyeye mais ca n a pa marché donc le jrivet avait raison .alor que pensez vous?
merci pour votr aide et votre serviabilité(bricoyeye, jrivet).

cs_maciass · Answer

y a t il pas un moyen pr que je vous envoi mon projet pour voir si ca peut marcher sur votr machine et peut etr  que comm ca vous arriverez facilement a detecter l emplacement de l erreur.j atten votr rep.
j ai vraiment besoin de votr aide
merci et a bientot.

cs_maciass · Answer

merci a bricoyeye c quelqu un de bien

Type incompatible sous vb6

18 réponses

Votre réponse

Discussions similaires