OLE-DB, Visual basic
et Client access Express

Private Sub Command1_Click()

Set req = New ADODB.Command

With req
Set .ActiveConnection = AS400 (1)
.CommandType = adCmdText (2)
End With

List1.Clear
Form1.Refresh
req.CommandText = "select * from formationx.cours where af4MDL ='" + Text1.Text + "'" (4a)
Set cursor = req.Execute (4b)

cursor.MoveFirst (5)
Do Until cursor.EOF
List1.AddItem (6)(cursor.Fields("AF4MBR") + " - " + cursor.Fields("AF4TXT")) (7)
cursor.MoveNext(5)
Loop

End Sub

identifie le OLEDB Provider

cn.connectionstring = "Provider=IBMDA400;Data Source=S44xxxx"

execute une commande sur le serveur

set resultat = cn.execute "Select * from fichier"
(il est préférable d'utiliser un objet commande)

BeginTrans
CommitTrans
RollbackTrans

Utilisé pour démarrer une transaction puis pour valider ou annuler une transaction si vous travaillez sous contrôle de validation.

Fait référence à une connexion établie

set cmd.activeconnection = cn

chaîne représentant la commande à exécuter ou le fichier à ouvrir

pour les fichiers à ouvrir ou les ordres SQL , "chaîne"
pour les procédures cataloguées, "{chaîne}"
pour les programmes à appeller et les commandes, "{{chaîne}}"
Pour les data queues, "OPEN DATAQUEUE .... FOR SEND"

• cmdFichier.CommandText = "biblio.fichier(*FIRST)"
• cmdIFS.CommandText = "/QSYS.LIB/biblio.lib/fichier.file/%FIRST%.mbr"
• cmdSQL.CommandText = "Select * From ... Where ..."
• cmdProcedurecataloguée="{CALL BIB.PROC (?,?,?)}"
• cmdProgramme="{{CALL /QSYS.LIB/BIBLIO.LIB/MONPROG.PGM(?,?,?,?)}}"
• cmdDTAQ=" OPEN DATAQUEUE /QSYS.LIB/BIBLIO.LIB.MADTAQ.DTAQ(data char(xxx))) FOR SEND"
• cmdCommande="{{QSYS/CRTLIB LIB(essai)}}"

indique le type de commande à executer

pour IBMDA400,
– adCmdTable pour une ouverture de fichier
– adCmdText pour toutes les autres commandes
(ne pas utiliser adCmdStoredProc)

indique si la commande doit être "préparée" c'est à dire interprétée puis sauvegardée pour utilisation répétée.(au moins trois ou quatre fois pour que l'opération soit rentable)

cmd.Prepared = True | False

Execute

Exécute l'ordre associé à l'objet commande (CommandText doit être renseigné)

set recordset = cmd.execute (pour un retour d'enregistrement [Select, procédure, Dtaq].)
cmd.execute (pour une commande sans retour [Insert, Update SQL].)

Fait référence à une connexion établie

set rs.activeconnection = cn

Signale le début (BOF) ou la fin (EOF) de fichier dans le recordset

– si le recordSet est vide les deux propriétés sont vraies
– si le RecordSet est non vide à l'ouverture les deux propriétés sont fausses et vous êtes positionné sur la première ligne.

l'utilisation courante est la suivante :

If (not rs.EOF) and (not rs.bof) Then


 do until rs.EOF
  .... (traitement) ...
  rs.MoveNext
 loop

Endif

Permet de mémoriser un positionnement

Mémorisation : pos = rs.BookMark

retour à la ligne dont on a mémorisé la position : rs.BookMark = pos

Retourne une information indiquant si la ligne a été modifiée

• adEditNone : la ligne en cours est non modifiée
• adEditinProgress : les données de la ligne en cours ont étées modifiées, les modifs ne sont pas répercutées dans le RecordSet et donc dans la base, jusqu'à rs.UPDATE.
• adEditAdd : des données ont étées ajoutées (dans le buffer, voir AddNew), les modifs ne sont pas répercutées, jusqu'à rs.UPDATE.

AddNew
(Méthode)

Définit un buffer pour stockage des données à ajouter.

rs.Addnew
rs("ZONE1") = valeur1
rs("ZONE2") = valeur2

rs.Update

Indique si une méthode est supportée par le provider OLEDB

if rs.Supports(adAddNew) then ...

Update

rend actives les mises à jour et les ajouts en instance dans le recordSet
(et donc met à jour la base de données)

déclarée automatiquement avec le RecordSet

pour indiquer un Champ dans la collection on indice par :
- soit un chiffre rs.fields(0) représente le premier champ
- soit un nom de champ rs.fields("NOCLI") représente la zone NOCLI

Indique (pour le champ référencé) la taille actuelle en nbr de caractère ou -1 pour le numérique

Indique

- AdFldUpdatable (valeur 4) que le champ est modifiable
- AdFldFixed (valeur 16) que le champ n'est pas à lg variable

la valeur retournée peut être 20 (4 + 16)

Indique (pour le champ référencé) la taille définie dans la base ou -1 pour le numérique

Retourne le nom du champ

Precision
(propriété)

Retourne (pour un champ numérique) le nombre d'entiers

Retourne le type de champ :

Valeur en cours (c'est la propriété par défaut)

déclarée automatiquement avec l'objet Connection

Utilisation courrante :

if cn.Errors.Count > 0 then

 for each ADOError in cn.Errors
   msg = msg + " N°=" + ADOError.number + " Texte=" + ADOError.Description +     vbcrlf
 next

 Msgbox msg, VbOKOnly, "Erreurs rencontrées"

EndIf

Texte du message, il commence par l'ID message au sens 400

• CWBZZxxxx : Message du provider OLEDB
• CWBDBxxxx : Message base de données
• CPFxxxx : Message OS/400
• SQLxxxx : Message SQL/400

Origine du message

• "IBMDA400 Session" dans le cas du provider de Client Access

Dim P1 as New ADODB.Parameter

Utilisation courrante :

Dim cmd as new ADODB.Command
Dim P1 as new ADODB.Parameter
Dim P2 as new ADODB.Parameter

With cmd
Set .ActiveConnection = AS400
    .CommandType = adCmdText
    .CommandText = "{CALL BIB/PROC (?,?)}"
    .prepared = true
End With


Set P1 = cmd.CreateParameter(Name:="P1", Type:=adChar,                              Direction:=adParamInput,
                             Size:=7, Value:="NANTES ")

Set P2 = cmd.CreateParameter(Name:="P2", Type:=adInteger,                              Direction:=adParamInputOutput,
                             Size:=3, Value:=987)

cmd.Parameters.Append P1
cmd.Parameters.Append P2
cmd.Execute

retour = cmd.Parameters("P2")

Utilisation du paramètre

• adparamInput (paramètre envoyé à la procédure)
• adparamOutput (paramètre recu de la procédure)
• adparamInputOutput (paramètre envoyé à la procédure et recuen retour)
• adparamReturnValue (le paramètre est une valeur retournée par la procédure [fontion].)

nom du paramètre

Nbr de décimales du paramètre

type de paramètre (un des types ADO valides) :

************** Début des données ************************
PGM PARM(&FICHIER &BIB &AUT)

DCL &FICHIER *CHAR 10
DCL &BIB *CHAR 10
DCL &AUT *CHAR 1

CHGVAR VAR(&AUT) VALUE('O')
CHKOBJ OBJ(&BIB/&FICHIER) OBJTYPE(*FILE) AUT(*USE)
MONMSG MSGID(CPF0000) EXEC(CHGVAR VAR(&AUT) VALUE('N'))
ENDPGM
*************** Fin des données **************************

--------------déclarations générales---------------
Public AS400 As New ADODB.Connection
Public req As New ADODB.Command
------au chargement de la fenêtre------
Private Sub Form_Load()
AS400.ConnectionString = "Provider=IBMDA400;Data Source=S44R7480;" AS400.Open
End Sub
------sur un click du bouton "lancer"------
Private Sub Command1_Click()
Dim P1 As New ADODB.Parameter
Dim P2 As New ADODB.Parameter
Dim p3 As New ADODB.Parameter

Set req = New ADODB.Command
With req
 Set .ActiveConnection = AS400
     .CommandType = adCmdText
     .CommandText = "{CALL FORMATIONX.PROCCHKAUT (?,?,?)}"
     .Prepared = True
End With

Set P1 = req.CreateParameter(Name:="P1", Type:=adChar,   Direction:=adParamInput, Size:=10, Value:="COURSc") *
Set P2 = req.CreateParameter(Name:="P2", Type:=adChar,   Direction:=adParamInput, Size:=10, Value:="FORMATIONX")
Set p3 = req.CreateParameter(Name:="P3", Type:=adChar,   Direction:=adParamOutput, Size:=1)

req.Parameters.Append P1
req.Parameters.Append P2
req.Parameters.Append p3

req.Execute
MsgBox req.Parameters("P3")
End Sub


cet objet graphique possède deux propriétés remarquables :

• ConnectionString
  paramètres de connexion au provider OLEDB
  
  
• RecordSource
  ordre SQL associé
  
  • "Select ..."
  • ou "{CALL ..}"

Private Sub Command1_Click()
Dim requete As String
Dim where

requete = " "
where = " "
requete = "select * from formationx.cours"

If Text1.Text <> " " And Text1.Text <> "" Then
  where = "where af4mdl = '" + Text1.Text + "'"
End If

If Text2.Text <> " " And Text2.Text <> "" Then
  If where = " " Then
    where = "where"
  Else
     where = where + " AND "
  End If
  where = where + " sujet = '" + Text2.Text + "'"
End If

If where <> " " Then
  requete = requete + " " + where
End If

cours.RecordSource = requete
cours.Refresh
Form1.Refresh

End Sub