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 ,; // DATABASE_...

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( n...

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( "ADO...

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( cDataSou...

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 ...