A voir également:
- EDMX et bd office access
- Microsoft office - Guide
- Cette technique secrète permet d'avoir Windows et Microsoft Office gratuitement et à vie - Accueil - Bureautique
- Open office gratuit - Télécharger - Suite bureautique
- Web office - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
1 réponse
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 :
et mes méthodes de l'uad sont :
la requête :
Video_REQ.ObtenirSQL_Liste_Video(Critere)
K
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
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 FunctionK
K
Explications disponibles ICI
Merci d'y penser dans tes prochains messages.