How to get server and database name from C/SIDE

zyyraf · **Posted:** Thu Aug 07, 2008 8:29 am

Hi, what is a best way to get server address and database name of current connection from C/SIDE (database on SQL)?

I found that way:

Code: Select all

//svr Record Server
//db Record Database

srv.FINDFIRST;
WHILE NOT srv."My Server" DO
  srv.NEXT;


dbs.FINDFIRST;
WHILE NOT dbs."My Database" DO
  dbs.NEXT;

Message(srv."Server Name");
Message(dbs."Database Name");

The problem is, that this method spend several second.
Anyone know better way to do this?

Shedman · **Posted:** Thu Aug 07, 2008 8:40 am

Try using the search ...

Or CONTEXTURL system variable.

garak · **Posted:** Thu Aug 07, 2008 9:05 am

These are examples to get the database name / Servername

Code: Select all

RecDB.SETRANGE("My Database",TRUE);
RecDB.FINDFIRST;
DBName := RecDB."Database Name";

RecServer.SETRANGE("My Server",TRUE);
RecServer.FINDFIRST;
ServName := RecServer."Server Name";

or

Code: Select all

MyContext := CONTEXTURL; 
message('Servername = %1\'+
        'Database = %2',(copystr(MyContext,StrPos(MyContext,'servername') + 11,
                        StrPos(MyContext,'&data') - StrPos(MyContext,'servername')-11)),
                        (copystr(MyContext,StrPos(MyContext,'&data') + 10,
                         StrPos(MyContext,'&company') - StrPos(MyContext,'&data')-10)));