[WD10] - .NET - AS400 - DB2

Jean-Yves BURLOT vient de nous annoncer :

Bonjour,

Quelqu'un a déjà utilisé Provider IBM .NET pour attaquer une base DB2/AS400

Si oui, avez vous un exemple de code

merci

Jean-Yves BURLOT

--
Jean-Yves BURLOT
suivre ce lien pour répondre :
http://cerbermail.com/?zbQ7wrKUbu
;-)

Je me répond :

Cn est un objet iDB2Connection()

Cn:ConnectionString =
"DataSource="+sAS400+";userid="+sLogin+";password="+sPassWord
i est un entier
j est un entier
Ligne est un entier
Cn:Open()
Cmd est un objet iDB2Command("select * from spao22.ftextedt")
Cmd:Connection = Cn
dr est un objet iDB2DataReader dynamique
dr = Cmd:ExecuteReader()
Col_001..Libellé=dr:getname(0)
POUR i=2 A dr:FieldCount
ChampClone(Col_001,"Col_"+NumériqueVersChaîne(i,"03d"))
{"Col_"+NumériqueVersChaîne(i,"03d")}..Libellé=dr:getname(i-1)
FIN
TANTQUE dr:read()
Multitâche(-1)
Ligne=TableAjouteLigne(Tbl_Table)
POUR i=1 A dr:FieldCount
{"Col_"+NumériqueVersChaîne(i,"03d")}[Ligne]=dr:getstring(i-1)
FIN
FIN
dr:Close()
Cmd:Dispose()
Cn:Close()

--
Jean-Yves BURLOT
suivre ce lien pour répondre :
http://cerbermail.com/?zbQ7wrKUbu
;-)
--