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
