At 04:53 PM 2/19/2002 -0500, Rich Jasinski wrote:
>Before anyone asks, I first tried putting the table in a
>new database then connecting to it. The problem is that
>I have an active cursor defined that goes away when you
>issue a connect.
Rich,
If you are using The Glorious R:BASE 2000 (ver 6.5++) for
Windows, you can use ODBC method of connecting MULTIPLE
databases!
Remember, The Sky's No Longer the Limit!
Yes, you can use the DECLARE CURSOR command on SATTACHED
server table(s) using R:BASE 2000 (ver 6.5++) for Windows,
Build:1.851xRT03.
Use the following two examples created with R:BASE 6.5++
for Windows DSN (Concomp) and Oterro 2000 (ver 2.5) DSN
(OT2KBluzVan).
-- Example 01 (Using Concomp DSN):
CONNECT YourDB
CLS
CLEAR ALL VAR
SET ERROR MESSAGE 2038 OFF
SET ERROR MESSAGE 705 OFF
SET RBGSIZE CENTER CENTER 800 600
MAXIMIZE
SET VAR vCustID INTEGER = NULL
SET VAR vNetAmount CURRENCY = NULL
SET VAR vMsg TEXT = NULL
SDETACH TransMaster NOCHECK
SDISCONNECT Concomp
SCONNECT Concomp IDENTIFIED BY NONE
SATTACH TransMaster USING CustID
DECLARE C1 CURSOR FOR SELECT CustID, NetAmount +
FROM TransMaster ORDER BY NetAmount
OPEN C1
FETCH C1 INTO +
vCustID INDICATOR vid1, +
vNetAmount INDICATOR vid2
WHILE SQLCODE <>100 THEN
SET VAR vMsg = ((CTXT(.vCustID))+':'&(CTXT(.vNetAmount)))
PAUSE 2 USING .vMsg CAPTION 'Check this out...' AT 18 36
FETCH C1 INTO +
vCustID INDICATOR vid1, +
vNetAmount INDICATOR vid2
ENDWHILE
DROP CURSOR C1
SDETACH TransMaster NOCHECK
SDISCONNECT Concomp
CLEAR ALL VAR
SET ERROR MESSAGE 705 ON
SET ERROR MESSAGE 2038 ON
RETURN
-- Example 02 (Using OT2KBluzVan DSN):
CONNECT YourDB
CLS
CLEAR ALL VAR
SET ERROR MESSAGE 2038 OFF
SET ERROR MESSAGE 705 OFF
SET RBGSIZE CENTER CENTER 800 600
MAXIMIZE
SET VAR vAlbum_ID INTEGER = NULL
SET VAR vAlbumTitle TEXT = NULL
SET VAR vMsg TEXT = NULL
SDETACH Albums NOCHECK
SDISCONNECT OT2KBluzVan
SCONNECT OT2KBluzVan IDENTIFIED BY NONE
SATTACH Albums USING Album_ID
DECLARE C1 CURSOR FOR SELECT Album_ID, AlbumTitle +
FROM Albums WHERE LIMIT = 500 ORDER BY AlbumTitle
OPEN C1
FETCH C1 INTO +
vAlbum_ID INDICATOR vid1, +
vAlbumTitle INDICATOR vid2
WHILE SQLCODE <>100 THEN
SET VAR vMsg = ((CTXT(.vAlbum_ID))+':'&.vAlbumTitle)
PAUSE 4 USING .vMsg CAPTION 'Check this out...' AT 18 40
FETCH C1 INTO +
vAlbum_ID INDICATOR vid1, +
vAlbumTitle INDICATOR vid2
ENDWHILE
DROP CURSOR C1
SDETACH Albums NOCHECK
SDISCONNECT OT2KBluzVan
CLEAR ALL VAR
SET ERROR MESSAGE 705 ON
SET ERROR MESSAGE 2038 ON
RETURN
Enjoy and make sure to have fun!
Very Best Regards,
Razzak.
===================================-============================
R:BASE Developers's Conference: http://www.rbase.com/conference
Official R:BASE List Server: mailto:[EMAIL PROTECTED]
RBTI Events/Training: http://www.rbase2000.com/events
R:DCC Members: http://www.rbase2000.com/rdcc
================================================================
R:BASE, Oterro & R:Tango are registered trademarks of RBTI.
==================================-=============================
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
