Imo must be extended rdd structure Follow my link http://www.masfoxpro.com/index.php?title=XBase&printable=yes
PROCEDURE Main LOCAL cConnect := "DBE=ODBCDBE;DSN=OrderProcessing" LOCAL oSession := DacSession():new( cConnect ) IF .NOT. oSession:isConnected() ? "Unable to connect to server !" ? oSession:getLastMessage() QUIT ENDIF < Business Logic As Usual > DbCloseAll() oSession:disconnect() RETURN Procedure main XDBQ:=CURDRIVE()+":\"+CURDIR()+"\"+STRTRAN(G_CAMINO,"\","") cCon := "DBE=ODBCDBE;DRIVER={Microsoft dBase Driver (*.dbf)};DBQ="+XDBQ+";DATABASE="+XDBQ oSessionDBF:=DacSession():new(cCon) oSessionDBF:setProperty(ODBCSSN_INDEX_AUTOOPEN, .T.) IF !oSessionDBF:isconnected() MSGBOX( "Unable to connect..." ) QUIT ENDIF DbeSetDefault( "ODBCDBE" ) SQL("CREATE INDEX TIPOS ON TIPOS(TIPO_COMP)") USE TIPOS NEW MSGBOX(INDEXKEY()) // Result= TIPO_COMP * DBGOBOTTOM() //If this line is not commented, it works OK! IF DBSEEK("EG") MSGBOX("Found!") ELSE MSGBOX("Not found") ENDIF RETURN Function tr_open() LOCAL oSession DbeSetDefault("ADSDBE") cConnStr := "SERVER=\\testweb.dnsalias.com:3232\test\data\test.ADD;ADS_REMOTE_SERVER;ADS_COMPRESS_INTERNET;UID=test;PWD=test" oSession := DacSession():New("DBE=ADSDBE;"+cConnStr) DbeInfo( COMPONENT_DATA , ADSDBE_TBL_MODE, ADSDBE_CDX ) DbeInfo( COMPONENT_ORDER, ADSDBE_TBL_MODE, ADSDBE_CDX ) If (oSession:isConnected()) If !DbUseArea(.T.,oSession, "adress","wadress",.t.,.t.) MsgBox("Status:"+Alias()+" kann nicht geöffnet werden") EndIf Set Index to Adress trconnect:=.t. Else trconnect:=.f. MsgBox("Status:"+Alias()+" kann nicht geöffnet werden") EndIf 2010/3/15 Mindaugas Kavaliauskas <dbto...@dbtopas.lt>: > Hi, > > > Shum wrote: >> >> It possible to implement the database connection number as a class ... >> like the DacSession class in Xbase++ ...?? > > I know nothing about DacSession, but I guess it could be implemented on the > top of current code. > > > Regards, > Mindaugas -- Massimo Belgrano _______________________________________________ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour