主从表提交(200分)

hxy2002 · 2008-04-02

MSSQL主从表, ID为自增 主从表提交,主表新增的ID如何取到,是否要用储存过程或触发器实现 或者有什么好的见意.

SMALL-BOX · 2008-04-03

用事务吧! dm1.adoconnection1.begintranaction; ..... ..... dm1.adoconnection1.committransaction; 用主表提交后产生的ID填充从表

hxy2002 · 2008-04-03

获取主表ID呢?

Corn3 · 2008-04-03

insert into ... set @id=@@identity 记住：一定要在insert以后马上得到

bbscom · 2008-04-16

主从架构应该要有一个编号，这个编号也是唯一的、并提供关联的。

dcs_dcs · 2008-04-16

如果主从表你用ID关联的话会出现很多麻烦问题的,这样的关联一般采用编号来完成.

zxwwen · 2008-04-16

function Tform1.updatetable(ados:Tadoquery;lcTable:string):Boolean; var   i:integer;   msql:string;   lnparm:string;   lnkey:variant;   msql1,msql2,msql3:string;   adod:Tadoquery; //  lcold,lcnew:variant; begin   lnparm:='';   msql:='';   adod:=Tadoquery.Create(nil);   adod.Connection:=form1.ADOConnection1;   adod.Close;   adod.SQL.Clear;   lnkey:=ados.Fields[0].AsInteger;   if (lnkey>0)  then   begin   msql1:='update '+lcTable +' set ';   msql2:='';   msql3:='';   for i:=1 to ados.FieldCount-1 do     if ((copy(ados.Fields.FieldName,0,2) <> 'tmp') and (ados.Fields.FieldName <> 'iren')  and  (ados.Fields.FieldName <> 'idate') and (ados.Fields.FieldName <> 'uren')  and  (ados.Fields.FieldName <> 'udate')) then        begin          if ados.Fields.OldValue<>ados.Fields.Value then  ----> ERROR "Invaild variant operation" please help me                msql2:=msql2+ados.Fields.FieldName+'=:'+ados.Fields.FieldName+',';        end;    //  end;   msql2:=copy(trim(msql2),0,length(trim(msql2))-1);   if (length(msql2) <> 0) then      begin         msql1:=msql1+msql2+',uren=:uren,udate=:udate where id=:id';         adod.SQL.add(msql1);         for i:=1 to ados.FieldCount-1 do           begin             if ((copy(ados.Fields.FieldName,0,2) <> 'tmp') and (ados.Fields.FieldName <> 'iren')  and  (ados.Fields.FieldName <> 'idate') and (ados.Fields.FieldName <> 'uren')  and  (ados.Fields.FieldName <> 'udate')) then               begin                if [red]ados.Recordset.Fields.OriginalValue<>ados.Recordset.Fields.Value[/red] then ---                  begin                   lnparm:=ados.Fields.FieldName ;                   adod.Parameters.ParamByName(lnparm).Value:=ados.Fields.Value;                 end;               end;               end;         adod.Parameters.ParamByName('uren').Value :='admin';         adod.Parameters.ParamByName('udate').Value:=now();         adod.Parameters.ParamByName('id').value:=ados.Fields[0].Value;         adod.Prepared:=true;         try           adod.ExecSQL;           result:=true;         except           result:=false;         end;         adod.Free;     end;   end  else      begin       msql1:=' insert into '+lcTable+ '(';       for i:=1 to ados.FieldCount-1 do          begin            if ((copy(ados.Fields.FieldName,0,2) <> 'TMP') and (ados.Fields.FieldName <> 'UREN')  and  (ados.Fields.FieldName <> 'UDATE')) then               begin                 msql2:=msql2+ ados.Fields.FieldName+',';                 msql3:=msql3+':'+ados.Fields.FieldName+',';                end;           end;        msql2:=copy(trim(msql2),0,length(trim(msql2))-1);        msql3:=copy(trim(msql3),0,length(trim(msql3))-1);       msql:=msql1+msql2+') values('+msql3+')';        adod.SQL.Add(msql);        for i:=1 to ados.FieldCount-1 do         begin          if ((copy(ados.Fields.FieldName,0,2) <> 'TMP') and (ados.Fields.FieldName <> 'UREN')  and  (ados.Fields.FieldName <> 'UDATE')) then            begin              lnparm:=ados.Fields.FieldName ;              adod.Parameters.ParamByName(lnparm).Value:=ados.Fields.Value;              end;          end;        adod.Prepared:=true;        try           adod.ExecSQL;           result:=true;         except           result:=false;         end;        adod.Free;      end;  end;

bsense · 2008-04-16

建议 1.不要使用delphi自己的主键关联 2.明细记录的关联id,自己填充   zqryDetail.fieldbyname('masterid').asstring := zQryMaster.fieldbyname('id').asstring; 3.如果明细记录也是一个关联查询,用betterado / zeoslib(可以用updatesql组件生成insert,delete,modify语句,update/post和单表相同) ,不要使用ado ,ado 没有 updatesql 组件 4.明细表可以使用自动编号字段做primary key ,也可以自己编(使用单字段做primary key) 5.最好全部使用非感知控件

lssgj · 2008-04-16

如果ID字段不用自增长，而用取最大值的方式（当然还要用个表专门存放每个表的ID当前最大值，以免多用户环境下冲突），分别写入主从表，这样有什么问题没有？我目前就用的这个方法

kukujaky · 2008-04-26

最好不要使用自增字段，在删除记录或是取最大值等会碰到很多麻烦。 建议主键自己定义，如字符串等，生成主键后再同记录一起写入数据库。

byee · 2008-04-26

"当然还要用个表专门存放每个表的ID当前最大值，以免多用户环境下冲突" 这样能免吗？

寒芳轻 · 2008-04-29

delphi的adotable可以设置主从表吧

gzbxmcx · 2008-05-05

你可以在BefoPost或AfterPost确定是否要进行新增子表数据呀..

WilliamGui · 2008-05-05

1. 切记不要用自增字段 2. 切记不要用编号、自增字段作为表关联，用GUID吧，很好用 3. 编号可以创建流水账号表进行维护，写函数取得下一个编号

luoyanqing119 · 2008-05-21

问题不明,不知道想表达什么样的问题(明细一点的)

lngdtommy · 2008-06-07

在主表的DataSet中的AfterPost,AfterInsert,AfterApplyUpdate你挨个试试。。。

xcplates · 2008-06-07

单用户环境下，想用什么就用什么，在多用户环境下（网络版），本人认为适当地用一下自增量还是比较有效率的。

kequan · 2008-06-09

主单更新后就可以取到最大的ID号 select max(id) as id from 主单表名

fenye · 2008-06-09

我觉得用一个专用表存放主ID，然后用一个存储过程通过锁此表，设定最新值、解锁、然后返回新值，感觉这样可以解决并发问题、拙见，请其他大侠指教。

PENGS · 2008-06-09

你到以下地址去找找，可能找得到你需要的答案。 http://iinsnian.cnblogs.com/ http://del.cnblogs.com/ 这两个地址里介绍了很多ＤＥＬＰＨＩ的技巧，不知道你的运气好不好。

主从表提交(200分)

hxy2002

Unregistered / Unconfirmed

SMALL-BOX

Unregistered / Unconfirmed

hxy2002

Unregistered / Unconfirmed

Corn3

Unregistered / Unconfirmed

bbscom

Unregistered / Unconfirmed

dcs_dcs

Unregistered / Unconfirmed

zxwwen

Unregistered / Unconfirmed

bsense

Unregistered / Unconfirmed

lssgj

Unregistered / Unconfirmed

kukujaky

Unregistered / Unconfirmed

byee

Unregistered / Unconfirmed

寒芳轻

Unregistered / Unconfirmed

gzbxmcx

Unregistered / Unconfirmed

WilliamGui

Unregistered / Unconfirmed

luoyanqing119

Unregistered / Unconfirmed

lngdtommy

Unregistered / Unconfirmed

xcplates

Unregistered / Unconfirmed

kequan

Unregistered / Unconfirmed

fenye

Unregistered / Unconfirmed

PENGS

Unregistered / Unconfirmed

Similar threads