OK,
Thank you.
Lluis
________________________________________
De: rpg400-l-bounces@xxxxxxxxxxxx [rpg400-l-bounces@xxxxxxxxxxxx] en nombre de Gary Thompson [GThompson@xxxxxxxxxxx]
Enviado el: jueves, 22 de septiembre de 2011 18:32
Para: RPG programming on the IBM i / System i
Asunto: Re: Native driver to connect from C# to the iseries
Luis wrote:
Hi,
I ´m looking for a native driver to connect from C# to the iseries ?
Some that not need the Client access to be installed ?
I have an MS Access application that connects to our i series using:
Microsoft ActiveX Data Objects 2.8 Library
IBM OLE DB data access provider
I think you are correct about Client access, except that installing Client
access may be one way to get the IBM OLE DB and other drivers
see Chris Peters and Brian Singletons i5/OS and Microsoft Office
Integration book as one possible source of info
The Access application transfers data to DB2 using VBA code like:
Dim cmdHost As New ADODB.Command
Dim cnnHost As New ADODB.Connection
Dim rstHost As New ADODB.Recordset
Dim AdoErr As ADODB.Errors
Dim vntHostFields As Variant
Dim aryHostValues(6) As Variant
Dim db As DAO.Database
Dim rstUpload As DAO.Recordset
Set db = CurrentDb
Set rstUpload = db.OpenRecordset("qryAccessTbl")
cnnHost.Open "provider=IBMDA400;Data Source=MyServer.MyDomain.COM;"
Set cmdHost.ActiveConnection = cnnHost
cmdHost.CommandText = "somelib.myfile()"
cmdHost.CommandType = adCmdTable
cmdHost.Properties("Updatability") = 7
Set rstHost = cmdHost.Execute()
vntHostFields = Array("FIELD1", "FIELD2", "FIELD3")
While Not rstUpload.EOF
With rstUpload
aryHostValues(0) = !FIELD1
aryHostValues(1) = !FIELD2
aryHostValues(2) = !FIELD3
End With
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/rpg400-l.
midrange.com
