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