Ayuda con ADORDD ( Problema con Toleauto)
Posted: Wed May 09, 2007 4:09 pm
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
//===========================
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