Antonio, before i test my app with ca. 60 DBs with your ADORDD i must change some field-names (ex. CHECK or SCHEMA) as they are not allowed in SQL.
I use MSSQL. In my tests indices with UDFs should be avoided (>1000 records). The fastest way is to use only full fieldnames for indexkey. There are some DB-changes recommendable.
For future i will report you all my experiences!
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour ADO RDD xHarbour
Page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 (1047 posts)
Gunther,
The tests Ive made with Mysql and reserved keywords as field name its working ok.
You cant use those keywords in triggers, procedures functions etc but should be ok as field names as they are special quoted in all expressions.
Please try it because I think you dont need to do anything.
I tried it in Mysql with 1000 and its slower but still ok.
Can you post some examples of such UDFs?
Thanks.
The tests Ive made with Mysql and reserved keywords as field name its working ok.
You cant use those keywords in triggers, procedures functions etc but should be ok as field names as they are special quoted in all expressions.
Please try it because I think you dont need to do anything.
I use MSSQL. In my tests indices with UDFs should be avoided (>1000 records)
I tried it in Mysql with 1000 and its slower but still ok.
Can you post some examples of such UDFs?
For future i will report you all my experiences!
Thanks.
Regards
Antonio H Ferreira
Antonio H Ferreira
MSSQL-Server native errors 102 or 156: Incorrect syntax near the keyword 'BIT', Incorrect syntax near the keyword 'SCHEMA'. I use SCHEMA and CHECK as fieldnames -> not allowed!
Gunther,
I forgot to have it done to MSSQL.
Place this line in ADOQUOTEDCOLSQL in CASE dbEngine = "MSSQL"
cCol := "" + cCol + ""
if it doesnt work try
cCol := '[' + cCol + ']'
Should work now.
Regards
Antonio H Ferreira
Antonio H Ferreira
OK now []! Thanks.
Antonio, I found, that when the eof() reached no further operations in this table are possible! I must use GO TOP in this case and then the table is reachable again!
(MSSQL)
Gunther,
Im not using MSSQL Im using MySql and its ok.
Can you post code example ?
Regards
Antonio H Ferreira
Antonio H Ferreira
After is no dbseek() possible (records to found are present)! Or after a dbseek() with no result another dbseek() are not possible.
I think this "ghost record" is the reason!?
dbgoto(lastrec()+1))If the searched value is not found, DbSeek() positions the record pointer on the "ghost record" (Lastrec()+1) by default, and the function Found() returns .F. (false), while Eof() returns .T. (true).
I think this "ghost record" is the reason!?
Gunther,
Here its ok.
My test:
Do you have any scopes and/or filters?
Here its ok.
My test:
use table
set index to someindex
dbgoto(lastrec()+1) //record not found goes eof
seek " 1/99" //if recordset not empty goes first and find OK
browse()
dbgobottom()
skip 1
msginfo(cvaltochar(eof())+" "+cvaltochar(recno()) )
skip -1
msginfo(cvaltochar(eof())+" "+cvaltochar(recno()) )
skip -1
msginfo(cvaltochar(eof())+" "+cvaltochar(recno()) )Do you have any scopes and/or filters?
Regards
Antonio H Ferreira
Antonio H Ferreira
Gunther,
The SELECT used in adoreccount if im not mistaken supplied by you its the only difference between MySql and MsSQL.
Try to change ti to SELECT MAX(... and check results.
Regards
Antonio H Ferreira
Antonio H Ferreira
Now i found out:
If i use TESTADISC->(dbsetorder(1)) and the indexkey of this order is UDF then the seek is not functioning! If i use after dbsetorder() a GO TOP then is functioning!
If i use TESTADISC->(dbsetorder(1)) and the indexkey of this order is UDF then the seek is not functioning! If i use after dbsetorder() a GO TOP then is functioning!
SET ADODBF TABLES INDEX LIST TO { {"AW2015",{"REV",'REV2TO2(REDATUM)'},{"RR","bu_korrindex(redatum,ideingdat)"},{"EW",'REV2TO2(REDATUM)'} } }
SET ADO INDEX UDFS TO {"IF","&","SUBSTR","SUBS","==","REV2TO2","REVEING","BU_KORRINDEX"}
TESTADISC->(dbgoto(TESTADISC->(lastrec()+1))) //damit keine anzeige
TESTADISC->(dbsetorder(1))
// GO TOP
TESTADISC->(dbseek("0227"))
Browse()Gunther,
Is this still true if you comment ?
Is this still true if you comment
TESTADISC->(dbgoto(TESTADISC->(lastrec()+1))) //damit keine anzeigeRegards
Antonio H Ferreira
Antonio H Ferreira
Gunther,
I think Ive got it.
Change the line in ado_seek.
Is it working ?
I think Ive got it.
Change the line in ado_seek.
ELSE //WITH :FILTER OR MOE THAN ONE FIELD
IF !EMPTY( oRecordSet:Filter )
IF lSoftSeek
nPos := ASCAN( aWAData[ WA_ABOOKMARKS ][aWAData[WA_INDEXACTIVE]],;
{|x| IF( VALTYPE( x[ 2 ] )= "C",SUBSTR( x[ 2 ], 1, LEN( cKey ) ) = cKey ,;
x[ 2 ] = cKey )} )
IF nPos = 0 // oRs:Eof() //!lFindLast <========Is it working ?
Regards
Antonio H Ferreira
Antonio H Ferreira
Antonio, no working! This is only for softseek!?
Gunther,
Right nevertheless that was a bug!
Is it still occur if you comment TESTADISC->(dbgoto(TESTADISC->(lastrec()+1))) //damit keine anzeige ?
Regards
Antonio H Ferreira
Antonio H Ferreira