Hi there,

I'm trying to connect to my AS400 server thru a LINKED SERVER, but =
I'm having some troubles.
If someone have this solution Running or has passed thru it before, =
your help will be appreciated.

Thank you very much.

Below is the full script I'm Using to create my Linked Server.=20
I think I should mention I've tried this with IBMDA400 and ODBC. =20
I also tried to create this Linked Server thru EM's UI. Same result
The strangest thing is that I use the same connectionString to =
connect my VB Application to the AS400 system file. The select is the =
same.

If anybody can provide some help, I'll be more than gratefull.
I've heard sometihng about Host integration Server too. If anybody =
knows how does it work and/or if there's a free or trial version of that =
actually works with AS400 (Physical file OR DB2 database), I'll give it =
a shot as well.
=20
Thanks in advance and sorry for the bad english... I'll practice =
more. promise.


-- =
************************************************************************
-- *=20
EXEC sp_droplinkedsrvlogin 'DB2SRV' , NULL
GO
PRINT 'Server Users Successfully Removed'
GO
EXEC sp_dropServer DB2SRV
GO
PRINT 'Server Successfully Removed'
GO
EXEC sp_addlinkedserver @server =3D 'DB2SRV',
@srvproduct =3D 'Microsoft OLE DB Provider for DB2',
@datasrc =3D '10.1.1.1', --* IP Address of my AS400 Server
@location =3D NULL,
@provider =3D 'IBMDA400', -- * IBM Client Access' OLEDB Driver
@provstr=3D 'Password=3DDANIEL;
User ID=3DDANIEL;
Initial Catalog=3DSTARTUPLIB;
Data Source=3D10.1.1.1;
Network Transport Library=3DTCPIP;'

GO
PRINT 'Server Successfully ADDED'
GO
EXEC sp_addlinkedsrvlogin @rmtsrvname=3D 'DB2SRV'=20
,@useself =3D false
,@rmtuser =3D 'DANIEL'
,@rmtpassword =3D 'DANIEL'=20
GO
PRINT 'Server Users Successfully ADDED'
GO
SELECT * FROM OPENQUERY(DB2SRV, 'SELECT * FROM STARTUPLIB.MYFILE')=20
--* MYFILE here is a PF-DTA File (Or Physical file)
GO
PRINT 'SELECT Statement Executed'
GO
-- ********************************* END OF SCRIPT *********************
-- This is The error Message I get
Server: Msg 7357, Level 16, State 2, Line 3
Could not process object 'SELECT * FROM STARTUPLIB.MYFILE'. The OLE DB =
provider 'IBMDA400' indicates that the object has no columns.


-- I Have a VB Application that Access this Physical File thru ODBC =

Daniel
Have you tried to use DTS ? You have to install client access on the sql =
server .=20

[quoted text, click to view]
Hi there,

I'm trying to connect to my AS400 server thru a LINKED SERVER, but =
I'm having some troubles.
If someone have this solution Running or has passed thru it =
before, your help will be appreciated.

Thank you very much.

Below is the full script I'm Using to create my Linked Server.=20
I think I should mention I've tried this with IBMDA400 and ODBC. =
=20
I also tried to create this Linked Server thru EM's UI. Same =
result
The strangest thing is that I use the same connectionString to =
connect my VB Application to the AS400 system file. The select is the =
same.

If anybody can provide some help, I'll be more than gratefull.
I've heard sometihng about Host integration Server too. If anybody =
knows how does it work and/or if there's a free or trial version of that =
actually works with AS400 (Physical file OR DB2 database), I'll give it =
a shot as well.
=20
Thanks in advance and sorry for the bad english... I'll practice =
more. promise.


-- =
************************************************************************
-- *=20
EXEC sp_droplinkedsrvlogin 'DB2SRV' , NULL
GO
PRINT 'Server Users Successfully Removed'
GO
EXEC sp_dropServer DB2SRV
GO
PRINT 'Server Successfully Removed'
GO
EXEC sp_addlinkedserver @server =3D 'DB2SRV',
@srvproduct =3D 'Microsoft OLE DB Provider for DB2',
@datasrc =3D '10.1.1.1', --* IP Address of my AS400 Server
@location =3D NULL,
@provider =3D 'IBMDA400', -- * IBM Client Access' OLEDB Driver
@provstr=3D 'Password=3DDANIEL;
User ID=3DDANIEL;
Initial Catalog=3DSTARTUPLIB;
Data Source=3D10.1.1.1;
Network Transport Library=3DTCPIP;'

GO
PRINT 'Server Successfully ADDED'
GO
EXEC sp_addlinkedsrvlogin @rmtsrvname=3D 'DB2SRV'=20
,@useself =3D false
,@rmtuser =3D 'DANIEL'
,@rmtpassword =3D 'DANIEL'=20
GO
PRINT 'Server Users Successfully ADDED'
GO
SELECT * FROM OPENQUERY(DB2SRV, 'SELECT * FROM STARTUPLIB.MYFILE')=20
--* MYFILE here is a PF-DTA File (Or Physical file)
GO
PRINT 'SELECT Statement Executed'
GO
-- ********************************* END OF SCRIPT =
*********************
-- This is The error Message I get
Server: Msg 7357, Level 16, State 2, Line 3
Could not process object 'SELECT * FROM STARTUPLIB.MYFILE'. The OLE DB =
provider 'IBMDA400' indicates that the object has no columns.


-- I Have a VB Application that Access this Physical File thru ODBC =

Hi Uri,

Thanks for replying.=20
Well, about DTS, I've already tried and, when I select teh table I =
want to import the "Unexpected error occurred. The provider has returned =
an error result without a error message." message. At least I could =
check the tables the AS400 is "allowing" me to see.
Something I should add to my first post is that if I try to access a =
table that doesn't exists, the error message tells me it doesn't exists. =
So, I'm assuming the connection is getting to my file, but is not =
recognizing it's pattern to return the data properly.

Thanks again

Daniel

"Uri Dimant" <urid@iscar.co.il> escreveu na mensagem =
news:OV1HO0hkDHA.2060@tk2msftngp13.phx.gbl...
Daniel
Have you tried to use DTS ? You have to install client access on the =
sql server .=20

[quoted text, click to view]
Hi there,

I'm trying to connect to my AS400 server thru a LINKED SERVER, =
but I'm having some troubles.
If someone have this solution Running or has passed thru it =
before, your help will be appreciated.

Thank you very much.

Below is the full script I'm Using to create my Linked Server.=20
I think I should mention I've tried this with IBMDA400 and ODBC. =
=20
I also tried to create this Linked Server thru EM's UI. Same =
result
The strangest thing is that I use the same connectionString to =
connect my VB Application to the AS400 system file. The select is the =
same.

If anybody can provide some help, I'll be more than gratefull.
I've heard sometihng about Host integration Server too. If =
anybody knows how does it work and/or if there's a free or trial version =
of that actually works with AS400 (Physical file OR DB2 database), I'll =
give it a shot as well.
=20
Thanks in advance and sorry for the bad english... I'll practice =
more. promise.


-- =
************************************************************************
-- *=20
EXEC sp_droplinkedsrvlogin 'DB2SRV' , NULL
GO
PRINT 'Server Users Successfully Removed'
GO
EXEC sp_dropServer DB2SRV
GO
PRINT 'Server Successfully Removed'
GO
EXEC sp_addlinkedserver @server =3D 'DB2SRV',
@srvproduct =3D 'Microsoft OLE DB Provider for DB2',
@datasrc =3D '10.1.1.1', --* IP Address of my AS400 Server
@location =3D NULL,
@provider =3D 'IBMDA400', -- * IBM Client Access' OLEDB Driver
@provstr=3D 'Password=3DDANIEL;
User ID=3DDANIEL;
Initial Catalog=3DSTARTUPLIB;
Data Source=3D10.1.1.1;
Network Transport Library=3DTCPIP;'

GO
PRINT 'Server Successfully ADDED'
GO
EXEC sp_addlinkedsrvlogin @rmtsrvname=3D 'DB2SRV'=20
,@useself =3D false
,@rmtuser =3D 'DANIEL'
,@rmtpassword =3D 'DANIEL'=20
GO
PRINT 'Server Users Successfully ADDED'
GO
SELECT * FROM OPENQUERY(DB2SRV, 'SELECT * FROM STARTUPLIB.MYFILE')=20
--* MYFILE here is a PF-DTA File (Or Physical file)
GO
PRINT 'SELECT Statement Executed'
GO
-- ********************************* END OF SCRIPT =
*********************
-- This is The error Message I get
Server: Msg 7357, Level 16, State 2, Line 3
Could not process object 'SELECT * FROM STARTUPLIB.MYFILE'. The OLE =
DB provider 'IBMDA400' indicates that the object has no columns.


-- I Have a VB Application that Access this Physical File thru ODBC =

Uri,

My ODBC is well defined. I've used it in my VB project. The settings =
are the same. I Even built a connectionString using UDL file to make =
sure it would be a "flat" string.
Do you know if this can be a AS400 issue?
I'm using a V4R4M0 machine (if I'm not mistaken).

Thanks a lot

Daniel

"Uri Dimant" <urid@iscar.co.il> escreveu na mensagem =
news:eNkwwplkDHA.3316@tk2msftngp13.phx.gbl...
Hi, Danile
Have you define ODBC on your computer to allow importing data from =
some table of AS400?
For me It works well.
[quoted text, click to view]
Hi Uri,

Thanks for replying.=20
Well, about DTS, I've already tried and, when I select teh table =
I want to import the "Unexpected error occurred. The provider has =
returned an error result without a error message." message. At least I =
could check the tables the AS400 is "allowing" me to see.
Something I should add to my first post is that if I try to =
access a table that doesn't exists, the error message tells me it =
doesn't exists. So, I'm assuming the connection is getting to my file, =
but is not recognizing it's pattern to return the data properly.

Thanks again

Daniel

"Uri Dimant" <urid@iscar.co.il> escreveu na mensagem =
news:OV1HO0hkDHA.2060@tk2msftngp13.phx.gbl...
Daniel
Have you tried to use DTS ? You have to install client access on =
the sql server .=20

[quoted text, click to view]
Hi there,

I'm trying to connect to my AS400 server thru a LINKED =
SERVER, but I'm having some troubles.
If someone have this solution Running or has passed thru it =
before, your help will be appreciated.

Thank you very much.

Below is the full script I'm Using to create my Linked =
Server.=20
I think I should mention I've tried this with IBMDA400 and =
ODBC. =20
I also tried to create this Linked Server thru EM's UI. Same =
result
The strangest thing is that I use the same connectionString =
to connect my VB Application to the AS400 system file. The select is the =
same.

If anybody can provide some help, I'll be more than =
gratefull.
I've heard sometihng about Host integration Server too. If =
anybody knows how does it work and/or if there's a free or trial version =
of that actually works with AS400 (Physical file OR DB2 database), I'll =
give it a shot as well.
=20
Thanks in advance and sorry for the bad english... I'll =
practice more. promise.


-- =
************************************************************************
-- *=20
EXEC sp_droplinkedsrvlogin 'DB2SRV' , NULL
GO
PRINT 'Server Users Successfully Removed'
GO
EXEC sp_dropServer DB2SRV
GO
PRINT 'Server Successfully Removed'
GO
EXEC sp_addlinkedserver @server =3D 'DB2SRV',
@srvproduct =3D 'Microsoft OLE DB Provider for DB2',
@datasrc =3D '10.1.1.1', --* IP Address of my AS400 Server
@location =3D NULL,
@provider =3D 'IBMDA400', -- * IBM Client Access' OLEDB =
Driver
@provstr=3D 'Password=3DDANIEL;
User ID=3DDANIEL;
Initial Catalog=3DSTARTUPLIB;
Data Source=3D10.1.1.1;
Network Transport Library=3DTCPIP;'

GO
PRINT 'Server Successfully ADDED'
GO
EXEC sp_addlinkedsrvlogin @rmtsrvname=3D 'DB2SRV'=20
,@useself =3D false
,@rmtuser =3D 'DANIEL'
,@rmtpassword =3D 'DANIEL'=20
GO
PRINT 'Server Users Successfully ADDED'
GO
SELECT * FROM OPENQUERY(DB2SRV, 'SELECT * FROM =
STARTUPLIB.MYFILE')=20
--* MYFILE here is a PF-DTA File (Or Physical file)
GO
PRINT 'SELECT Statement Executed'
GO
-- ********************************* END OF SCRIPT =
*********************
-- This is The error Message I get
Server: Msg 7357, Level 16, State 2, Line 3
Could not process object 'SELECT * FROM STARTUPLIB.MYFILE'. The =
OLE DB provider 'IBMDA400' indicates that the object has no columns.


-- I Have a VB Application that Access this Physical File thru =

Hi, Danile
Have you define ODBC on your computer to allow importing data from some =
table of AS400?
For me It works well.
[quoted text, click to view]
Hi Uri,

Thanks for replying.=20
Well, about DTS, I've already tried and, when I select teh table I =
want to import the "Unexpected error occurred. The provider has returned =
an error result without a error message." message. At least I could =
check the tables the AS400 is "allowing" me to see.
Something I should add to my first post is that if I try to access =
a table that doesn't exists, the error message tells me it doesn't =
exists. So, I'm assuming the connection is getting to my file, but is =
not recognizing it's pattern to return the data properly.

Thanks again

Daniel

"Uri Dimant" <urid@iscar.co.il> escreveu na mensagem =
news:OV1HO0hkDHA.2060@tk2msftngp13.phx.gbl...
Daniel
Have you tried to use DTS ? You have to install client access on the =
sql server .=20

[quoted text, click to view]
Hi there,

I'm trying to connect to my AS400 server thru a LINKED SERVER, =
but I'm having some troubles.
If someone have this solution Running or has passed thru it =
before, your help will be appreciated.

Thank you very much.

Below is the full script I'm Using to create my Linked Server. =

I think I should mention I've tried this with IBMDA400 and =
ODBC. =20
I also tried to create this Linked Server thru EM's UI. Same =
result
The strangest thing is that I use the same connectionString to =
connect my VB Application to the AS400 system file. The select is the =
same.

If anybody can provide some help, I'll be more than gratefull.
I've heard sometihng about Host integration Server too. If =
anybody knows how does it work and/or if there's a free or trial version =
of that actually works with AS400 (Physical file OR DB2 database), I'll =
give it a shot as well.
=20
Thanks in advance and sorry for the bad english... I'll =
practice more. promise.


-- =
************************************************************************
-- *=20
EXEC sp_droplinkedsrvlogin 'DB2SRV' , NULL
GO
PRINT 'Server Users Successfully Removed'
GO
EXEC sp_dropServer DB2SRV
GO
PRINT 'Server Successfully Removed'
GO
EXEC sp_addlinkedserver @server =3D 'DB2SRV',
@srvproduct =3D 'Microsoft OLE DB Provider for DB2',
@datasrc =3D '10.1.1.1', --* IP Address of my AS400 Server
@location =3D NULL,
@provider =3D 'IBMDA400', -- * IBM Client Access' OLEDB Driver
@provstr=3D 'Password=3DDANIEL;
User ID=3DDANIEL;
Initial Catalog=3DSTARTUPLIB;
Data Source=3D10.1.1.1;
Network Transport Library=3DTCPIP;'

GO
PRINT 'Server Successfully ADDED'
GO
EXEC sp_addlinkedsrvlogin @rmtsrvname=3D 'DB2SRV'=20
,@useself =3D false
,@rmtuser =3D 'DANIEL'
,@rmtpassword =3D 'DANIEL'=20
GO
PRINT 'Server Users Successfully ADDED'
GO
SELECT * FROM OPENQUERY(DB2SRV, 'SELECT * FROM STARTUPLIB.MYFILE') =

--* MYFILE here is a PF-DTA File (Or Physical file)
GO
PRINT 'SELECT Statement Executed'
GO
-- ********************************* END OF SCRIPT =
*********************
-- This is The error Message I get
Server: Msg 7357, Level 16, State 2, Line 3
Could not process object 'SELECT * FROM STARTUPLIB.MYFILE'. The =
OLE DB provider 'IBMDA400' indicates that the object has no columns.


-- I Have a VB Application that Access this Physical File thru =