Hello,
Works this class with ADO?.
I have to convert an old program that uses TDatabase.
Thank you very much.
Lucas,
Class TDataBase does not provide ADO support currently, but it would be quite easy to create an inherited Class from TDataBase to support ADO.
As I commented you, I am working on a project using ADO only, so actually I am focused on testing everything to get it working fine, and once the ADO code is fine, we could use it to build a Class TAdoDb 
Also, we have been publishing new ADO functions recently that could be used from such new Class.
Thank you Antonio.
The presence of the method Execute for SQL confused me.
Anyway, I will rewrite the code using TDataRow, which is beautiful and very powerful and easy to use.
It would be interesting to update the ADO topic in the wiki adding the post from Elvira and latest samples provided by Mr. Nages.
Thank you.
Lucas,
You are right, Rao enhanced the Class TDataBase to have some ADO support, but it is not fully ADO compatible yet.
IF lAppend // Si hay que a陇adir
oData := TDataRow():New( oRs, nil, .t. )
ELSE
oRs:AbsolutePosition := nRegistro // Goto
oData := TDataRow():New( oRs )
ENDIF
IF lAppend
DEFINE DIALOG oDlg RESOURCE "USUARIOS" TITLE "A帽adir un nuevo USUARIO"
ELSE
DEFINE DIALOG oDlg RESOURCE "USUARIOS" TITLE "Modificar un USUARIO"
ENDIF
REDEFINE GET oData:USUARIO ID 101 OF oDlg
REDEFINE GET oData:CLAVE ID 102 OF oDlg
REDEFINE BUTTON ID 701 OF oDlg ACTION( lSave := .T., oDlg:End() )
REDEFINE BUTTON ID 702 OF oDlg ACTION( lSave := .F., oDlg:End() )
ACTIVATE DIALOG oDlg CENTERED
IF lSave
oData:Save()
ENDIF
// ---------------------------------------------------------------------Lucas,
No hay ning煤n problema con ella
Lo que ocurre es que Rao lleva m谩s tiempo usando ADO y ya est谩 encapsulando funcionalidad en las nuevas funciones de ADO y en esa clase, pero para mis pruebas con ADO de momento prefiero que no haya ninguna capa intermedia, para asi poder hacer cualquier prueba que me pueda interesar.
De todas formas, en mi c贸digo ya estoy usando algunas de las funciones nuevas.
TDataRow class was not meant to be just for ADO.
It is also not meant to serve the purpose of TDatabase class for ADO.
TDataRow is completely generic for any datasource, be it DBF, Ado, etc.
It is basically a class to handle Gather/Scatter mechanism to edit existing or new records and can be used transparently without regard to the underlying datasource.
Lucas, actually while using TDataRow it is not necessary to save and restore the record pointer. TDataRow itself takes care of it.
Antother feature of TDataRow is that we can use even XBrowse itself as its datasource.
Also both XBrowse and TDataRow make certain complex things simple. Like its much easier to handle BLOB data like photos and images.
eg; oRec:Photo := MemoRead( "photo.jpg" ). This works with DBF memo fields as well as ADO blob fields without the need for specific coding.
With both XBrowse and TDataRow we can write "single code" to work with any datasource. Just change the datasource and the same code works.
I shall follow it up with a small sample.
Rao,
I think that the Class TDataRow name is little confusing, as James commented about it (not sure if he was who did it)
Maybe TRecord would be easier to understand it ? I admit that I am not used to this great Class from Rao yet
/*
* tstdrow.prg
* test TDataRow usage
*
*/
#include "fivewin.ch"
#include "xbrowse.ch"
#include "adodef.ch"
REQUEST DBFCDX
//----------------------------------------------------------------------------//
function Main()
聽 聽local uDataSource
聽 聽SET DATE ITALIAN
聽 聽SET CENTURY ON
聽 聽SET DELETED ON
聽 聽FWNumFormat( "A", .t. )
聽 聽uDataSource := OpenData()
聽 聽BrowseData( uDataSource )
聽 聽CloseData( 聽uDataSource )
return nil
//----------------------------------------------------------------------------//
// TESTING XBROWSE WITH TDATAROW
// Both XBrowse and TDataRow Code is the same for all Data Sources
//----------------------------------------------------------------------------//
static function BrowseData( uData )
聽 聽local oDlg, oBrw, oFont, oRec
聽 聽DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
聽 聽DEFINE DIALOG oDlg SIZE GetSysMetrics(0) * 0.9,400 PIXEL FONT oFont ;
聽 聽 聽 TITLE "TDataRow test : " + FWVERSION
聽 聽@ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
聽 聽 聽 DATASOURCE uData AUTOCOLS AUTOSORT ;
聽 聽 聽 FOOTERS CELL LINES NOBORDER
聽 聽WITH OBJECT oBrw
聽 聽 聽 :nEditTypes 聽 聽:= EDIT_GET
聽 聽 聽 :Married:SetCheck()
聽 聽 聽 //
聽 聽 聽 :CreateFromCode()
聽 聽END
聽 聽@ 10, 10 BUTTON "Edit" SIZE 40,12 PIXEL OF oDlg ;
聽 聽 聽 ACTION ( oRec := TDataRow():New( uData ), oRec:Edit(), oBrw:Refresh(), oBrw:SetFocus() )
聽 聽@ 10, 60 BUTTON "Append" SIZE 40,12 PIXEL OF oDlg ;
聽 聽 聽 ACTION ( oRec := TDataRow():New( uData, nil, .t. ), oRec:Edit(), oBrw:Refresh(), oBrw:SetFocus() )
聽 聽@ 10,110 BUTTON "Delete" SIZE 40,12 PIXEL OF oDlg ACTION ( oBrw:Delete(), oBrw:SetFocus() )
聽 聽ACTIVATE DIALOG oDlg CENTERED
聽 聽RELEASE FONT oFont
return nil
//----------------------------------------------------------------------------//
static function OpenData()
聽 聽local nChoice, uDataSource
聽 聽nChoice := Alert( "Choose DataSource", { "DBF", "TDATABASE", "ADO", "Quit" }, "DATASOURCE" )
聽 聽if nChoice 聽<= 2
聽 聽 聽 USE C:\FWH\SAMPLES\CUSTOMER NEW ALIAS CUST SHARED VIA "DBFCDX"
聽 聽 聽 if nChoice == 1
聽 聽 聽 聽 聽uDataSource 聽 聽:= Alias()
聽 聽 聽 else
聽 聽 聽 聽 聽DATABASE uDataSource
聽 聽 聽 endif
聽 聽elseif nChoice == 3
聽 聽 聽 uDataSource := FW_OpenRecordSet( "c:\fwh\samples\xbrtest.mdb", "CUSTOMER" )
聽 聽else
聽 聽 聽 QUIT
聽 聽endif
return uDataSource
//----------------------------------------------------------------------------//
static function CloseData( uDataSource )
聽 聽if ValType( uDataSource ) == 'C'
聽 聽 聽 ( uDataSource )->( DbCloseArea() )
聽 聽elseif ValType( uDataSource ) == 'O'
聽 聽 聽 uDataSource:Close()
聽 聽 聽 if uDataSource:ClassName() == "TOLEAUTO"
聽 聽 聽 聽 聽uDataSource:ActiveConnection:Close()
聽 聽 聽 endif
聽 聽endif
return nil
//----------------------------------------------------------------------------//Antonio Linares wrote:Rao,
I think that the Class TDataRow name is little confusing, as James commented about it (not sure if he was who did it)
Maybe TRecord would be easier to understand it ? I admit that I am not used to this great Class from Rao yet
Rao,
many thanks for the explanation
lucasdebeltran wrote:Hello,
Works this class with ADO?.
I have to convert an old program that uses TDatabase.
Thank you very much.
The presence of the method Execute for SQL confused me.
Mr. Nages,
Thank you, all is clear by now.
The present code uses for example Database:save(), :recno(), or :eof() methods.
But I can rewrite the code and use TDataRow, no problem.