Page 1 of 1
MySql
Posted: Fri Mar 29, 2013 12:58 am
by 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
Re: MySql
Posted: Sat Mar 30, 2013 7:36 pm
by 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
Re: MySql
Posted: Sun Mar 31, 2013 2:16 am
by joseluisysturiz
Aca tienes un sample completo AMER(Agregar, Modificar, Eliminar, Reporte) con la clase TDolphin de Daniel, espero te sirva, saludos...
http://forums.fivetechsupport.com/viewt ... o+tdolphin
Re: MySql
Posted: Tue Apr 02, 2013 8:22 pm
by 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 _ 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
Re: MySql
Posted: Tue Apr 02, 2013 8:41 pm
by 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...
Re: MySql
Posted: Tue Apr 02, 2013 8:52 pm
by 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
*-------------------------------------------------------------------------------
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
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