FiveTech Software tech support forums

1.I try to edit ADO database to Tcbrowse(), but "CHAR" Transfer from dll.ch

USE (FILE_TH+"Test.mdb") VIA "ADORDD" TABLE "Tabla1" ALIAS ADO_DBF

DEFINE DIALOG oDlg RESOURCE "D_STAND_BROWSE" ;
TITLE "ADO DATABASE"

REDEFINE COLUMN BROWSE oBrw ID 201 OF oDlg ;
FONT oBR_FONT ;
MESSAGE "ADO DATABASE" ;
UPDATE

ADD COLUMN TO BROWSE oBrw DATA ADO_DBF->CHAR ;
HEADER "CHAR" SIZE 120
//DLL.CH transfer ADO_DBF->2
//#define CHAR 2

2. Can't Add ADORDD DATABASE

ADO_DBF->(DBAPPEND()) // Runtime error
ADO_DBF->CHAR := "ABCDES"
ADO_DBF->NUM := 1234
ADO_DBF->LOG := .T.
ADO_DBF->DATE := CTOD("2007/12/01")

error.log:

Error description: Error ADODB.Recordset/16389 E_FAIL: ADDNEW
Args:

Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:ADDNEW(0)
Called from: => ADO_APPEND(470)
Called from: => DBAPPEND(0)

Rick Lipkin wrote:There was a recent fix to the underlying ADO class that allowed ctod(" ") to be stored as null on Ms Sql .. It was fixed since the release of xHarbour 99.71 and should be out in the next binary release.

If you need the fix .. e-mail me at lipkinrm29063@yahoo.com

Rick Lipkin
SC Dept of Health, USA

Code: Select all  Expand view

Error: Unresolved external '_hb_rddGetWorkAreaPointer' referenced from USRRDD.LIB|usrrdd


Code: Select all  Expand view

Application
===========
   Path and name: C:\apps\ADORDD\adordd01.exe (32 bits)
   Size: 1,371,648 bytes
   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 17/07/2008, 17:28:09
   Error description: Error ADODB.Connection/16389  E_FAIL: OPEN
   Args:
     [   1] = C   DRIVER={MySQL ODBC 3.51 Driver};server=127.0.0.1;database=dbado;uid=userado;pwd=pwdado

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


Antonio Linares wrote:Julio,

It means that ADO was not able to open your database with the connection details that you have provided

Code: Select all  Expand view

REQUEST ADORDD
rddSetDefault( "ADORDD" )

USE ADODB VIA "ADORDD" TABLE "users" MYSQL FROM "127.0.0.1" USER "adordd" PASSWORD "adordd"

browse()

USE

Code: Select all  Expand view

USE adodb VIA "ADORDD" TABLE "users" MYSQL FROM "127.0.0.1" USER "adodb" PASSWORD "adodb"

browse()

USE

Code: Select all  Expand view

USE adodb VIA "ADORDD" ALIAS USER TABLE "users" MYSQL FROM "127.0.0.1" USER "adodb" PASSWORD "adodb"

( USER )-> ( browse() )

USE

Code: Select all  Expand view

#include "adordd.ch"
#include "FiveWin.ch"

REQUEST ADORDD

function Main()

   USE testcto VIA "ADORDD" TABLE "TABLE1" MYSQL;
      FROM "localhost" USER "kuhnert" PASSWORD "kuhnert"

   Browse()

   USE

return nil


Application
===========
Path and name: D:\fw804\fwh\samples\adosql.exe (32 bits)
Size: 1,508,864 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 08/26/08, 12:20:51
Error description: Error ADORDD/1003 Argument error

Stack Calls
===========
Called from: => UR_SUPER_ADDFIELD(0)
Called from: adordd.prg => ADO_OPEN(294)
Called from: => DBUSEAREA(0)
Called from: adosql.prg => MAIN(9)

System
======
CPU type: Intel(R) Pentium(R) 4 CPU 2.60GHz 2600 Mhz
Hardware memory: 767 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 1

Windows total applications running: 0

Variables in use
================
Procedure Type Value
==========================
UR_SUPER_ADDFIELD
Param 1: N 1
Param 2: A Len: 5
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 "testcto"
Local 3: A Len: 5
Local 4: U
Local 5: U
Local 6: O Class: TOLEAUTO
Local 7: N 2
Local 8: N 1
DBUSEAREA
Param 1: L .F.
Param 2: C "ADORDD"
Param 3: C "testcto"
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
===============
119 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes