Password problem with AS400 from Windows 2000 (ADO)

[Larry Blake]

I have a VB6 program that uses ADO to an AS400 running v4r5. The
following code works fine on a Windows NT 4 machine, but prompts me
for a user and password on Windows 2000. The Win2000 machine has
Client Access Express, the NT machine has Client Access.

Const CSTRING_400 = "Provider=MSDAS QL.1;" _
& "Password=MyPas s;" _
& "Persist Security Info=True;" _
& "User ID=MyUser;" _
& "Data Source =MyAS400"
Dim c400 As New ADODB.Connectio n

c400.Open CSTRING_400
-----------
The above uses Microsoft's (deprecated) generic ADO driver. I've tried
using IBM's Client Access driver as follows:

Const CSTRING_400 = "Provider=IBMDA 400;" _
& "Password=MyPas s;" _
& "User ID=MyUser;" _
& "Data Source=MyAS400; " _
& "Transport Product=Client Access;" _
& "SSL=DEFAUL T"

When I do this, it gets past the Open statement, but dies on the first
query with:

Run-time error '-2147467259 (800040005)':

CWBDB0001 - Connection handle failed in attempt to contact server
(System MyAS400)

-----------
More information. Using MSDASQL on Windows 2000, if I enter the
password, the program works fine. And if I re-run it, it doesn't ask
me again until I've rebooted.

Any thoughts? I've been struggling with this for a long time.

LB

[nAmYzArC]

Re: Password problem with AS400 from Windows 2000 (ADO)

Did u ever get this resolved? I am having a similar problem and have
not been able to locate much info on this. I get past the open
statement and then I get the exact same error on the first query.

lblake@precisio n-valve.com (Larry Blake) wrote in message news:<b6d41cd9. 0308280522.4639 b165@posting.go ogle.com>...[color=blue]
> I have a VB6 program that uses ADO to an AS400 running v4r5. The
> following code works fine on a Windows NT 4 machine, but prompts me
> for a user and password on Windows 2000. The Win2000 machine has
> Client Access Express, the NT machine has Client Access.
>
> Const CSTRING_400 = "Provider=MSDAS QL.1;" _
> & "Password=MyPas s;" _
> & "Persist Security Info=True;" _
> & "User ID=MyUser;" _
> & "Data Source =MyAS400"
> Dim c400 As New ADODB.Connectio n
>
> c400.Open CSTRING_400
> -----------
> The above uses Microsoft's (deprecated) generic ADO driver. I've tried
> using IBM's Client Access driver as follows:
>
> Const CSTRING_400 = "Provider=IBMDA 400;" _
> & "Password=MyPas s;" _
> & "User ID=MyUser;" _
> & "Data Source=MyAS400; " _
> & "Transport Product=Client Access;" _
> & "SSL=DEFAUL T"
>
> When I do this, it gets past the Open statement, but dies on the first
> query with:
>
> Run-time error '-2147467259 (800040005)':
>
> CWBDB0001 - Connection handle failed in attempt to contact server
> (System MyAS400)
>
> -----------
> More information. Using MSDASQL on Windows 2000, if I enter the
> password, the program works fine. And if I re-run it, it doesn't ask
> me again until I've rebooted.
>
> Any thoughts? I've been struggling with this for a long time.
>
> LB[/color]