VFP插入、索引更新

Question

所以主程序是用C#编写的。 将新记录插入 VFP 数据库表中。 通过 生成记录的下一个 ID 花费的时间太长

select max(id)+1 from table

，因此我将该代码放入 VFP 中的编译 dll 中，并通过 C# 调用该 COM 对象。

COM 对象在大约 250 毫秒内返回新 ID。 然后我通过 OLEDB 进行更新。 我遇到的问题是，在 COM 对象返回新插入的 ID 后，我无法立即通过 OLEDB

select id form  table where id = *newlyReturnedID*

返回 0 行从 C# 找到它。 如果我等待未知的时间段，查询将返回 1 行。 我只能假设它立即返回 0 行，因为它尚未将新创建的 ID 添加到索引中，因此 select 无法找到它。

还有其他人遇到过类似的事情吗？ 如果是这样，你是如何处理的？

DD

Answer 1

警告：您的代码在多用户环境中存在缺陷。 两个人可以同时运行查询并获得相同的 ID。 如果列具有主键或候选键，其中之一将在 INSERT 上失败，这是键字段的最佳实践。

我的建议是让 ID 成为自动递增的整数字段（我不喜欢它们），或者更好的是创建一个键表。 表中的每条记录都对应一个分配键的表。 我使用与此类似的结构：

       Structure for: countergenerator.dbf
       Database Name: conferencereg.dbc
     Long table name: countergenerator
   Number of records: 0
        Last updated: 11/08/2008
Memo file block size: 64
           Code Page: 1252
          Table Type: Visual FoxPro Table

Field  Name                  Type                 Size   Nulls       Next       Step  Default  
----------------------------------------------------------------------------------------------------------------
    1  ccountergenerator_pk  Character            36         N                        guid(36)  
    2  ckey                  Character (Binary)   50         Y                          
    3  ivalue                Integer               4         Y                          
    4  mnote                 Memo                  4         Y                        "Automatically created"  
    5  cuserid               Character            30         Y                        
    6  tupdated              DateTime              8         Y                        DATETIME()  

Index Tags: 
1. Tag Name: PRIMARY
 - Type: primary
 - Key Expression: ccountergenerator_pk
 - Filter: (nothing)
 - Order: ascending
 - Collate Sequence: machine

2. Tag Name: CKEY
 - Type: regular
 - Key Expression: lower(ckey)
 - Filter: (nothing)
 - Order: ascending
 - Collate Sequence: machine

现在 DBC（或另一个程序）中存储过程的代码是这样的：

函数 NextCounter(tcAlias)

LOCAL lcAlias, ;
lnNextValue, ;
lnOldReprocess，；
lnOldArea

lnOldArea = SELECT()

IF PARAMETERS() < 1
lcAlias = ALIAS()

IF CURSORGETPROP("SOURCETYPE") = DB_SRCLOCALVIEW
*-- 尝试获取基表
lcAlias = LOWER(CURSORGETPROP("表"))
lcAlias = SUBSTR(lcAlias, AT("!", lcAlias) + 1)
万一
别的
lcAlias = LOWER(tcAlias)
ENDIF

lnOrderNumber = 0
lnOldReprocess = SET('REPROCESS')

*-- 锁定直到用户按 Esc
将重新处理设置为自动

如果 !USED("countergenerator")
在 0 共享别名 countergenerator 中使用 EventManagement!countergenerator
ENDIF

SELECT 计数器生成器

IF SEEK(LOWER(lcAlias), "countergenerator", "ckey")
如果 RLOCK()
lnNextValue = countergenerator.iValue
将 countergenerator.iValue 替换为 countergenerator.iValue + 1
开锁
万一
别的
* 使用起始值创建新记录。
在反生成器中附加空白
分散 Memvar 备忘录
m.cKey = LOWER(lcAlias)
m.i值 = 1
m.mNote =“由存储过程自动创建。”
m.tUpdated = DATETIME()
收集 MEMVAR 备忘录

IF RLOCK()
lnNextValue = countergenerator.iValue
将 countergenerator.iValue 替换为 countergenerator.iValue + 1
开锁
万一
ENDIF

选择（lnOldArea）
将 REPROCESS 设置为 lnOldReprocess

RETURN lnNextValue
ENDFUNC

RLOCK() 确保不存在记录争用，并且速度足够快，不会造成进程瓶颈。 这比您当前采取的方法安全得多。

里克·舒默
VFP MVP

Answer 2

VFP 需要FLUSH 其工作区。