Clase con funciones para ADO

Clase con funciones para ADO

Postby Compuin » Fri Sep 08, 2017 1:57 pm

Hola Foro

Existe alguna clase que agrupe las funciones para ADO sin tener que llamarlas directamente?
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1213
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Clase con funciones para ADO

Postby Rick Lipkin » Fri Sep 08, 2017 2:27 pm

Look for AdoFunc.prg in the Samples folder .. \source\function

Rick Lipkin
User avatar
Rick Lipkin
 
Posts: 2608
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Clase con funciones para ADO

Postby Compuin » Fri Sep 08, 2017 2:28 pm

Thanks

I already check them. I was trying to find a class or something similar to use it instead FW_ function
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1213
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Clase con funciones para ADO

Postby Rick Lipkin » Fri Sep 08, 2017 2:31 pm

Here is my original post ( some years ago ) using native Microsoft Ado Class's and methods .. Rao has done a great job with the wrappers found in AdoFunc.Prg ... Here is the FiveWin Wili on ADO.

Rick Lipkin

http://wiki.fivetechsoft.com/doku.php?i ... ted_stuffs
User avatar
Rick Lipkin
 
Posts: 2608
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Clase con funciones para ADO

Postby jbrita » Fri Sep 08, 2017 6:40 pm

*** Constant Group: CursorTypeEnum
#command ADO USE <f1> INDEX <v1> LIMITE <l1> => ADOUSE( <(f1)>, <v1>, <l1> )
#command ADO REPLACE <f1> WITH <v1> => ADOREPLACE( <(f1)>, <v1> )
#command ADO COMMIT => ADOSAVE()
#command ADO SELECT <cRecordSet> => ADOSELECT( <cRecordSet> )
#command ADO APPEND BLANK => ADOAPEND()
#command ADO CLOSE <cRecordSet> => ADOCLOSE( <cRecordSet> )
#command ADO DELETE <cRecordSet> => ADODELETE( <cRecordSet> )
#command ADO EXECUTE <*Sql*> => ADOEXECUTE( <(Sql)> )
#command ADO GO TOP <cRecordSet> => ADOGOTOP( <cRecordSet> )
#command ADO LOAD <cRecordSet> => ADOLOAD( <cRecordSet> )

algo asi
jbrita
 
Posts: 486
Joined: Mon Jan 16, 2006 3:42 pm

Re: Clase con funciones para ADO

Postby Compuin » Sat Sep 09, 2017 1:20 pm

Hola,

Me refiero a algo como esto

Code: Select all  Expand view
#Include "fivewin.ch"

CLASS TSqlServer
   Data oCon
   Data cHost  
   Data cDatabase
   Data cUser      
   Data cPass      
     
   METHOD New(Host, Database, User, Pass) CONSTRUCTOR
   METHOD CreateDatabase()
   METHOD GetTables()
   METHOD Open(cTable)
   METHOD Query(cSql)
   METHOD Exec(cSql)
   METHOD GetStruct(cTable)
   METHOD ImportFromDbf(cFile)
ENDCLASS


Code: Select all  Expand view
METHOD New(Host, Database, User, Pass) CLASS TSqlServer
...
     
::oCon :=  Fw_OpenAdoConnection(cString,.T.)
...

Return Self
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1213
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 10 guests