Soliictud de ayuda con un browse y ado

[Ramon Paredes]

Saludes a Todos en el Foro,

Estoy intentando incursionar con ado ( creo que es mejor que usar odbc ) pero no hay forma que pueda hacer un browse con los datos de la tabla, alguien me puede orientar que estoy haciendo mal ?

el codigo de conexion es el siguiente :

Public oDlg,oBrw

Public oCon2 := TOLEAUTO():New("adodb.connection")
Public oRecordSet
Public oCommand := TOleAuto():New("adodb.command")
oCon2:Open("DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1 ; DATABASE=Personal1; UID=root; PWD=1234")
oRecordSet := TOleAuto():New("adodb.recordset")
oRecordSet:ActiveConnection(oCon2)
oRecordSet:Source := "SELECT * FROM MAESTRO"
oRecordSet:LockType := adLockOptimistic
oRecordSet:CursorType := adOpenKeyset
oRecordSet:Open()

DEFINE DIALOG oDlg FROM 1, 1 TO 25, 79

@ 1, 1 LISTBOX oBrw FIELDS oRecordSet:Fields(0):Value ,;
oRecordSet:Fields(1):Value ,;
oRecordSet:Fields(2):Value ,;
oRecordSet:Fields(3):Value ,;
oRecordSet:Fields(4):Value ;
HEADERS "Codigo","Nombre ","Salario","Nombre ","Salario";
FIELDSIZES 60,200,60,200,60 ;
SIZE 284, 137 OF oDlg

@154,08 BTNBMP LEFT PROMPT " Agregar" SIZE 50,19 OF oDlg FILENAME "NEW1.BMP" ACTION oDlg:End()
@154,67 BTNBMP LEFT PROMPT " Modificar" SIZE 50,19 OF oDlg FILENAME "CARDF00C.BMP" ACTION oDlg:End()
@154,125 BTNBMP LEFT PROMPT " Borrar" SIZE 50,19 OF oDlg FILENAME "BORRAR1.BMP" //ACTION BorraU(oLbx )
@154,184 BTNBMP LEFT PROMPT " Buscar" SIZE 50,19 OF oDlg FILENAME "FIND.BMP" //ACTION BuscaU(oLbx,3,"Color")
@154,242 BTNBMP LEFT PROMPT " Salir" SIZE 50,19 OF oDlg FILENAME "SALIR3.BMP" ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED
oRecordSet:close()

RETURN NIL

Agradezco todo tipo de colaboracion de los expertos del foro, saludes desde Nicaragua

[wmormar]

Ramón,

mira este ejemplo, creo que puede servirte.

Code: Select all  Expand view

Public oDlg,oBrw

USE "Personal1" VIA "ADORDD" TABLE "MAESTRO" MYSQL ;
       FROM "localhost" USER "root" PASSWORD "1234"

DEFINE DIALOG oDlg FROM 1, 1 TO 25, 79

@ 1, 1 LISTBOX oBrw FIELDS maestro->codigo, ;
                                           maestro->nombre, ;
                                           maestro->salario ;
          HEADERS    "Codigo","Nombre ","Salario" ;
          FIELDSIZES 60,200,60 ;
          SIZE 284, 137 OF oDlg

   @154,08  BTNBMP LEFT PROMPT " Agregar"    SIZE 50,19 OF oDlg FILENAME "NEW1.BMP"       ACTION oDlg:End()
   @154,67  BTNBMP LEFT PROMPT " Modificar"  SIZE 50,19 OF oDlg FILENAME "CARDF00C.BMP"   ACTION oDlg:End()
   @154,125 BTNBMP LEFT PROMPT " Borrar"     SIZE 50,19 OF oDlg FILENAME "BORRAR1.BMP"    //ACTION BorraU(oLbx )
   @154,184 BTNBMP LEFT PROMPT " Buscar"     SIZE 50,19 OF oDlg FILENAME "FIND.BMP"       //ACTION BuscaU(oLbx,3,"Color")
   @154,242 BTNBMP LEFT PROMPT " Salir"      SIZE 50,19 OF oDlg FILENAME "SALIR3.BMP"     ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

CLOSE DATABASES

RETURN NIL


saludos, espero te de una idea

[wilsongamboa]

William
aprovechando la ocacion prdrias postear el script de compilacion que usas para compilar AdoRdd para xHabrour,org ??

Gracias

[Ramon Paredes]

william,

gracias pero no anda de ningun modo al compilarlo desde FWH 7.01 + xharbour me presenta una serie de errores, no habra otra manera de solucionarlo, entiendo que esto de rddado esta en su fase beta, y yo necesito aplicarlo a sistemas ya funcionando que transfiero a 32 bits en mysql

saludes y nuevamente gracias

[Antonio Linares]

Ramón,

Que errores te presenta ?

[wmormar]

William
aprovechando la ocacion prdrias postear el script de compilacion que usas para compilar AdoRdd para xHabrour,org ??

Gracias

Uso xMate, te sirve igual?

te lo envio a tu correo, cual es?

saludos