Une classe pour travailler avec olddb (access) et oledb (as400) et lancer des commandes as400
Description
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
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
Codes Sources
A voir également
- Une classe pour travailler avec olddb (access) et oledb (as400) et lancer des commandes as400
- Infolog as400 - Forum SQL
- Lancer extranet collaboratif - Forum Java
- Oledb ✓ - Forum Visual Basic
- As400 sql update - Forum SQL
- Commandes managées - Forum VB.NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.