EDMX et bd office access

Fermé

yacinezaz2015 Messages postés 5 Date d'inscription lundi 22 juin 2015 Statut Membre Dernière intervention 8 juillet 2015 - 8 juil. 2015 à 16:30
Whismeril Messages postés 19029 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 26 avril 2024 - 16 oct. 2015 à 06:47

bonjour. je cherche les étapes pour connecter a une bd office access en utilisant edm VS2010
merci d'avance

A voir également:

EDMX et bd office access
Telecharger office 2019 - Télécharger - Traitement de texte
Libre office gratuit - Télécharger - Suite bureautique
LibreOffice PC : installer la suite bureautique gratuite - Guide
Office gratuit - Guide
Office pas cher - Guide

1 réponse

Réponse 1 / 1

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
Modifié par Whismeril le 16/10/2015 à 06:46

Bonjour,

je na sais pas ce que vous voulez dire par edm ...

je travaille par couche de traitement ...

Interface - Couche du formulaire
Service - Logique d'affaire
Données - Unité d'accès aux données ( CDA en ou UAD fr)

lorsque j'instancie mon uad ça donne ceci :

    Public Sub New(ByVal pContexte As Type_Contexte)
        MyBase.new()
        Contexte = pContexte

        Try
            ' Parametrage de la chaine de connection
            Connexion.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;" & "Data Source= " & Contexte.CheminBD & ";"
            Connexion.Open()
        Catch exZ As ZcException
            StrTexte.AppendLine(ZcExceptionMsg.MSG500001)
            StrTexte.AppendLine("Chemin de la BD : " & Chemin)
            StrTexte.AppendLine("Constructeur VIDEO_SQL")
            MessageBox.Show(StrTexte.ToString)
        End Try


    End Sub

et mes méthodes de l'uad sont :

    Public Function Obtenir_Liste_Videos(ByVal Critere As Type_Criteres) As Type_Collection

        'Dim _guid As Guid = XPU_Traceur.Entree
        Debug.WriteLine("Entree - Video_SQL - Obtenir_Liste_Videos")
        Tracage.LigneTracage("Entree - VIDEO_SQL : Obtenir_Liste_Videos", Contexte)

        Dim MonAdapteur As OleDb.OleDbDataAdapter = Nothing
        Dim MonDataTable As DataTable = Nothing
        Dim MonDataSet As New DataSet()
        Dim DataRowLocal As DataRow
        Dim MaCollection As New Type_Collection
        Dim MonEntite As New Type_Entite
        Dim ErrFat As ZcException = Nothing

        Try
            Dim reqSQL As String = Video_REQ.ObtenirSQL_Liste_Video(Critere)

            MonAdapteur = New OleDbDataAdapter(reqSQL, Connexion)
            MonAdapteur.Fill(MonDataSet, "TableVideo")
            MonDataTable = MonDataSet.Tables("TableVideo")

            For Each DataRowLocal In MonDataTable.Rows
                MonEntite = CreerInstance(DataRowLocal, Contexte)
                MaCollection.Add(MonEntite)
            Next

            Debug.WriteLine("Sortie - Video_SQL - Obtenir_Liste_Videos")
            Tracage.LigneTracage("Sortie - VIDEO_SQL : Obtenir_Liste_Videos", Contexte)

        Catch ex As Exception
            Debug.WriteLine("Erreur - Video_SQL - Obtenir_Liste_Videos")
            Tracage.LigneTracage("Erreur - VIDEO_SQL : Obtenir_Liste_Videos", Contexte)
            Tracage.Chemin = Contexte.CheminLog
            Tracage.Programme = "WinVidéo"
            Tracage.Methodes = "Obtenir_Liste_Videos"
            ErrFat = New ZcException(ex, Tracage.Methodes)
            ErrFat.LeverException()
            MaCollection = Nothing
        End Try

        Return MaCollection

    End Function

la requête :
Video_REQ.ObtenirSQL_Liste_Video(Critere)

    Friend Shared ReadOnly Property MiseAJourGlobale(ByVal Entite As Type_Entite) As String
        Get
            Dim ReqSQL As String = ""

            ReqSQL = _
                    "UPDATE " & Type_Indices.NomTable & " " & _
                    "SET " & _
                        Type_Indices.MediaCassette & " = " & """" & Entite.MediaCassette & """" & ", " & _
                        Type_Indices.MediaAnnee & " = '" & Entite.MediaAnnee & "', " & _
                        Type_Indices.MediaTitreFrancais & " = " & """" & Entite.MediaTitre_Francais & """" & ", " & _
                        Type_Indices.MediaEpisode & " = " & """" & Entite.MediaEpisode & """" & ", " & _
                        Type_Indices.MediaNationalite & " = " & """" & Entite.MediaNationalite & """" & ", " & _
                        Type_Indices.MediaStyle & " = " & """" & Entite.MediaStyle & """" & ", " & _
                        Type_Indices.MediaCategorie & " = " & """" & Entite.MediaCategorie & """" & ", " & _
                        Type_Indices.MediaDuree & " = " & """" & Entite.MediaDuree & """" & ", " & _
                        Type_Indices.MediaCote & " = '" & Entite.MediaCote & "', " & _
                        Type_Indices.MediaRealisateur & " = " & """" & Entite.MediaRealisateur & """" & ", " & _
                        Type_Indices.MediaSerie & " = " & """" & Entite.MediaSerie & """" & ", " & _
                        Type_Indices.MediaTitreAnglais & " = " & """" & Entite.MediaTitreAnglais & """" & ", " & _
                        Type_Indices.MediaMode & " = " & """" & Entite.MediaMode & """" & ", " & _
                        Type_Indices.MediaFicheOK & " = " & """" & Entite.MediaFiche_OK & """" & ", " & _
                        Type_Indices.MediaStock & " = " & """" & Entite.MediaStock & """" & ", " & _
                        Type_Indices.MediaClasse & " = " & """" & Entite.MediaClasse & """" & ", " & _
                        Type_Indices.MediaType & " = " & """" & Entite.MediaType & """" & ", " & _
                        Type_Indices.MediaQualite & " = '" & Entite.MediaQualite & "', " & _
                        Type_Indices.MediaCritiques & " = '" & Entite.MediaCritiques & "', " & _
                        Type_Indices.MediaActeurs_P & " = " & """" & Entite.MediaActeurs_P & """" & ", " & _
                        Type_Indices.MediaActeurs_S & " = " & """" & Entite.MediaActeurs_S & """" & ", " & _
                        Type_Indices.MediaAffiche & " = " & """" & Entite.MediaAffiche & """" & _
                   " WHERE (((" & Type_Indices.NomTable & "." & Type_Indices.MediaNumeroCode & ") = " & """" & Entite.MediaNumeroCode & """" & "));"

            Return ReqSQL

        End Get

    End Property

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
Modifié par Whismeril le 16/10/2015 à 06:46

ah !

creer instance de mon objet :

   Private Function CreerInstance(ByVal objet As DataRow, ByVal Contexte As Type_Contexte) As Type_Entite

        Debug.WriteLine("Entree - VIDEO_SQL : CreerInstance")
        'Tracage.LigneTracage("Entree - VIDEO_SQL : CreerInstance", Contexte)

        Dim clientEntite As Type_Entite = New Type_Entite

        Try

            With clientEntite

                If (objet.Item(Type_Indices.ColumnIndex_MediaCassette) IsNot Nothing) Then
                    .MediaCassette = (objet.Item(Type_Indices.ColumnIndex_MediaCassette).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaAnnee) IsNot Nothing) Then
                    .MediaAnnee = Convert.ToInt32(objet.Item(Type_Indices.ColumnIndex_MediaAnnee))
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaTitreFrancais) IsNot Nothing) Then
                    .MediaTitre_Francais = (objet.Item(Type_Indices.MediaTitreFrancais).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaEpisode) IsNot Nothing) Then
                    .MediaEpisode = Convert.ToInt32(objet.Item(Type_Indices.ColumnIndex_MediaEpisode))
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaNationalite) IsNot Nothing) Then
                    .MediaNationalite = (objet.Item(Type_Indices.ColumnIndex_MediaNationalite).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaStyle) IsNot Nothing) Then
                    .MediaStyle = (objet.Item(Type_Indices.ColumnIndex_MediaStyle).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaCategorie) IsNot Nothing) Then
                    .MediaCategorie = (objet.Item(Type_Indices.ColumnIndex_MediaCategorie).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaDuree) IsNot Nothing) Then
                    .MediaDuree = (objet.Item(Type_Indices.ColumnIndex_MediaDuree).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaCote) IsNot Nothing) Then
                    .MediaCote = Convert.ToInt32(objet.Item(Type_Indices.ColumnIndex_MediaCote))
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaRealisateur) IsNot Nothing) Then
                    .MediaRealisateur = (objet.Item(Type_Indices.ColumnIndex_MediaRealisateur).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaSerie) IsNot Nothing) Then
                    .MediaSerie = (objet.Item(Type_Indices.ColumnIndex_MediaSerie).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaTitreAnglais) IsNot Nothing) Then
                    .MediaTitreAnglais = (objet.Item(Type_Indices.ColumnIndex_MediaTitreAnglais).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaMode) IsNot Nothing) Then
                    .MediaMode = (objet.Item(Type_Indices.ColumnIndex_MediaMode).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaFicheOK) IsNot Nothing) Then
                    .MediaFiche_OK = (objet.Item(Type_Indices.ColumnIndex_MediaFicheOK).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaStock) IsNot Nothing) Then
                    .MediaStock = (objet.Item(Type_Indices.ColumnIndex_MediaStock).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaClasse) IsNot Nothing) Then
                    .MediaClasse = (objet.Item(Type_Indices.ColumnIndex_MediaClasse).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaType) IsNot Nothing) Then
                    .MediaType = (objet.Item(Type_Indices.ColumnIndex_MediaType).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaQualite) IsNot Nothing) Then
                    .MediaQualite = Convert.ToInt32(objet.Item(Type_Indices.ColumnIndex_MediaQualite))
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaCritiques) IsNot Nothing) Then
                    .MediaCritiques = Convert.ToInt32(objet.Item(Type_Indices.ColumnIndex_MediaCritiques))
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaNumeroCode) IsNot Nothing) Then
                    .MediaNumeroCode = Convert.ToInt32(objet.Item(Type_Indices.ColumnIndex_MediaNumeroCode))
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaActeurs_P) IsNot Nothing) Then
                    .MediaActeurs_P = (objet.Item(Type_Indices.ColumnIndex_MediaActeurs_P).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaActeurs_S) IsNot Nothing) Then
                    .MediaActeurs_S = (objet.Item(Type_Indices.ColumnIndex_MediaActeurs_S).ToString)
                End If

                If (objet.Item(Type_Indices.ColumnIndex_MediaAffiche) IsNot Nothing) Then
                    .MediaAffiche = (objet.Item(Type_Indices.ColumnIndex_MediaAffiche).ToString)
                End If

            End With

            Debug.WriteLine("Sortie - VIDEO_SQL : CreerInstance")
            'Tracage.LigneTracage("Sortie - VIDEO_SQL : CreerInstance", Contexte)

        Catch exZ As ZcException
            Debug.WriteLine("Erreur - VIDEO_SQL : CreerInstance")
            Tracage.LigneTracage("Erreur - VIDEO_SQL : CreerInstance", Contexte)
            StrTexte.AppendLine(ZcExceptionMsg.MSG500001)
            StrTexte.AppendLine("CreerInstance VIDEO_SQL")
            MessageBox.Show(StrTexte.ToString)
        End Try

        Return clientEntite

    End Function

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
16 oct. 2015 à 04:52

peut-être que cela vous dira quelque chose ...

K

Whismeril Messages postés 19029 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 26 avril 2024 931
16 oct. 2015 à 06:47

EDIT : Ajout du LANGAGE dans les balises de code.
Explications disponibles ICI

Merci d'y penser dans tes prochains messages.

Discussions similaires

comment lire des bd gratuitement en ligne sur internet ?

Comment télécharger des BD en pdf

Exemple de base de données access

Discussions similaires

Newsletters