Soliictud de ayuda con un browse y ado

Soliictud de ayuda con un browse y ado

Postby Ramon Paredes » Sun May 06, 2007 7:50 pm

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
User avatar
Ramon Paredes
 
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

Re: Soliictud de ayuda con un browse y ado

Postby wmormar » Sun May 06, 2007 8:32 pm

Ramón,

mira este ejemplo, creo que puede servirte.

Code: Select all  Expand view  RUN
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
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Postby wilsongamboa » Sun May 06, 2007 8:36 pm

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

Gracias
Wilson 'W' Gamboa A
Wilson.josenet@gmail.com
User avatar
wilsongamboa
 
Posts: 598
Joined: Wed Oct 19, 2005 6:41 pm
Location: Quito - Ecuador

Browse con ado, nuevamente, pidiendo auxilio

Postby Ramon Paredes » Mon May 07, 2007 3:12 am

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
User avatar
Ramon Paredes
 
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

Postby Antonio Linares » Mon May 07, 2007 6:50 am

Ramón,

Que errores te presenta ?
regards, saludos

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

Postby wmormar » Tue May 08, 2007 12:03 am

wilsongamboa wrote: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
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 41 guests