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
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: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
// Modificacion William Morales
STATIC FUNCTION ADO_CLOSE( nWA )
LOCAL oADO := USRRDD_AREADATA( nWA )[ 1 ]
oADO:Close()
RETURN SUCCESS // UR_SUPER_CLOSE( nWA )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 SUCCESSVicktor,
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
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
Ram贸n,
No enlaces ADORDD.lib, s贸lo el ADORDD.obj que tu creas
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 :
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
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)
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
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
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
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
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
Ram贸n,
Prueba el ejemplo mysql1.prg que se proporciona con ADORDD y comp谩ralo con tu c贸digo
Ram贸n,
mysql1.prg te funciona bien como est谩, usando www.freesql.org ?
