EDMX et bd office access

Question

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

Kalissi · Answer

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


K

EDMX et bd office access

1 réponse

Discussions similaires

Newsletters