IMPLEMENTATION AUTOMATIQUE DE RECORDSET POUR TOUS LES PROVIDERS, PASSER LE RECORDSET EN PARAMÈTRE ET IL GÈRE TOUT SEUL AJOUTER/MODIFIER/SUPPRIMER, TRIER, FILTRER ET VISUALISER

'Voici trois exemples qui permettront d'exploiter cet implementateur de table

'Partant des constantes suivantes qui peuvent se multiplier pour autant de Driver

Public Const Const_InitAccessConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
Public Const Const_InitExcelConnectionString = "driver={Microsoft Excel Driver (*.xls)};DriverId=790;ReadOnly=0;FirstRowHasNames=1"
Public Const Const_InitAsciiConnectionString = "driver={Microsoft Text Driver (*.txt; *.csv)};DriverId=27"

Dim Cnx1 As ADODB.Connection, Cnx2 As ADODB.Connection, Cnx3 As ADODB.Connection

Sub main()
Dim StrCnx1 As String, StrCnx2 As String, StrCnx3 As String
Dim EditeurRecordset1 As Cl_EditeurRecordset
Dim EditeurRecordset2 As Cl_EditeurRecordset
Dim EditeurRecordset3 As Cl_EditeurRecordset


    'Exemple d'appel du module pour une table ACCESS
    StrCnx1 = Const_InitAccessConnectionString & ";Data Source=" & App.Path & "\DATA\ACCESS\" & Const_DataBaseName & ";Jet OLEDB:Database Password=" & Const_Pwd
    Set EditeurRecordset1 = New Cl_EditeurRecordset
    Set Cnx1 = AdodbConnection(StrCnx1)
    With EditeurRecordset1
        Set .AdodbConnection("T_Ports") = Cnx1
        .Init , "Implementation d'une table ACCESS", , 80 / 100
        .Run
    End With

    'Exemple d 'appel du module pour une feuille EXCEL
    StrCnx2 = Const_InitExcelConnectionString & ";DBQ=" & App.Path & "\DATA\EXCEL\CAISSE.xls"
    Set EditeurRecordset2 = New Cl_EditeurRecordset
    Set Cnx2 = AdodbConnection(StrCnx2)
    With EditeurRecordset2
        Set .AdodbConnection("DATA$") = Cnx2
        .Init , "Implementation d'une feuille EXCEL"
        .Run
    End With

    'Exemple d'appel du module pour un fichier ASCII
    StrCnx3 = Const_InitAsciiConnectionString & ";DBQ=" & App.Path & "\DATA\ASCII"
    Set EditeurRecordset3 = New Cl_EditeurRecordset
    Set Cnx3 = AdodbConnection(StrCnx3)
    With EditeurRecordset3
        Set .AdodbConnection("ExportGeolog.txt") = Cnx3
        .Init , "Implementation d'un fichier ASCII", False, 75 / 100
        .Run
    End With
End Sub

Télécharger le zip

05 août 2005 21:20:44 :

ça pas marché avec le Zip, pourquoi je sais pas alors j'ai essayé sans.

06 août 2005 14:22:18 :

Pour cette modif je change juste dans la présentation l'extrait du code source, qui est cette fois identique à l'exemple se trouvant dans le Zip. je n'arrive toujours pas à uploader le Zip, j'espère pouvoir y arriver.

06 août 2005 15:37:50 :

Test d'ajout du zip, sera a changer.

06 août 2005 17:29:08 :

test 2

08 août 2005 13:58:35 :

Modifications apportées à la source: - Redimensionnement dynamique du formulaire et de ses controles e fonction des valeurs d'initialisation - Spécification du mode de travail (implémentation ou Lecture seule) - Passage des informations du recordset à une procédure externe pour l'affichage des résultats - Reorganisation des procédures pour une meilleure lisibilité

18 août 2006 12:39:16 :

Ajout du Zip dans la source . Il s'agit du zip version du 08/08/2005, donc pas de mise à jour. les modifications seront publiés ultérieurement.

18 août 2006 12:39:18 :

Ajout du Zip dans la source . Il s'agit du zip version du 08/08/2005, donc pas de mise à jour. les modifications seront publiés ultérieurement.

18 août 2006 12:39:20 :

Ajout du Zip dans la source . Il s'agit du zip version du 08/08/2005, donc pas de mise à jour. les modifications seront publiés ultérieurement.

18 août 2006 12:41:13 :

Ajout du Zip dans la source . Il s'agit du zip version du 08/08/2005, donc pas de mise à jour. les modifications seront publiés ultérieurement.