Dutch,
dutch wrote:This line does return incorrect. Because it cannot find the "TLOCKS" table in MySql Database. It is warning everytime when open the program.
It will effect, if turn LOCK CONTROL ON. I think it will be find, If use "DBFCDX" but still got problem with "MySql".
SET ADO LOCK CONTROL SHAREPATH TO "E:\TEMP" RDD TO "ADORDD" // DBFCDX"
- Code: Select all Expand view
cTable := cPath+"\TLOCKS"+RDDINFO(RDDI_TABLEEXT,,rRdd)
Can you post here all ado sets?
The TLOCKS table isn't SQL but dbfcdx or other Harbour rdd that allow true lock.
SET ADO LOCK CONTROL SHAREPATH TO "E:\TEMP" RDD TO "DBFCDX"
You have to supply to the sharepath and the rddname. Thats it.
Of course that rdd must be linked with your app because it will be used.
- Code: Select all Expand view
SET ADODBF TABLES INDEX LIST TO { {"TABLE1",{"FIRST","FIRST"} ,{"LAST","LAST"},{"MEMNO","MEMNO"},{"TYPE+LAST","TYPE+LAST"},{"BIRTHDATE","DTOS(BIRTHDATE)"},etc.}, {"TABLE2" ,"CODID","CODID"}} }
Concerning indexes this has to be placed before trying to open any file.
But you will need also the
- Code: Select all Expand view
SET ADO TABLES INDEX LIST TO { {"TABLE1",{"FIRST","FIRST"} ,{"LAST","LAST"},{"MEMNO","MEMNO"},{"TYPE+LAST","TYPE,LAST"},{"BIRTHDATE","BIRTHDATE"},etc.}, {"TABLE2" ,"CODID","CODID"}} }
Please check the changes + with , The first "TYPE+LAST" I assume is the index name you want.
You can see these two sets has:
SET ADO TABLES all index expressions without any clipper function and the fields separated by ,.
These are used to build SQL SELECT expression ORDER BY
SET ADODBF TABLES are the same but with clipper fuctions and fields with +.
These are used to evaluate clipper expression ex:
&(indexkey(0))
ordkey()
ordfor()
etc.
I hope to have answer you question.