Una sencilla clase que hace lo ya explicado

Como al final el usar el código explicado se repite muchisimo en los programas he hecho esta sencilla clase para ahorrar repetir lo mismo una y otra vez.

Como ya he avisado, la clase es muy básica y sencilla de usar. En cuanto lo termine dejare el ejemplo anterior usando la clase y algun que otro ejemplo más.

La clase puede ser usada tanto en Harbour como en xHarbour.

Nombre de la clase: TQuery

Métodos:

New( cHost, cUser, cPassword, cDatabase ) ---> Contructor de la clase.
Command( cComando ) ---> Procesa comandos SQL que NO devuelven nada.
Query( cComando) ---> Procesa comandos SQL que devuelven datos.
End() ---> Destruye el objeto.

Datas:

aRes ---> Array donde se almacena el resultado de la consulta.
aStru ---> Array donde se almacena la estructura de datos de la consulta.
nFilas ---> Total de filas recibidas en la consulta.
nFld ---> Total de columnas de la consulta.
lProcError ---> .T. Si deseamos que la clase procese el error.
lError ---> .T. Si se ha producido algun error.
cError --> Descripción del error.
nError ---> Nº del error. 0 si es error de la clase.

Descargalo de aquí.