AS400

[mu]

I want with VB6.0 and ADO a connection to a IBM AS400 -
Database.
The following statements create an runtime-error.
Dim conn As New Connection
Dim cmd As New ADODB.Command
Dim rec As New ADODB.Recordset

conn.ConnectionTimeout = 30
conn.Open "Provider=IBM AS400 OLE DB Provider;Data
Source=heldat;" & _
"User ID=id;Password=pw;SSL=default;Transport
Product=Client Access"
Set cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM TABLE ORDER BY FIELD"
cmd.CommandType = adCmdText
Set rec = cmd.Execute

The execute-command create this error:
Runtime-error: 2147467259 (80004005)
CWBDB0001 - Verbindungskennung fehlgeschlagen beim Versuch,
Server anzusprechen (System HELDAT)

 

[Cor]

Hi mu,

This is a vb.net group, ado is not used normaly anymore in vb.net.

For vb classic you have a better change in one of the microsoft.public.vb *
newsgroups.

Cor