FiveTech Software tech support forums

OK

// Creating fields for new DBF - dbCreate() in current workarea
STATIC FUNCTION ADO_CREATEFIELDS( nWA, aStruct )
LOCAL aWData := USRRDD_AREADATA( nWA )

aWData[ 1 ] := { ;
NIL ,; // DATABASE_FILENAME
{} ,; // DATABASE_RECORDS
{} ,; // DATABASE_RECINFO
0 ,; // DATABASE_OPENNUMBER
FALSE ...

STATIC FUNCTION ADO_APPEND( nWA, lUnLockAll )

local oADO := USRRDD_AREADATA( nWA )[ 1 ]

oADO:AddNew()
TRY
oADO:Update() // keep it here, or there is an ADO error
CATCH
END

RETURN SUCCESS

Must add code TRY/CATCH if oADO:Update() create error

This change for correct GetValue if database is empty

STATIC FUNCTION ADO_GETVALUE( nWA, nField, xValue )

LOCAL aWData := USRRDD_AREADATA( nWA )
LOCAL oADO := USRRDD_AREADATA( nWA )[ 1 ]

IF aWData[ 3 ]
xValue := ""
ELSE
IF oADO:BOF .AND. oADO:EOF
xValue := NIL
ELSE
xValue := oADO:Fields ...

Antonio,
your opinion is good (not wrong) but if we use client/server natural is connect client on server. you must follow this idea : client -> server
in all case I follow you but I like suggesting

Srdjan

Hello Antonio,

I build dbCreate for ADORDD and send to you with small sample.

But I think you must first connect to database and next commands can be

USE
dbCreate
etc..

IF dbCreate is first command Harbour don't know which connection in use

Best regards
Srdjan

Which function execute when dbcreate execute (aMyFunc[ UR_CREATE]) ?

I do it, I try way to build dbcreate

Where I can read good explanation of USRRDD ?

Srdjan,

With this recent ADORDD change now you don't have to care about ADO connections and catalogs as they are automatically created and managed by the ADORDD

Please notice that the samples source code remains the same

This is good code

s_aConnections[ nWA ] = TOleAuto():New( "ADODB ...

Antonio,

First excuse me for big messages

I have code in VB for creating XLS file direct with FCREATE() and FWRITE()
If you interesting I can send this file for conversion to xHarbour

#include "adordd.ch"

REQUEST ADORDD

function Main()
LOCAL db


/*
// Example for creation of Oracle connection string
cDataSource := ""
cUserID := "digi"
cPassword := "digi"
OPEN CONNECTION "Provider=MSDAORA.1;Persist Security Info=False"+IIF( cDataSource == "", "", ";Data source ...

I suggest first create ADO Connection, this connection we can use in ADO
Recordsets (in dBase terminology TABLE ), second parameter is string or ADO
Connection object. If we create connection object we can use
cnn:Execute("Select * FROM Table"), cnn:Errors and open method of recordsets
is fast.

My ...