Ayuda con ADORDD ( Problema con Toleauto)

Post Reply
User avatar
Ramon Paredes
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

Ayuda con ADORDD ( Problema con Toleauto)

Post by Ramon Paredes »

Saludes amigos del foro, gracias a la valiosa ayuda de antonio, fernando william y otros he podido compilar una pequeña aplicacion sin problemas, ya reconoce el alias etc. pero ahora me presenta un error extráño, al ejecutar el siguiente codigo :

//===========================
static function browRST()
//===========================

Public oDlg,oBrw

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

DEFINE DIALOG oDlg FROM 1, 1 TO 25, 79

@ 1, 1 LISTBOX oBrw FIELDS MAESTRO->NUMERO, ;
MAESTRO->nombreS, ;
MAESTRO->APELLIDO1 ;
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

me manda el siguiente error :

==========
Path and name: C:\sistemas\RRHH_32\personal.exe (32 bits)
Size: 1,460,224 bytes
Time from start: 0 hours 0 mins 6 secs
Error occurred at: 09/05/2007, 10:02:06
Error description: Error ADODB.Recordset/16389 E_FAIL: STATUS
Args:

Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:STATUS(0)
Called from: => ADO_DELETED(414)
Called from: => DBSKIPPER(0)
Called from: WBROWSE.PRG => (b)TWBROWSE:SETFILTER(0)
Called from: WBROWSE.PRG => TWBROWSE:SKIP(0)
Called from: WBROWSE.PRG => TWBROWSE:PAINT(0)
Called from: WBROWSE.PRG => TWBROWSE:DISPLAY(0)
Called from: CONTROL.PRG => TWBROWSE:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOXINDIRECT(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: => BROWRST(553)
Called from: personal.prg => (b)CREAMENU(121)
Called from: MENU.PRG => TMENU:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: personal.prg => PRINCIPAL(74)

La verdad ni dea que podria ser, y aprovechando la consulta tengo una duda existencial, si desde el browse activo las altas, bajas y cambios con el RDDADO cual seria la sintaxis, o tendre por cada funcion hacer lo normal con la conexion ado, addnew, etc, etc, y eliminar registros con sentencias sql,

Desde siempre agradecido con toda su colaboracion, espero algun dia aportar algo al foro ( al menos a los nuevos ingresos )

Saludes desde Nicaragua
Ramon Paredes
User avatar
Ramon Paredes
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

PRUEBA DE LA VERSION CORREGIDA

Post by Ramon Paredes »

Fernando, mil gracias, copiare las lib donde corresponde y hare la pruebas correspondientes,

Ramon Paredes
Managua, Nicaagua
Post Reply