Hi Viktor, and Harbour developer,
>Harbour is supposed to have Xbase++ .dll handling
>syntax, so it would be interesting to see what needs
>to be rewritten still. Can you describe the details?
Need function with Xbase++ compitable:
Hope you can add the following function:
1.) DBPosition()
2.) DBGoPosition()
3.) IsMemVar()
4.) Isfunction()
5.) IsMethhod()
6.) IsMemberVar()
7.) SetLocale()
:
:
And I try to implement the DacSession of Xbase++
But not yet finish... Hope other can help to finished it ...
//TODO
Function DbSession( uTAls ) //
mybas2:dbclass.prg
Return( NIL )
CLASS DacSession //
mybas2:dbclass.prg
DATA nDBConnection
DATA cConnectionStr
DATA cDSN
METHOD init
// METHOD getDefault
// METHOD querySession
// METHOD sessionList
METHOD connect
METHOD disconnect
// METHOD getConnectionHanlde
// METHOD getConnectionString
METHOD isConnected
// METHOD isUsed
// METHOD isCompound
// METHOD isDefault
METHOD setDefault
METHOD setProperty
METHOD beginTransaction
METHOD commitTransaction
// METHOD inTransaction
METHOD rollbackTransaction
ENDClass
METHOD DacSession:init( cConnectionStr, lDefault )
If lDefault==NIL
lDefault := .T.
Endif
::nDBConnection := 0
::cConnectionStr := IIF(cConnectionStr==NIL, "", cConnectionStr)
If AT( UPPER(cConnectionStr), "DSN") > 0
::cDSN := cConnectionStr
Else
::cDSN := ""
Endif
// TODO
// If lDefault
// Endif
Return( self )
METHOD DacSession:connect()
If ::cConnectionStr<>""
::nDBConnection := RDDINFO( RDDI_CONNECTION, ::cConnectionStr )
Endif
Return( self )
METHOD DacSession:setDefault( lSet )
If lSet==NIL
lSet := .T.
Endif
If lSet
If ::nDBConnection > 0
RDDINFO( RDDI_CONNECTION, ::nDBConnection )
Endif
Endif
Return( self )
METHOD DacSession:isConnected()
Local lRet:=.F.
If ::nDBConnection > 0
lRet := .T.
Endif
Return( lRet )
METHOD DacSession:disconnect()
Local lRet:=.F.
If ::nDBConnection > 0
RDDINFO( RDDI_DISCONNECTION, ::nDBConnection )
::nDBConnection := 0
lRet := .T.
Endif
Return( lRet )
// TODO
METHOD DacSession:setProperty( nDefinde, xValue )
Local uRet:=NIL
Return( uRet )
// TODO
METHOD DacSession:beginTransaction( )
Local lRet:=.F.
Return( lRet )
// TODO
METHOD DacSession:commitTransaction()
Local lRet:=.F.
Return( lRet )
// TODO
METHOD DacSession:rollbackTransaction()
Local lRet:=.F.
Return( lRet )
Shum
--
View this message in context:
http://n2.nabble.com/Ask-Xbase-dBPosition-and-dBGoPosition-function-in-Harbour-tp4812569p4812569.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
