Ejemplo compilado:
Code: Select all
#include "adordd.ch"
#include "FiveWin.ch"
REQUEST ADORDD
function Main()
USE test00 VIA "ADORDD" TABLE "ACCOUNTS" MYSQL ;
FROM "www.freesql.org" USER "myuser" PASSWORD "mypass"
Browse()
USE
/* USE Test.mdb VIA "ADORDD" TABLE "Tabla1"
Browse()
USE
*/
return nil
Application
===========
Path and name: C:\FWH\SAMPLES\testado.exe (32 bits)
Size: 1,487,360 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 02/01/08, 12:45:14
Error description: Error ADODB.Connection/0 S_OK: OPEN
Args:
[ 1] = C DRIVER={MySQL ODBC 3.51 Driver};server=www.freesql.org;database=test00;uid=myuser;pwd=mypass
Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:OPEN(0)
Called from: ADORDD.prg => ADO_OPEN(241)
Called from: => DBUSEAREA(0)
Called from: testado.prg => MAIN(9)
System
======
CPU type: Intel(R) Pentium(R) D CPU 2.80GHz 2800 Mhz
Hardware memory: 959 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Compiler version: xHarbour build 1.1.0 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2
Windows total applications running: 0
Variables in use
================
Procedure Type Value
==========================
TOLEAUTO:OPEN
Param 1: C "DRIVER={MySQL ODBC 3.51 Driver};server=www.freesql.org;database=test00;uid=myuser;pwd=mypass"
Local 1: U
Local 2: N 0
ADO_OPEN
Param 1: N 1
Param 2: A Len: 8
Local 1: A Len: 14
Local 2: C "test00"
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
DBUSEAREA
Param 1: L .F.
Param 2: C "ADORDD"
Param 3: C "test00"
Param 4: U
Param 5: U
Param 6: L .F.
MAIN
Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX
ADORDD
DataBases in use
================
Classes in use:
===============
1 HASHENTRY
2 HBCLASS
3 TOLEAUTO
4 ERROR
5 HBOBJECT
6 TREG32
Memory Analysis
===============
118 Static variables
Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes
Bueno si alguien puede darme una pistita les agradecere, ya que tengo una aplicación que debe agregar unos reistros al final del dia en una tabla sql...
Muchas Gracias a todos..
Saludos,
_________________
GUSTAVO PREDIGER