MYSQL
Posted: Wed May 14, 2014 12:40 pm
Hola Foro.
Estoy tratando de trabajar con mysql y aun no me puedo conectar a la base.
Inicio sesión y coloco mysql.dll donde esta el ejecutable . es solo a modo prueba pero se que algo me falta y no se que es.
asi es como estoy tratando.
Si Alguien tiene algo realizado por favor que me lo envie. desde ya muchas gracias.
Estoy tratando de trabajar con mysql y aun no me puedo conectar a la base.
Inicio sesión y coloco mysql.dll donde esta el ejecutable . es solo a modo prueba pero se que algo me falta y no se que es.
asi es como estoy tratando.
Si Alguien tiene algo realizado por favor que me lo envie. desde ya muchas gracias.
Code: Select all
#include "FiveWin.ch"
Function Main()
Nota := AbreBases()
Return nil
*-------------------------------------------------------------------------------
FUNCTION AbreBases()
*-------------------------------------------------------------------------------
Local cServer := "localhost"
Local cUser := "root"
Local cPass := ""
Local cBase := "consultorios"
Local oCone
oCone:=tOleAuto():new("ADODB.connection")
oCone:Open( "DRIVER={MySQL ODBC 3.51 Driver};" + ;
"server=" + cServer + ;
";database=" +cBase + ;
";uid=" + cUser + ;
";pwd=" + cPass )
If Empty(oCone)
MsgAlert(" No se Pudo Establecer la Conexion Con La Base De Datos..","Atencion")
Return(Nil)
Else
MsgInfo("lo hemos logrado...."," Exito ")
EndIf
Return( Nil )
*-------------------------------------------------------------------------------
FUNCTION AbreTABLAS()
*-------------------------------------------------------------------------------
Function Tabla( oCone )
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 paises "
//--------------------------------------------------------------//
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
Return( Nil )
