Ouverture base commercial Objet métier

Bonjour,
Je commence à programmer avec Objet métier et j'ai un petit problème lors de la compilation erreur : "CptaApplication n'est pas un membre de Objet100Lib.BSCPTAApplication"

Voici le code que j'ai utilisé :

Code: Tout sélectionner

Option Strict Off
Imports Objets100Lib
Imports System
Public Class Form1
    Dim BaseCpta As New BSCPTAApplication
    Dim BaseCial As New BSCIALApplication
    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        If OuvreBaseCial(BaseCial, BaseCpta, "D:\SAGE BASE\TEST.gcm", "D:\SAGE BASE\TEST.mae", "<Administrateur>", "1886") Then
            MsgBox("Base Gestion Ouverte", BaseCial.Name)
            If FermeBaseCial(BaseCial) Then
                MsgBox("Base Gestion fermée", BaseCial.Name)
            End If
        End If
    End Sub
    Function OuvreBaseCial(ByRef BaseCial As BSCPTAApplication, ByRef BaseCpta As BSCPTAApplication, ByVal NomBaseCial As String, ByVal NomBaseCpta As String, Optional ByVal Utilisateur As String = "", Optional ByVal MotDePasse As String = "") As Boolean
        Try
            BaseCpta.Name = NomBaseCpta
            If Utilisateur <> "" Then
                BaseCpta.Loggable.UserName = Utilisateur
                BaseCpta.Loggable.UserPwd = MotDePasse
            End If
            BaseCial.CptaApplication = BaseCpta
            BaseCial.Name = NomBaseCial
            If Utilisateur <> "" Then
                BaseCial.Loggable.UserName = Utilisateur
                BaseCial.Loggable.UserPwd = MotDePasse
            End If
            BaseCial.Open()
            Return True
        Catch ex As Exception
            MsgBox("Erreur en ouverture de base gestion")
            Return False
        End Try
    End Function

    Function FermeBaseCial(ByRef BaseCial As BSCPTAApplication) As Boolean
        Try
            BaseCial.Close()
            Return True
        Catch ex As Exception
            MsgBox("Erreur à la fermeture de la base")
            Return False
        End Try
    End Function
End Class


Je ne comprend pas pourquoi il me met cette erreur sachant que ce code provient du manuel.
Merci

J'ai trouver l'erreur
Désolé.
C'est dans la déclaration de ma fonction j'ai fait une erreur. J'ai déclaré ma base commerciale en BSCPTAApplication

Cependant il ne veut toujours pas m'ouvrir ma base commerciale.
Je ne comprend pas pourquoi.
Lorsque j'essaie de l'ouvrir il me renvoi mon catch exception et me dit "Erreur d'ouverture de la base gestion".

Si quelqu'un a une idée.

MERCI

Bonjour.

Ce que tu peux faire, pour avoir plus d'informations sur ton problème, c'est d'afficher le détail d'exception. Ca t'aidera à régler le problème et ça te donnera plus d'indication.

Dans ton Catch, lors de l'affichage de ton erreur, affiche la valeur de "ex.message".

dans le cas d'un code console, tu aurais par exemple :

console.writeline("Erreur d'ouverture de la base commerciale : {0}",ex.message)

Dans cet exemple {0} est remplacé par la valeur de ton ex.message et tu a plus d'infos sur le bug.


Sinon regarde de coté des autorisations d'accès, du compte que tu spécifie, ...

Bon courage,

Yoann