Erreur d'ouverture de l'application sur Pocket PC

Question

Bonjour,
Voil&#224; je programme voil&#224; un certain temps sur VB5 et VB6. Et &#224; l'arriv&#233;e des Pocket Pc j'ai &#233;t&#233; interess&#233; de faire des programmes sur cette plateforme via eVB3. Donc j'ai fais une application qui est interfac&#233;e avec une base de donn&#233;es pocket access (.cdb).
Mon probl&#232;me c'est que quand je teste sur l'&#233;mulateur, je ne re&#231;ois aucune erreur mais quand je l'&#233;xecute que le Jornada je re&#231;ois un message d'erreur de type : "An error was encoutered while running this program 'La base de donn&#233;es \My Documents\abc.cdb' existe d&#233;j&#224;." J'ai verifi&#233; tout le disque mais je netrouve de doublon de la base de donn&#233;es.
Alors quel est le probl&#232;me? D'autant plus que je d&#233;clare la connection une seule fois au d&#233;but de l'application.

Merci de votre aide.

cboulas · Answer

Salut, vu le message d'erreur en fait ton appli essaie de cr&#233;er une base d&#233;j&#224; existante.


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

ngatech · Answer

Merci pour la r&#233;ponse :-)
C'est vrai que d'apr&#232;s le message l'appli essaie de cr&#233;er une base existante mais laquelle?
Moi je ne transfert que le fichier .cdb, il y a une et une seule copie. De plus je n'ai pas d'ordre de cr&#233;ation de table dans l'application, j'ai simplement une variable globale pour la connexion &#224; la base et une autre pour le recordset c'est tout.

Alors quoi faire?

Et merci encore une fois pour ta r&#233;ponse.

cboulas · Answer

J'ai fait quelques soft pour Pocket PC, mais je n'ai jamais utiliser de base de donn&#233;es avec le Pocket PC, peut-&#234;tre que dans la cha&#238;ne de connection il y a une propri&#233;t&#233; indiquant de cr&#233;er la base. &#224; moins que la base soit prot&#233;g&#233;e avec un mot de passe, ou truc de ce genre.
Comment ouvre tu ta base ?


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

ngatech · Answer

Non au fait la base n'est pas prot&#233;g&#233;e.
Quant &#224; l'ouverture voil&#224; la portion de code de l'ouverture : 

'Se produit &#224; l'activation de la form "MenuG" :
Private Sub Form_Activate()
    Set d = CreateObject("ADOCE.Connection.3.0")
    Set r = CreateObject("ADOCE.Recordset.3.0")
    
    d.Open ("Provider=CEDB;data source = \My Documents\abc.cdb")
End Sub

Le code qui suit se produit &#224; l'activation de la form "ConsoMens" :
Private Sub Form_Activate()
On Error Resume Next
    r.Open "Select * From Chantiers Order by Num", d, adOpenStatic, adLockOptimistic, adCmdText
    lstChantier.Clear
    lstChantier.AddItem "<Nouveau Chantier>"
    If r.RecordCount > 0 Then
        Do While Not r.EOF
            lstChantier.AddItem r.Fields(0).Value & " " & r.Fields(1).Value
            r.MoveNext
        Loop
    End If
    r.Close
    
    r.Open "Select * From Materiaux Order by Num", d, adOpenStatic, adLockOptimistic, adCmdText
    Do While Not r.EOF
        lstArt.AddItem r.Fields(0).Value & " " & r(1)
        r.MoveNext
    Loop
    r.Close
End Sub

Merci pour ton aide :-)

cboulas · Answer

Salut, alors l&#224; je pense avoir trouver ton pb, ce que MS entend par Activate, c'est &#224; chaque fois que ton appli arrive en premier plan, quelle soit charg&#233;e, que tu clique sur un boutton de la form, place plut&#244;t tes codes dans Form_Load, forc&#233;ment apr&#232;s il essaie d'ouvrir une base d&#233;j&#224; ouverte


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

ngatech · Answer

Merci pour l'info.
Je vais essayer de d&#233;placer mon code sur Form_Load et je te ferai part du r&#233;sultat.

Et merci encore!

Erreur d'ouverture de l'application sur Pocket PC

6 réponses

Discussions similaires