Ayuda MySQL conexion remota Xharbour y tmysql

Ayuda MySQL conexion remota Xharbour y tmysql

Postby Databaselab2002 » Mon Apr 07, 2008 7: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
Databaselab2002
 
Posts: 142
Joined: Sun Oct 09, 2005 1:36 am

Postby Marco A. Delgado » 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.
User avatar
Marco A. Delgado
 
Posts: 126
Joined: Fri Oct 07, 2005 4:20 pm
Location: Veracruz, México

Postby JoseLuis » Tue Apr 08, 2008 7: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:
Code: Select all  Expand view  RUN
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  Expand view  RUN
@ 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
JoseLuis
 
Posts: 427
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 52 guests

cron