Une classe qui permet de travailler façilement avec les base de donnée Access et AS400 via OLE DB. On peux aussi lancer des commandes AS400 directement.
Ci-dessous la liste des fonction de cette classe.
' Public Overloads Sub OpenDataBase(ByVal MSAccessPath As String)
' Ouvre une connexion vers une dataBase Microsoft Access via OLEDB
' Public Overloads Sub OpenDataBase(ByVal AS400SystemName As String, ByVal AS400UserID As String, ByVal AS400Password As String)
' Ouvre une connexion vers une dataBase AS400 (overload de la précédente)
' Public Sub CloseDataBase()
' Ferme la connexion ouverte avec OpenDataBase
' Public Function RunSQLCommand(ByVal SQLCommand As String) As Long
' Lance une commande SQL autre que SELECT (ne retourne pas de sélection)
' Public Function RunSQLSelection(ByVal SQLCommand As String) As OleDbDataReader
' Lance une sélection SQL avec un retour d'information
' Public Function RunAS400CL(ByVal AS400CL_LIB_Point_NAME As String) As Long
' Lance une commande CL sur AS400 "LIB.CL_PGM"
' Public ReadOnly Property Field(ByVal FieldName As String) As Object
' Récupère la valeur d'un champs de la sélection pour le reord en cours
' Public Function Read() As Boolean'
' Passe au record suivant et retourne false si fin de fichier