Ayuda MySQL conexion remota Xharbour y tmysql

Post Reply
Databaselab2002
Posts: 142
Joined: Sun Oct 09, 2005 1:36 am

Ayuda MySQL conexion remota Xharbour y tmysql

Post by Databaselab2002 »

Estimados Colegas


Estoy aprendiendo y tratando de conectar mi aplicacion hecha con xharbour .99.50 y FWH 26 a una tabla Mysql ubicada en un servidor remoto ,Alguien me puede orientar como hacerlo, debo crear un dsn

No puedo crear la libreria para la version xharbour que yo tengo porque
me tira muchos errores, alguien me puede enviar un bat para recompilarla

desde ya muchas gracias
Fabian
databaselab2002@yahoo.com.ar
User avatar
Marco A. Delgado
Posts: 126
Joined: Fri Oct 07, 2005 4:20 pm
Location: Veracruz, México

Post by Marco A. Delgado »

Mandame un privado o contactame por msn, yo utilizo la tmysql de xharbour sin problemas.


Saludos
Marco A. Delgado.
JoseLuis
Posts: 359
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Post by JoseLuis »

Hola Fabian

Yo estoy utilizando sin ningún problema Adordd, del que se ha hablado mucho en éste foro.

Para utilizarlo simplemente compilas con tu proyecto "Adordd.prg" y "Adordd.ch".
Cuando quieras manejar datos de mysql en tu servidor remoto haces:

Code: Select all

USE (aqui la BD sin comillas) VIA "ADORDD" TABLE (aqui la tabla con comillas) MYSQL ; 
FROM (Aqui el nombre del servidor remoto con comillas) USER (Usuario con comillas) PASSWORD (Password con comillas) alias (Alias con comillas) NEW 
y a partir de aquí, puedes utilizar tu tabla (por ejemplo "recogidas") como si se tratase de una Dbf, por ejemplo listbox:

Code: Select all

 @ 1, 1 LISTBOX oLbx FIELDS recogidas->fecha, ; 
  recogidas->compania, ; 
  recogidas->Nombrer, ;
  recogidas->Caller, ; 
  recogidas->Poblar, ;
  recogidas->Comentario ;
  HEADERS "Fecha ","Avisado por:","Recoger en:","Domicilio","Poblacion","Observaciones" ; 
  FIELDSIZES 45,100,100,100,60,100 ; 
  SIZE 284, 137 OF oDlg 

  oLbx:nLineStyle := 1
  oLbx:nClrBackHead := RGB(248,191,36)
  oLbx:bTextColor:= {|nRow,nCol,nStyle| If( nStyle==0 .and. nCol==8,CLR_HRED, ) }
  oLbx:nClrPane:={||iIF((oLbx:cAlias)->(OrdKeyNo())%2==0,nRGB(242,247,252),nRGB(226,226,208))}

Saludos

Jose Luis
Post Reply