请大家帮忙 程序已经用了 发现问题 很急 谢谢(200)

  • 主题发起人 主题发起人 keytoanswer
  • 开始时间 开始时间
K

keytoanswer

Unregistered / Unconfirmed
GUEST, unregistred user!
我用的是ACCESS数据库 1 ACCESS原来没有设置索引和主键 为什么在设置一列为索引后 好多数据出现"#已删除的" 这种原因是如何产生的?还有为什么ADOTABLE.LAST不能定位到最后一条,数据肯定有问题,但不知道为什么 2 本帖想寻求答案的是: 我是合并两个表 表一字段是A B C D E,其中A 已有数据,表二字段是A D E,A也有数据,和表一中的是匹配的, 我是逐条读表二的A,然后LOCATE表一的A,再写入D E,但总是合并几条后就提示错误:‘数据库已到达最大值’ 我都迷糊了 这是为什么呢写表一A字段的代码: ADOtable1.Close; ADOtable1.Open; ADOtable1.Edit; ADOtable1.last; ADOtable1.Append; ADOtable1.Insert; ADOtable1.Fields[0].AsString:=trim(edit1.Text); ADOtable1.Post; ADOTable1.Last;合并表一表二的代码: ADOtable1.Close; ADOtable1.Open; ADOTable2.First; while not ADOTable2.Eof do begin ADOtable1.Locate('自编号',ADOtable2.Fields[1].AsString,[lopartialkey,locaseInsensitive]); ADOtable1.Edit; ADOtable1.Fields[3].Value:=ADOtable2.Fields[3].AsString; ADOtable1.Fields[4].Value:=ADOtable2.Fields[4].AsString; ADOTable2.Next; end;到底是哪里出了问题 请大家帮我 谢谢 我会一直跟踪这个贴的 或者高手留个QQ 直接联系 非常感谢 解决了分都你给 呵呵 我是新手 兄弟们救命啊
 
ADOtable1.Close; ADOtable1.Open; //ADOtable1.Edit; //ADOtable1.last; ADOtable1.Append; //ADOtable1.Insert; ADOtable1.Fields[0].AsString:=trim(edit1.Text);//???不是自动编号吧,是的话是不能够赋值的 ADOtable1.Post; ADOTable1.Last;合并表一表二的代码: ADOtable1.Close; ADOtable1.Open; ADOTable2.First; while not ADOTable2.Eof do begin ADOtable1.Locate('自编号',ADOtable2.Fields[1].AsString,[lopartialkey,locaseInsensitive]); ADOtable1.Edit; ADOtable1.Fields[3].Value:=ADOtable2.Fields[3].AsString;//改为Fields[1]. ADOtable1.Fields[4].Value:=ADOtable2.Fields[4].AsString; //改为Fields[2]????你的表二只有3个字段,这里怎么有5个了 ADOTable2.Next; end;不太清楚你的程序,这个应该是简单的
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部