更改表后字段更改

Question

我有一个旧的Delphi系统的问题，此系统插入数据到SQL Server表中。

10年后，将表中的一个字段从100变为255个字符长。

系统选择表的所有注册表，并在转换后将它们放在另一个表上。这工作正常。

问题出在系统更新字段的时候。

，显示我的错误

EDBEngineError有消息，因为其他用户更改记录“无法执行编辑。

sConsulta:='SELECT * FROM cuentas WHERE (WALL= 2) AND (SEND_DATE = '01/01/1970')'; 
m_oQryLeg.Close; 
m_oQryLeg.SQL.Clear; 
m_oQryLeg.SQL.Add(sConsulta); 
m_oQryLeg.Open; 
m_oTblNov.Close; 
m_oTblNov.TableName:='des_table'; 
m_oTblNov.Open; 

with m_oTblNov do 
begin 
    while (not m_oQryLeg.EOF) do 
    begin 
    Insert; 
    FieldbyName('COD_HOME').AsString:= m_oQryLeg.FieldByName('USR_HOME').AsString; 
    (...) 
    Post; 

    m_oQryLeg.Edit; 
    m_oQryLeg.FieldByName('SEND_DATE').AsDateTime:= Date; //<-- HERE THE ERROR 
    m_oQryLeg.Post; 

    m_oQryLeg.First; 
    m_oQryLeg.MoveBy(i); 
    inc(i); 
    end;  
end; 
m_oTblNov.Close; 
m_oQryLeg.Close; 

的UpdateMode：upWhereAll

cuentas表：

• NUM_SOL nvarchar的6 * PK
• WALL TINYINT 1
• SEND_DATE SMALLDATETIME 4
• OBS_CRED nvarchar的255
• FLCC真正的4
• STREET为nvarchar 30

Answer 1

这里的问题是，你的目的是试图从数据库中刷新该行，以确保一切都没有改变，更可能的对象截断或圆形的某些价值导致刷新无法返回行。

这可能是由于float值被截断或其他值被关闭引起的。

如果您不/不能更改该列来解决此问题，我会建议更改为upWhereChanged或upWhereKeyOnly。

鉴于日期在大多数Windows数据库中被视为双打，我认为upWhereKeyOnly会是最好的。

编辑：

看你的表之后，它可能与你正在使用一个基于SMALLDATETIME的事实做。 Delphi将所有DateTime数据视为双精度值，并且来回转换可能导致小的舍入问题。

Answer 2

您正尝试更新您正在使用的查询，同时您正在编辑的表格中，而且这样做不起作用。

既然你知道你要插入查询中的每一行到m_oTblNov，为什么不这样做呢？

sConsultaSELECT :='SELECT * FROM cuentas'; 
sConsultaUPDATE := 'UPDATE cuentas SET Send_Date = :New_Date'; 
// Separate WHERE so you can use it twice. Note the leading space 
// between the first ' and WHERE. 
sWhere := ' WHERE (WALL = 2) and (SEND_DATE = ''01/01/1970'')'; 


m_oQryLeg.Close; 
m_oQryLeg.SQL.Text := sConsulta + sWhere; 
m_oQryLeg.Open; 

m_oTblNov.Close; 
m_oTblNov.TableName:='des_table'; 
m_oTblNov.Open; 

with m_oTblNov do 
begin 
    while (not m_oQryLeg.EOF) do 
    begin 
    Insert; 
    FieldbyName('COD_HOME').AsString:= m_oQryLeg.FieldByName('USR_HOME').AsString; 
    (...) 
    Post; 

    // Don't run these any more. See below. 
    // m_oQryLeg.Edit; 
    // m_oQryLeg.FieldByName('SEND_DATE').AsDateTime:= Date; //<-- HERE THE ERROR 
    // m_oQryLeg.Post; 

    m_oQryLeg.First; 
    m_oQryLeg.MoveBy(i); 
    inc(i); 
    end;  
end; 
m_oTblNov.Close; 
m_oQryLeg.Close; 
m_oQryLeg.SQL.Text := sConsultaUPDATE + sWHERE; 
m_oQryLeg.ParamByName('New_Date').AsDateTime := Date; 
try 
    m_oQryLeg.ExecSQL; 
finally 
    m_oQryLeg.Close; 
end;