FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ayuda MySQL conexion remota Xharbour y tmysql
Posts: 142
Joined: Sun Oct 09, 2005 01:36 AM
Ayuda MySQL conexion remota Xharbour y tmysql
Posted: Mon Apr 07, 2008 07:04 PM

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

Posts: 126
Joined: Fri Oct 07, 2005 04:20 PM
Ayuda MySQL conexion remota Xharbour y tmysql
Posted: Mon Apr 07, 2008 11:25 PM

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

Saludos
Marco A. Delgado.

Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Ayuda MySQL conexion remota Xharbour y tmysql
Posted: Tue Apr 08, 2008 07:01 AM
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:
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:
 @ 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
--------------------------

Saludos



Jose Luis

Continue the discussion