MySql

[juan carlos bellucci]

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( "ADODB.Connection" )

oCString := "DRIVER={MySQL ODBC 3.51 Driver}; SERVER="+cServer+";DATABASE="+cBase+"; UID="+cUser+"; PWD="+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]

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

[joseluisysturiz]

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

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

[juan carlos bellucci]

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]

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...

[Pedro]

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: Select all  Expand view

*-------------------------------------------------------------------------------
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: Select all  Expand view

 
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