MySql + ayuda

MySql + ayuda

Postby Mike Serra » Mon Oct 02, 2006 4:54 pm

BUenas tardes foro!

Os comento, he instalado el servidor de Mysql en mi maquina, he desempolvado los libros de bases de datos relacionales, he creado 2 tablas y he insertado tuplas (desde la consola del mysql). Ahora queda lo mejor, teneis un ejemplo que pueda analizar para conectar five con el servidor?

fw 2.5 (harbour y xharbour)

UN SALUDO y muchas gracias por todo
Mike Serra
 
Posts: 297
Joined: Fri Apr 14, 2006 5:52 pm
Location: Córdoba (España)

Postby Antonio Linares » Mon Oct 02, 2006 9:26 pm

Mike,

Haz una búsqueda por MySQL en estos foros (opción "search" arriba).
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42150
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby sjingo » Tue Oct 03, 2006 1:12 am

Mike

Como ya tienes instalado mysql, ahora debes instalar el MyOdbc que lo puedes bajar fácilmente de internet. Esto te permitirá acceder a las tablas mediante ADO.

Una vez instalado debes configurar el myodbc en: Panel de Control-> Herramientas administrativas -> Orígenes de Datos (ODBC), y en la pstaña DSN de usuario se agrega el nuevo tipo de conexión (MySql ODBC 3.51), ingresas los datos de nombre del servidor, usuario, pasword y base de datos. Si todo va bien obtendrás un "Succes, conection was made! "

Ahora tu aplicación debe poseer soporte para OLE, con xHarbour no tienes que hacer nada, porque tiene implementado por defecto, con Harbour debes añadir la librería HBOLE.lib.

El siguiente paso es crear tu aplicación. El siguiente código que lo he bajado de este mismo foro establece la conexion, se crea el objeto RecordSet, a éste puedes manipularlo desde tu aplicación haciendo uso de sus propiedades y métodos. Más información detallada de éstos lo puedes hallar en MSDN : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdobjodbrec.asp. También lo puedes pasar a un array para visualizarlo con un browse:



#define adOpenForwardOnly 0
#define adOpenKeyset 1
#define adOpenDynamic 2
#define adOpenStatic 3

#define adLockReadOnly 1
#define adLockPessimistic 2
#define adLockOptimistic 3
#define adLockBatchOptimistic 4
#define adUseServer 2
#define adUseClient 3


cQuery:= "SELECT campo1,campo2,campo3 FROM mitabla"
cConnection := "DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=localhost;DATABASE=tuDB;USER=usuario;PASSWORD=miclave"

oCon:=toleauto():new("adodb.connection")
oRS := TOleAuto():New("adodb.recordset")
oRs:CursorLocation = adUseClient
oRs:Open( cQuery , cConnection, adOpenKeyset, adLockOptimistic )

oRs:MoveFirst() // equivale a GO TOP
aDatos:={}

//paso los datos a un arreglo
WHILE !oRs:Eof()
aReg := {}
for nPos := 0 to oRs:Fields:Count() -1
AAdd(aReg,Value(oRs,nPos))
next
AAdd(aDatos,aReg)
oRs:MoveNext()
END

oRs:Close()

////////////////////////////////
Luego de pasado al arreglo lo puedes visualizar como tal


Puede ayudarte de mucho una excelente aplicación llamada TALLER, gentilmente cedida por Miguel Angel, que usa ADO para el acceso a datos.
http://chileforge.cl/frs/download.php/220/Taller.zip

No soy bueno explicando, pero espero te sirva de algo, y como dice Antonio, sigue buscando en el Foro y encontrarás más información

Un saludo

Marcelo Jingo
User avatar
sjingo
 
Posts: 229
Joined: Sat Mar 18, 2006 3:42 pm
Location: Ibarra-Ecuador

Postby Mike Serra » Tue Oct 03, 2006 8:27 am

Muchas gracias Marcelo y Antonio:

Ya se que vienen cosas de mysql en el foro, pero por ejemplo, no he llegado a ver lo que me comentas de myodbc, porque ahí, precisamente fue donde me quede cuando ya tenía todo hecho, y era que me metía en herramientas administrativas >> orígenes de datos (odbc) y al agregar uno nuevo, no encontraba el driver de mysql.

Ahora que ya creo que puedo empezar a hacer algo, seguiré mirando en el foro.

MUCHAS GRACIAS y SALUDOS.
Mike Serra
 
Posts: 297
Joined: Fri Apr 14, 2006 5:52 pm
Location: Córdoba (España)

Postby Baxajaun » Tue Oct 03, 2006 8:44 am

Mike,

también puedes usar Eagle1 de mi amigo Manu Expósito. Te puedes poner en contacto con él en manuexposito arroba terra.es

Eagle1 es una libreria (jerarquía de clases) para atacar directamente a MySQL.

Saludos.
User avatar
Baxajaun
 
Posts: 968
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Postby goosfancito » Tue Oct 03, 2006 12:03 pm

Baxajaun wrote:Mike,

también puedes usar Eagle1 de mi amigo Manu Expósito. Te puedes poner en contacto con él en manuexposito arroba terra.es

Eagle1 es una libreria (jerarquía de clases) para atacar directamente a MySQL.

Saludos.


Esa dire funciona? porque no llegan los mensajes a manu.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Postby Baxajaun » Tue Oct 03, 2006 12:38 pm

Sí, si que funciona.

Saludos.
User avatar
Baxajaun
 
Posts: 968
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Postby goosfancito » Tue Oct 03, 2006 12:51 pm

Baxajaun wrote:Sí, si que funciona.

Saludos.


This is an automatically generated Delivery Status Notification

Delivery to the following recipient failed permanently:

manuexposito arroba terra.com

Technical details of permanent failure:
PERM_FAILURE: SMTP Error (state 9): 550 User unknown


lo separe. pero puse todo junto y cambie @
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Postby Baxajaun » Tue Oct 03, 2006 6:11 pm

Goos,

manuexpositoarrobaterra.es

cambia arroba por @ y debe llegarle los mensajes.

Saludos
User avatar
Baxajaun
 
Posts: 968
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 106 guests