FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Nuevo AdoRDD (libre)

Post a reply

Re: Es Posible Abrir una BD de SQLITE ??

Postby thefull » Thu Jun 28, 2007 9:13 am

cometa855 wrote:Hola, Es posible Abrir una Base de Datos de SQLITE con ADORDD ?, donde puedo encontrar ejemplos?

Saludos
Mauro S.

Supongo que debes de tener la cadena de conexion, pero no tengo ni idea.
Lo que puedes hacer es coger al API libre de Sqlite3 para Harbour, y acceder nativamente, seguro que iras más rapido.

En el foro tienes más información.
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
User avatar
thefull
 
Posts: 730
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona
Top

Postby thefull » Thu Jun 28, 2007 10:58 am

Fernando Sanchez wrote:cometa855,

Puedes conectarte al SQLITE desde ADORDD, solo tienes que modificar el codigo fuente y añadir la cadena de conexión.

El beneficio de usar ADORDD es que puedes usar SQLITE como has usado los DBF, con los comandos APPEND BLANK, REPLACE etc...


Fernando, ¿ puedes poner la cadena de conexion ?
Y otra pregunta, ¿ porque es necesario CAMBIAR el codifo fuente ?
Supongo que será su codigo fuente, no el del ADORDD ....
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
User avatar
thefull
 
Posts: 730
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona
Top

OK,

Postby cometa855 » Thu Jun 28, 2007 1:54 pm

Ok, Gracias a todos, ahora mi tarea sera buscar esa cadena de Conexion, me parece que por ahi vi un ejemplo de T-Gtk que accesa a Sqlite, lo checare a ver si encuentro algo,

Saludos
Mauro S.
cometa855
 
Posts: 9
Joined: Wed May 09, 2007 12:28 am
Top

Postby thefull » Fri Jun 29, 2007 7:40 am

Gracias, ya lo vi por encima.
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
User avatar
thefull
 
Posts: 730
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona
Top

Postby jrendon » Fri Jun 29, 2007 3:27 pm

Antonio Linares wrote:Juan,

Revisa el código fuente del ADORDD, es la mejor documentación disponible. Es simple y fácil de entender.

Y revisa los ejemplos que se proporcionan


Gracias Antonio Revisare el fuente..

Saludos
Juan Antonio Rendón
Juan Rendon
Saludos.
desde Mazatlán, Sinaloa. Mexico
jrendon
 
Posts: 12
Joined: Thu May 10, 2007 3:34 am
Top

No consigo compilar

Postby AngelSalom » Tue Jul 17, 2007 5:05 pm

Lamento la pregunta tonta, pero no consigo compilar para realizar las pruebas :

Obtengo :
Code: Select all  Expand view
Compiling...
Harbour Compiler Alpha build 45.0 (Flex)
Copyright 1999-2005, http://www.harbour-project.org/
Compiling 'mysql1.prg' and generating preprocessed output to 'mysql1.ppo'...

Lines 16, Functions/Procedures 1
Generating C source output to 'mysql1.c'... Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
mysql1.c:
*
Linking...
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_hb_itemGetSymbol' referenced from C:\SI\TRABAJO\FWH\SICLASES\ADORDD\SAMPLES\USRRDD.LIB|usrrdd
Error: Unresolved external '_hb_rddGetWorkAreaPointer' referenced from C:\SI\TRABAJO\FWH\SICLASES\ADORDD\SAMPLES\USRRDD.LIB|usrrdd
Error: Unresolved external '_hb_xvmPopLogical' referenced from C:\SI\TRABAJO\FWH\SICLASES\ADORDD\SAMPLES\USRRDD.LIB|usrrdd
Error: Unresolved external '_hb_xvmPushLocalByRef' referenced from C:\SI\TRABAJO\FWH\SICLASES\ADORDD\SAMPLES\USRRDD.LIB|usrrdd
Error: Unresolved external '_hb_vmProcessSymbolsEx' referenced from C:\SI\TRABAJO\FWH\SICLASES\ADORDD\SAMPLES\ADORDD.LIB|adordd
Error: Unresolved external '_HB_FUN_HB_TOKENGET' referenced from C:\SI\TRABAJO\FWH\SICLASES\ADORDD\SAMPLES\ADORDD.LIB|adordd
Error: Unresolved external '_hb_itemReSizeString' referenced from C:\SI\TRABAJO\FWH\SICLASES\ADORDD\SAMPLES\HBOLEAUT.LIB|w32ole
Error: Unresolved external '_HB_FUN_HB_EXECFROMARRAY' referenced from C:\SI\TRABAJO\FWH\SICLASES\ADORDD\SAMPLES\HBOLEAUT.LIB|win32ole
Error: Unresolved external '_HB_FUN_HB_ISLOGICAL' referenced from C:\SI\TRABAJO\FWH\SICLASES\ADORDD\SAMPLES\HBOLEAUT.LIB|win32ole


El build.bat :

Code: Select all  Expand view
@ECHO OFF
CLS

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

ECHO Compiling...

set hdir=c:\si\len\harbour
set bcdir=c:\si\len\bcc55

%hdir%\bin\harbour %1 /n /i..\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%c:\si\len\harbour\include;c:\si\len\bcc55\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c @b32.bc
:ENDCOMPILE

echo c:\si\len\bcc55\lib\c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtwin.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
echo %hdir%\lib\codepage.lib + >> b32.bc
echo adordd.lib +  >> b32.bc
echo usrrdd.lib +  >> b32.bc
echo hboleaut.lib +  >> b32.bc


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

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib, >> b32.bc

ECHO *
ECHO Linking...
%bcdir%\bin\ilink32  -Gn -Tpe -s @b32.bc

rem delete temporary files
rem @del %1.c

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

:LINKERROR
rem PAUSE * Linking 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


Gracias anticipadas
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
User avatar
AngelSalom
 
Posts: 708
Joined: Fri Oct 07, 2005 7:38 am
Location: Benicarló (Castellón ) - España
Top

Postby Antonio Linares » Tue Jul 17, 2007 5:24 pm

Angel,

Necesitas usar una versión más reciente de Harbour.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41467
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Top

Problemas para compilar

Postby Jose Luis Aguilar Solis » Mon Jul 30, 2007 3:13 pm

Hola Antonio,

estoy haciendo pruebas con el ADORDD pero se queda pasmado
trabajo con Xharbour
@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 7.01 - April 2007 xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2007 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:\Compiler\xharbour
set bcdir=c:\Compiler\bcc5
Set FW=c:\COMPILER\FWH

%hdir%\bin\harbour %1 /n /i%Fw%\include;%hdir%\include /w /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 > 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 %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %FW%\lib\Fivehx.lib %FW%\lib\FiveHC.lib + >> b32.bc
echo %hdir%\lib\rtl.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\usrrdd.lib + >> b32.bc
echo %hdir%\lib\adordd.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
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem 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 cuando se compila manda esto:
Compiling...
xHarbour Compiler build 0.99.71 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'access1.prg' and generating preprocessed output to 'access1.ppo'...
Lines 14, Functions/Procedures 1
Generating C source output to 'access1.c'...
Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
access1.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland

Aparentemente esta bien pero nunca se ejecuta esta ahi en espera
tengo Office 2007
se queda ahi pasmado ya que tengo que matar el proceso. que es lo quepudoera estar pasando

saludos cordiales
JL
Mexico
Jose Luis Aguilar Solis
 
Posts: 13
Joined: Tue Jun 20, 2006 3:03 pm
Location: Mexico
Top

Postby Antonio Linares » Mon Jul 30, 2007 4:32 pm

Jose Luis,

Sinceramente no se que pueda estar pasando. Aqui en nuestras pruebas con Access funciona bien.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41467
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Top

Postby Daniel Segura » Mon Jul 30, 2007 9:33 pm

Olá Jose Luiz

Use adordd.prg e não use a adordd.lib,

comigo resolvi desta maneira.

Daniel Segura
ciacpd@terra.com.br
Daniel Segura
 
Posts: 7
Joined: Thu Sep 14, 2006 12:32 am
Location: Brasil - São Paulo - Mairinque
Top

Postby Ale SB » Tue Jul 31, 2007 1:26 am

Ola Amigos,

Oque es esse erro:
Code: Select all  Expand view
Application
===========
   Path and name: C:\ProgFwh28\TestAdo\Tado.Exe (32 bits)
   Size: 1,414,144 bytes
   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 07/30/07, 22:17:28
   Error description: Error ADODB.Connection/16389  E_FAIL: OPEN
   Args:
     [   1] = C   DRIVER={MySQL ODBC 3.51 Driver};server=127.0.0.1;database=gerefina;uid=root;pwd=xxxxx

Stack Calls
===========
   Called from: win32ole.prg => TOLEAUTO:OPEN(0)
   Called from:  => ADO_OPEN(241)
   Called from:  => DBUSEAREA(0)
   Called from: AdoMain.Prg => MAIN(9)


AdoMain.Prg
Code: Select all  Expand view
#include "..\include\FiveWin.ch"
#include "c:\adordd\source\adordd.ch"

REQUEST ADORDD

function Main()

   USE gerefina VIA "ADORDD" TABLE "Agencias" MYSQL  ;
      FROM "127.0.0.1" USER "root" PASSWORD "xxxxx"

   Browse()

   USE

return nil



Saludos
aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
User avatar
Ale SB
 
Posts: 248
Joined: Wed Jan 11, 2006 11:30 am
Location: Campo Grande-MS / Brasil
Top

Postby Armando » Tue Jul 31, 2007 1:48 am

Ale:

Normalmente ese error es porque no se ha logrado la conexión con el servidor MySql, revisa que el Password (xxxxx) sea el correcto.

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3100
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Top

Postby Ale SB » Tue Jul 31, 2007 2:12 am

Ola Armando,

faltava lo MySQL ODBC 3.51 Driver.

Mas agora, esta com esto erro:

Code: Select all  Expand view
Application
===========
   Path and name: C:\ProgFwh28\TestAdo\Tado.Exe (32 bits)
   Size: 1,414,144 bytes
   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 07/30/07, 23:10:32
   Error description: Error ADODB.Recordset/16389  E_FAIL: OPEN
   Args:
     [   1] = C   Agencias
     [   2] = O   Object

Stack Calls
===========
   Called from: win32ole.prg => TOLEAUTO:OPEN(0)
   Called from:  => ADO_OPEN(264)
   Called from:  => DBUSEAREA(0)
   Called from: AdoMain.Prg => MAIN(9)


O que poede ser agora ?
aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
User avatar
Ale SB
 
Posts: 248
Joined: Wed Jan 11, 2006 11:30 am
Location: Campo Grande-MS / Brasil
Top

Postby Armando » Tue Jul 31, 2007 3:18 am

Ale:

Sigue siendo el mismo error, no hay conexión con el servidor, comprueba que el usuario y el password son correctos.

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3100
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Top

Postby Ale SB » Tue Jul 31, 2007 5:10 am

Ja Verifiquei, user e password....estao corretos....e o erro continua.

Ja com conexao Remoto...funciona OK !

Mas a Local ainda continua com esto erro:
Code: Select all  Expand view
Application
===========
   Path and name: C:\ProgFwh28\TestAdo\Tado.Exe (32 bits)
   Size: 1,414,144 bytes
   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 07/30/07, 23:10:32
   Error description: Error ADODB.Recordset/16389  E_FAIL: OPEN
   Args:
     [   1] = C   Agencias
     [   2] = O   Object

Stack Calls
===========
   Called from: win32ole.prg => TOLEAUTO:OPEN(0)
   Called from:  => ADO_OPEN(264)
   Called from:  => DBUSEAREA(0)
   Called from: AdoMain.Prg => MAIN(9)


Saludos
aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
User avatar
Ale SB
 
Posts: 248
Joined: Wed Jan 11, 2006 11:30 am
Location: Campo Grande-MS / Brasil
Top
PreviousNext
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 161 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group