Se connecter à  votre iSeries avec Visual Basic en utilisant le composant ADO

Exemple :



Function user()
Dim Con as ADODB.Connection
Dim Rst as ADODB.Recorset
Set Con = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
Con.Open "DSN=TEST ODBC"
Rst.Open "Select *From fichier.Biblioteque",Con
End Function

Une fois la connexion établie, on peut parcourir le Recordset

Exemple :
Rst.MoveFirst
Do While Not Rst.EOF()
insérer ici votre source
Rst.MoveNext
Loop

[[Document traduit de l ‘espagnol. Auteur d'origine : Sergio Puentes]]

Print Friendly, PDF & Email