FiveTech Support Forums

#include 'adordd.ch'
#include 'fivewin.ch'

REQUEST ADORDD

Function main
LOCAL cSql :=""
 
    RddRegister("ADORDD",1) 
    RddSetDefault("ADORDD") 
    
   USE easyfo TABLE "ccrtbl" VIA "ADORDD" ALIAS "tbl" MYSQL ;
      FROM "localhost" USER "root" PASSWORD "nimda"

msginfo( tbl->tbl_intno )

CLOSE tbl

return nil

   Error description: Error BASE/1132  Bound error: array access
   Args:
     [   1] = A   { ... } length: 0
     [   2] = N   1

Stack Calls
===========
   Called from: D:\FTDN\adordd\AdoRdd\adordd.prg => ADODEFAULTS( 5256 )
   Called from: D:\FTDN\adordd\AdoRdd\adordd.prg => ADOCONNECT( 413 )
   Called from: D:\FTDN\adordd\AdoRdd\adordd.prg => ADO_OPEN( 255 )
   Called from:  => DBUSEAREA( 0 )
   Called from: D:\V6\TADORDD\test.prg => MAIN( 17 )

//all your tables and index files used by your app without any clipper expressions 
// if you need to use indexes you need this set otherwise you have t create them
// every time app run
SET ADO TABLES INDEX LIST TO { {"TABLE1",{"FIRST","FIRST"} }, {"TABLE2" ,{"CODID","CODID"}} }

//all your tables and index files used by your app with clipper expressions
// if you need to use indexes you need this set otherwise you have t create them
// every time app run
SET ADODBF TABLES INDEX LIST TO {  {"TABLE1",{"FIRST","FIRST"} }, {"TABLE2" ,"CODID","CODID"}} }

//temporay index file names must star with tmp or temp
SET ADO TEMPORAY NAMES INDEX LIST TO {"TMP","TEMP"}

//this is a must you have to indicate whats the autoinc field used as recno() 
//without it will not navigate correctly 
// you can indicate by table 
SET ADO FIELDRECNO TABLES LIST TO {{"TABLE1","FIRST"},{"TABLE2","CODID"}}
//or by default
SET ADO DEFAULT RECNO FIELD TO "HBRECNO"

//This is the same as for other rdds
SET AUTOPEN ON //might be OFF if you wish
SET AUTORDER TO 1 // first index opened can be other
    
//default connection if for ACCESS YOU NEED TO INCLUDE FULL PATH
SET ADO DEFAULT DATABASE TO "testadordd" SERVER TO "localhost"  ENGINE TO "MYSQL" USER TO "adordd" PASSWORD TO ""   

//control locking in adordd for both table and record dont puT final \ 
 SET ADO LOCK CONTROL SHAREPATH TO  "D:\WHATEVER" RDD TO "DBFCDX"

//dont need lock control
SET ADO FORCE LOCK OFF

//AFTER SETTINGS DONE
//we can just use table 
use TABLE1 alias "whatever"

//or we can open another con
use "TABLE1@"Driver={mySQL ODBC 5.3 ANSI Driver};" + ;
                "server=localhost" + ;
                ";Port=3306;Option=32"+;
                ";database=otherdatabase"   + ;
                ";uid=adordd" + ;
                ";pwd=''" +";" ALIAS "whatever"

    SET ADO LOCK CONTROL SHAREPATH TO "E:\TEMP" RDD TO "DBFCDX"

SET ADODBF TABLES INDEX LIST TO {  {"TABLE1",{"FIRST","FIRST"} ,{"LAST","LAST"},{"MEMNO","MEMNO"},{"TYPE+LAST","TYPE+LAST"},{"BIRTHDATE","DTOS(BIRTHDATE)"},etc.}, {"TABLE2" ,"CODID","CODID"}} }

cTable := cPath+"\TLOCKS"+RDDINFO(RDDI_TABLEEXT,,rRdd)

  SET ADO DEFAULT RECNO FIELD TO "HBRECNO"

  SET AUTOPEN OFF //ON //might be OFF if you wish

  //SET AUTORDER TO 1 // first index opened can be other

  SET ADO FORCE LOCK OFF

  SET ADO DEFAULT DATABASE TO cDataBase SERVER TO cServer  ENGINE TO "MYSQL" USER TO cUser PASSWORD TO cPassWord

SET ADODBF TABLES INDEX LIST TO {  {"TABLE1",{"FIRST","FIRST"} ,{"LAST","LAST"},{"MEMNO","MEMNO"},{"TYPE+LAST","TYPE+LAST"},{"BIRTHDATE","DTOS(BIRTHDATE)"},etc.}, {"TABLE2" ,"CODID","CODID"}} }

SET ADO TABLES INDEX LIST TO {  {"TABLE1",{"FIRST","FIRST"} ,{"LAST","LAST"},{"MEMNO","MEMNO"},{"TYPE+LAST","TYPE,LAST"},{"BIRTHDATE","BIRTHDATE"},etc.}, {"TABLE2" ,"CODID","CODID"}} }

Dear Antonio F.,
I try to find in ADORDD.PRG, because I got an error message for existing table TLOCKS in MySql. You have checked the existing TLOCKS.DBF from SET ADO LOCK CONTROL SHAREPATH TO .... setting but it got an error message when I use MySql DB.

If I use Clipper Expression in INDEX file, I need only SET ADODBF TABLE INDEX LIST TO. Is it correct?

Thanks in advance.