paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 08:46:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow string fields to be used as primary key

Browse Source 
git-svn-id: trunk@12991 -
This commit is contained in:
blikblum 2009-03-31 20:23:13 +00:00
parent 49f2270221
commit 7f6b246136
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/sqlite/customsqliteds.pas
View File

@ -1492,7 +1492,7 @@ begin
begin begin
TempItem := PDataRecord(FDeletedItems.List^[iItems]); TempItem := PDataRecord(FDeletedItems.List^[iItems]);
SQLTemp := SQLTemp + (TemplateStr + SQLTemp := SQLTemp + (TemplateStr +
String(TempItem^.Row[FPrimaryKeyNo]) + ';'); FGetSqlStr[FPrimaryKeyNo](TempItem^.Row[FPrimaryKeyNo]) + ';');
FreeItem(TempItem); FreeItem(TempItem);
Inc(StatementsCounter); Inc(StatementsCounter);
//ApplyUpdates each 400 statements //ApplyUpdates each 400 statements
@ -1526,9 +1526,9 @@ begin
SQLLine := SQLLine + (FieldDefs[iFields].Name + ' = ' + SQLLine := SQLLine + (FieldDefs[iFields].Name + ' = ' +
FGetSqlStr[iFields](PDataRecord(FUpdatedItems[iItems])^.Row[iFields]) + FGetSqlStr[iFields](PDataRecord(FUpdatedItems[iItems])^.Row[iFields]) +
WhereKeyNameEqual + WhereKeyNameEqual +
String(PDataRecord(FUpdatedItems[iItems])^.Row[FPrimaryKeyNo]) + ';'); FGetSqlStr[FPrimaryKeyNo](PDataRecord(FUpdatedItems[iItems])^.Row[FPrimaryKeyNo]) + ';');
SQLTemp := SQLTemp + SQLLine; SQLTemp := SQLTemp + SQLLine;
inc(StatementsCounter); Inc(StatementsCounter);
//ApplyUpdates each 400 statements //ApplyUpdates each 400 statements
if StatementsCounter = 400 then if StatementsCounter = 400 then
begin begin