Dear all,
My computer runs MS Win2000 Server. I have installed the SequeLink Client, SequeLink Server and Progress Client. There is another machine in our Intranet which has the Progress Server installed. I have created a remote DSN on my machine for one of the Progress databases on that Progress Server. On the "Edit SequeLink Data Source" window, I supplied all the necessary information and pressed the "Test" button. Then "Test passed" was reported. But later, when I tried to access the database using ADO of VB code on my machine, an error was reported--** No database connected(543); Below is my VB code:
Set conn = New ADODB.Connection
conn.ConnectionString = "DSN=Test;UID=administrator;PWD=####"
conn.Open
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "Select * from MyTest"
Set rs = cmd.Execute here, the above error pops up!
Later, I have tried many other ways to connect to this remote DSN from my machine using ADO, but this error just pops up all the time.
Please advise and thanks in advance...
Regards,
Tracy
Have you chequed your service file on your machine if it has the wright port tcp/upd set up.
On w2k the file is located at %systemroot%\winnt\system32\drivers\etc
"Tracy.Lee" wrote:
>
>Dear all,
>
My computer runs MS Win2000 Server. I have installed
>the SequeLink Client, SequeLink Server and Progress Client.
>There is another machine in our Intranet which has the
>Progress Server installed. I have created a remote DSN
>on my machine for one of the Progress databases on that
>Progress Server. On the "Edit SequeLink Data Source"
>window, I supplied all the necessary information and
>pressed the "Test" button. Then "Test passed" was reported.
>But later, when I tried to access the database using
>ADO of VB code on my machine, an error was reported--[ODBC
>SequeLink driver]** No database connected(543);
>Below is my VB code:
>
>Set conn = New ADODB.Connection
>conn.ConnectionString = "DSN=Test;UID=administrator;PWD=####"
>conn.Open
>Set cmd = New ADODB.Command
>cmd.ActiveConnection = conn
>cmd.CommandText = "Select * from MyTest"
>Set rs = cmd.Execute
>here, the above error pops up!
>
>Later, I have tried many other ways to connect to this
>remote DSN from my machine using ADO, but this error
>just pops up all the time.
>Please advise and thanks in advance...
>
>Regards,
>Tracy
>
>