Posts: 115

Joined: Sat Mar 07, 2009 09:36 PM

MySql
Posted: Fri Mar 29, 2013 12:58 AM

Buenos días foro. estoy precisando si alguien tiene un ejemplo tipo abm hecho con fivewin y msql , tengo un servidor que tiene wamp donde esta apache y mysql

yo trato de acceder de la siguiente manera .

Include "Fivewin.ch"

Include "Ado.ch"

FUNCTION Main()
Local oCone
Local cServer := "localhost"
Local cUser := "root"
Local cPass := ""
Local cBase := "usuarios"

     oCone := CreateObject( &quot;ADODB.Connection&quot; )

     oCString := &quot;DRIVER={MySQL ODBC 3.51 Driver};  SERVER=&quot;+cServer+&quot;;DATABASE=&quot;+cBase+&quot;; UID=&quot;+cUser+&quot;; PWD=&quot;+cPass

     ? oCone

     oCone:Open(oCString)

Return( Nil )

y no incluyo nada mas es el compilado... tengo fwh 12.8 .... pero me da error .. de hecho lo pruebo en mi pc que es donde tengo el php ...

si alguien me da una mano desde muy agradecido. con un ejemplo me basta. va por ahora ja ja

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: MySql
Posted: Sat Mar 30, 2013 07:36 PM

Hola Juan Carlos!
No probaste con Tdolphin?
Es muy sencilla de utilizar, y tiene muy buenas herramientas!
Y un ABM clásico con un xbrowse es muy sencillo y casi se arma solo...!!

http://tdolphin.blogspot.com.ar/
Saludos

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: MySql
Posted: Sun Mar 31, 2013 02:16 AM

Aca tienes un sample completo AMER(Agregar, Modificar, Eliminar, Reporte) con la clase TDolphin de Daniel, espero te sirva, saludos... :shock:

viewtopic.php?f=6t=23218start=0hilit=ejemplo+tdolphin

&&&

Dios no está muerto...

Gracias a mi Dios ante todo!

juan carlos bellucci

Posts: 115

Joined: Sat Mar 07, 2009 09:36 PM

Re: MySql
Posted: Tue Apr 02, 2013 08:22 PM

A ver si me queda claro si no uso Tdolphin nada puedo hacer... pense que fivewin tenia alguna forma de conectarse a My sql ... esta gente tiene sun sistema via intranet con php y en algunos casos quiero acceder con fivewin para realizar ciertas tareas que me son mas simples....donde con php se pueden hacer pero tengo que usar muchas herramientas para hacer lo mismo.

a ver si alguien tiene por ahi en el baul de los recuerdos yo sigo buscando en la web .. desde muchas pero muchas gracias.

mi correo es juanca252@yahoo.com.ar

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: MySql
Posted: Tue Apr 02, 2013 08:41 PM

juan carlos bellucci,

TDolphin es una herramienta que puedes utilizarla perfectamente desde FWH, no entiendo el comentario de que no se puede desde FWH.

Por otro lado, Daniel siempre está al pendiente asi que intentalo y tus dudas seran aclaradas aqui en el foro...

William, Morales

Saludos

méxico.sureste

Pedro

Posts: 464

Joined: Tue Mar 21, 2006 07:30 PM

Re: MySql
Posted: Tue Apr 02, 2013 08:52 PM

Hola Juan Carlos
No sé si con ADO te bastará para lo que necesitas, si es así estas funciones, que supongo las tienes en FWH/SOURCE/FUNCTION/olefuncs.prg, debería ser suficiente para establecer conexión y crear un recordset.
Asumo que el driver ODBC 3.51 estará en el pc configurado.

Para la conexión

Code (fw): Select all Collapse

 *-------------------------------------------------------------------------------
FUNCTION AbreTABLAS()
*-------------------------------------------------------------------------------
Local cServer := "localhost"
Local cUser   := "root"
Local cPass   := ""

       oCone:=tOleAuto():new("ADODB.connection")
       oCone:Open( "DRIVER={MySQL ODBC 3.51 Driver};" + ;
                   "server=" + cServer + ;
                   ";database=" +"diario" + ;
                   ";uid=" + cUser + ;
                   ";pwd=" + cPass )
                   
       If Empty(oCone)
          MsgAlert(" No se Pudo Establecer la Conexion Con La Base De Datos..","Atencion")
          Return(Nil)
       EndIf


Return( Nil )

Para el RecordSet

Code (fw): Select all Collapse

  
Function la que sea
Local....
Local.....
Local oRs, oError

    If oCone <> nil
         oRs:=tOleAuto():New("ADODB.RecordSet")
         oRs:CursorLocation   := adUseClient
         oRs:CursorType       := adOpenKeyset
         oRs:LockType         := adLockOptimistic
         oRs:ActiveConnection := oCone
         oRs:Source           := "SELECT * FROM (la tabla que necesites)"
      //--------------------------------------------------------------//
         TRY
            oRs:Open()
         CATCH oError
            MsgStop( "No se ha podido abrir la Tabla ....... !"," Atención  ")
            Return(Nil)
         END
      Else  
         MsgStop("No hay conexión con la base de datos","ATENCION")
         Return nil
      EndIf

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO

FiveTech Support Forums

Include "Fivewin.ch"

Include "Ado.ch"

Continue the discussion