QUE SIGNIFICA ESTE ERROR EN CON ADORDD ???

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

QUE SIGNIFICA ESTE ERROR EN CON ADORDD ???

Post by Ramon Paredes »

Saludes a Todos los amigos del foro.


Compile adordd.prg y enlaze el obj y no hay problema pero cuando lo ejecuto ahora sale ete extraño error :

error adox.catalog:tables:keys/16389 E_FAIL: COUNT from Errorsys, line: 0 ( lo digite por que no lo pude copiar )

alguien podria decirme de que se trata

Agradecido como siempre,


Ramon Paredes
Managua Nicaragua
Top
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Re: QUE SIGNIFICA ESTE ERROR EN CON ADORDD ???

Post by Vikthor »

Ramon Paredes wrote:Saludes a Todos los amigos del foro.


Compile adordd.prg y enlaze el obj y no hay problema pero cuando lo ejecuto ahora sale ete extraño error :

error adox.catalog:tables:keys/16389 E_FAIL: COUNT from Errorsys, line: 0 ( lo digite por que no lo pude copiar )

alguien podria decirme de que se trata

Agradecido como siempre,


Ramon Paredes
Managua Nicaragua
Es un detalle al usar "USE"

De momento lo puedes solucionar con esta modificacion:

Code: Select all

// Modificacion William Morales
STATIC FUNCTION ADO_CLOSE( nWA )
   LOCAL oADO := USRRDD_AREADATA( nWA )[ 1 ]

   oADO:Close()

RETURN SUCCESS // UR_SUPER_CLOSE( nWA )
o también con esta otra

Code: Select all

static function ADO_CLEARREL( nWA )

   local nKeys := 0, cKeyName

*   if s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys != nil
*      nKeys = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Count
*   endif

*   if nKeys > 0
*      cKeyName = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys( nKeys - 1 ):Name
*      if Upper( cKeyName ) != "PRIMARYKEY"
*         s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Delete( cKeyName )
*      endif
*   endif

return SUCCESS
Vikthor
Top
User avatar
Ramon Paredes
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

No funcionan ninguna de las dos,

Post by Ramon Paredes »

Vicktor,

Agradezco tu atencion pero probe con las dos modificaciones y ninguna me funciona, yo estoy trabajando con FWH 7.01, xHarbour 0.99.71 y Borland C++, no se si esto tenga que ver, lo cierto es que con las dos opciones emite el mismisimo error,


Alguna ayuda sera bienvenida,


Ramon Paredes
Managua Nicaragua
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Ramón,

Prueba con el ADORDD.lib más reciente que está aqui:

www.noway.com/files/adordd.zip
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
Ramon Paredes
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

otro error imcomprensible

Post by Ramon Paredes »

Antonio,

Baje la ultima version del adordd y la instale, el programita compila pero al terminar en enlazado me envia el siguiente error :

"adordd.prg" was compiled by older version , PCODE version 9 is no longer supported - Please recompile.

Procedi a integrar el fuente a la compilacion a fin de enlazar el obj y me da el mismo error, alguna idea que puedo hacer .

Como siempre muy agradecido

Ramon Paredes
Managua Nicaragua
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Ramón,

No enlaces ADORDD.lib, sólo el ADORDD.obj que tu creas
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
Ramon Paredes
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

error nuevamente

Post by Ramon Paredes »

Antonio,

Gracias por tu atencion y la del foro, hice lo que me indicaste, compile el rddado.prg, lo enlace, la lib no solo el obj, y compilo y enlazo sin problemas se ejecuta pero al entrar en la aplicacion me manda este error :


Application
===========
Path and name: C:\sistemas\RRHH_32\personal.exe (32 bits)
Size: 1,466,368 bytes
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 12/05/2007, 08:58:38
Error description: Error ADODB.Recordset/16389 E_FAIL: OPEN
Args:
[ 1] = C MAESTRO
[ 2] = O Object

Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:OPEN(0)
Called from: => ADO_OPEN(264)
Called from: => DBUSEAREA(0)
Called from: => BROWRST(532)
Called from: personal.prg => (b)CREAMENU(117)
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)

System
======
CPU type: Intel(R) Celeron(R) M processor 1.60GHz 1600 Mhz
Hardware memory: 447 megs

el build con el que estoy compilando es el siguiente :

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 7.01 - January 2007 xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2006 for Microsoft Windows 95/98/NT/2000/ME and XP ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

set hdir=c:\xharbour
set bcdir=c:\BORLAND\bcc55
set fwdir=c:\fwh

%hdir%\bin\harbour %1 adordd /n /i%fwdir%\include;%hdir%\include /p %2 %3 > clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

echo -O2 -e%1.exe -I%hdir%\include %1.c adordd.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r %1

echo c0w32.obj + > b32.bc
echo %1.obj + >> b32.bc
echo adordd.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %fwdir%\lib\Fivehx.lib %fwdir%\lib\FiveHC.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\usrrdd.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtgui.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
echo %hdir%\lib\rddads.lib + >> b32.bc
echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc

rem uncomment this line to use the debugger and comment the following one
rem %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
%bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc

IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:LINKERROR
ECHO * There are errors
GOTO EXIT

:SINTAX
ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG
ECHO {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT

Y la peueña aplicacion que quiero ejecutar es :

//===========================
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

Agradeceria de sobremanera cualquier orientacion al respecto


Ramon Paredes
Managua Nicaragua
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Ramón,

El error viene de aqui:

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

Tienes instalado el driver de ADO para MySQL ? Comprueba que esos datos usados sean los correctos
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
Ramon Paredes
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

solicitud de aclaracion

Post by Ramon Paredes »

Antonio:

Hay algun driver ado para Mysql, yo lo que instale es el ODBC 3.51 para conexiones MySql pero realmente no entiendo a que te refieres con el driver ado para MySql, te agradecria me aclares este punto para buscar la solucion ,

Con relacion a los datos, son los correctos ya que con esos mismo datos acceso a la tabla maestro desde el admiistrador de Mysql o Navicat


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

baje el ado

Post by Ramon Paredes »

Antonio,

Desde la pagina oficial de Mysql baje el conector ADO.net para MySql y lo instale pero el problema persiste,

Gracias

Ramon Paredes
Managua, Nicaragua
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Ramón,

Tienes que instalar esto:

http://dev.mysql.com/downloads/connector/odbc/3.51.html
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
Ramon Paredes
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

algo he hecho mal

Post by Ramon Paredes »

Gracias antonio por tus oportunas orientaciones,

Yo ya tengo instalado el ODBC 3.51 que me indicas e inclusive tengo una pequeña aplicacion en ado puro que da altas y bajas, efectua la conexion sin problemas, esta es :


//====================
FUNCTION EMPLEA1()
//====================

Public oDlg1,oNumero,oNomb1,oApelli1,oApelli2,oTipo,oTipoe,oCargo,oNomcar,oUnidad,oNomUni,oFecnac,oFecIng
Public oSup,oNomsup,oBaj1,oBaj2,oBaj3,oLinea,oImg
Public mNumero,mNomb1,mApelli1,mApelli2,mTipo,mTipoe,mCargo,mNomcar,mUnidad,mNomUni,mFecnac
Public mFecIng,mSup,mNomsup,mBaj1,mBaj2,mBaj3,mLinea

mNumero := space(5)
mNomb1 := space(25)
mApelli1 := space(15)
mApelli2 := space(12)
mTipo := space(1)
mTipoe := space(10)
mCargo := space(4)
mNomcar := space(35)
mUnidad := space(4)
mNomUni := space(35)
mFecnac := ctod("")
mFecIng := ctod("")
mSup := space(5)
mNomsup := space(40)
mBaj1 := space(60)
mBaj2 := space(60)
mBaj3 := space(60)
mLinea := space(2)

DEFINE DIALOG oDlg1 RESOURCE 20

REDEFINE IMAGE oImg ID 160 OF oDlg1 FILE "FOTO1332.JPG" SIZE ADJUST UPDATE DESIGN
REDEFINE GET oNumero Var mNumero ID 101 of oDlg1 PICTURE "99999"
REDEFINE GET oNomb1 Var mNomb1 ID 102 of oDlg1
REDEFINE GET oApelli1 Var mApelli1 ID 103 of oDlg1
REDEFINE GET oApelli2 Var mApelli2 ID 104 of oDlg1
REDEFINE GET oFecINg Var mFecIng ID 105 of oDlg1
REDEFINE GET oTipo Var mTipo ID 108 of oDlg1
REDEFINE GET oTipoe Var mTipoe ID 106 of oDlg1
REDEFINE GET oLinea Var mLinea ID 107 of oDlg1
REDEFINE GET oFecNac Var mFecNac ID 109 of oDlg1
REDEFINE GET oCargo Var mCargo ID 110 of oDlg1
REDEFINE GET oNomCar Var mNomCar ID 111 of oDlg1
REDEFINE GET oUnidad Var mUnidad ID 112 of oDlg1
REDEFINE GET oNomUni Var mNomUni ID 113 of oDlg1
REDEFINE GET oSup Var mSup ID 140 of oDlg1
REDEFINE GET oNomSup Var mNomSup ID 141 of oDlg1
REDEFINE GET oBaj1 Var mBaj1 ID 129 of oDlg1
REDEFINE GET oBaj2 Var mBaj2 ID 132 of oDlg1
REDEFINE GET oBaj3 Var mBaj3 ID 134 of oDlg1

REDEFINE BUTTON ID 130 of oDlg1 ACTION( AGREGO1())
REDEFINE BUTTON ID 131 of oDlg1 ACTION( oDlg1:End())

ACTIVATE DIALOG oDlg1 CENTERED
DBCLOSEALL()

RETURN NIL

//==========================
STATIC FUNCTION AGREGO1()
//==========================

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()
oRecordSet:AddNew()
oRecordSet:Fields(0):Value := mNumero
oRecordSet:Fields(1):Value := mNomb1
oRecordSet:Fields(2):Value := mApelli1
oRecordSet:Fields(3):Value := mApelli2
oRecordSet:Fields(4):Value := mTipo
oRecordSet:Fields(5):Value := mTipoe
oRecordSet:Fields(6):Value := mCargo
oRecordSet:Fields(7):Value := mNomCar
oRecordSet:Fields(8):Value := mUnidad
oRecordSet:Fields(9):Value := mNomUni
oRecordSet:Fields(10):Value := mFecNac
oRecordSet:Fields(11):Value := mFecIng
oRecordSet:Fields(12):Value := mSup
oRecordSet:Fields(13):Value := mNomSup
oRecordSet:Fields(14):Value := mBaj1
oRecordSet:Fields(15):Value := mBaj2
oRecordSet:Fields(16):Value := mBaj3
oRecordSet:Fields(17):Value := mLinea
oRecordSet:Update()

oCon2:Close()
MsgAlert("La Informacion ha sido Registrada")

mNumero := space(5)
mNomb1 := space(25)
mApelli1 := space(15)
mApelli2 := space(12)
mTipo := space(1)
mTipoe := space(10)
mCargo := space(4)
mNomcar := space(35)
mUnidad := space(4)
mNomUni := space(35)
mFecnac := ctod("")
mFecIng := ctod("")
mSup := space(5)
mNomsup := space(40)
mBaj1 := space(60)
mBaj2 := space(60)
mBaj3 := space(60)
mLinea := space(2)

oNumero:Refresh()
oNomb1:Refresh()
oApelli1:Refresh()
oApelli2:Refresh()
oTipo:Refresh()
oTipoe:Refresh()
oCargo:Refresh()
oNomcar:Refresh()
oUnidad:Refresh()
oNomUni:Refresh()
oFecnac:Refresh()
oFecIng:Refresh()
oSup:Refresh()
oNomsup:Refresh()
oBaj1:Refresh()
oBaj2:Refresh()
oBaj3:Refresh()
oLinea:Refresh()

oNumero:Setfocus()

RETURN NIL

esto registra perfectamente el registro, el problema es que no pude hacer el listbox desde el recordset, asi que estoy en el limbo, probe cambiar en la prueba de adordd localhost por 127.0.0.1 pero el error persiste.

Agradeciendote,


Ramon Antonio Paredes
Managua, Nicaragua
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Ramón,

Prueba el ejemplo mysql1.prg que se proporciona con ADORDD y compáralo con tu código
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
Ramon Paredes
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

no se que hacer

Post by Ramon Paredes »

Antonio,

Gracias por tua atencion, he hecho de todo y al final el error persiste no logra adordd establecer la apertura de la tabla, tome el ejemplo Mysql1.prg y lo compare con mi codigo y esta bien, e inclusive sustitui los valores con mis valores y compila sin problemas al ejecutarse da el mismo error, la verdad no se que tengo mal configurado,

Tngo una conexion ODBC hecha en Herramientas Administrativas de windows xp que apunta a la base de datos MySql "Persona1"

Tengo instalado MySql Version 5.0

Los parametros de apertura que le proporciono son los utilizados en el ejemplo:

USE (BASE DE DATOS) VIA "ADORDD" TABLE (NOMBRE DE LA TABLA A USAR) MYSQL ;
FROM (NOMBRE DEL SERVIDOR) USER (LOGIN DE USUARIO ) PASSWORD ( PASS DE LA BASE DE DATOS) ALIAS ( ALIAS A UTILIZAR)

Con toda la amplia experiencia que tu tienes, necesito el norte donde buscar el problama para poder corregirlo.

Gracias

Ramon Paredes
Managua, Nicaragua


[quote][/quote]
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Ramón,

mysql1.prg te funciona bien como está, usando www.freesql.org ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”