怎样将一个数据库中的一个表放入指定的内存里。
然后用新数据与它作比较(也在内存中执行)。有重复的DELETE。
最后将数据放会数据库中?
怎样实现以上动作?
最好有原代码!
我用DHLPHI 7,与ACCESS
然后用新数据与它作比较(也在内存中执行)。有重复的DELETE。
最后将数据放会数据库中?
怎样实现以上动作?
最好有原代码!
我用DHLPHI 7,与ACCESS
解决方案 »
- 我也问个,关于WINSOCK TCP多连接的问题
- 怎么把网格中的合并列头导出到Excel并也让它也是合并的
- 当tscrollbox.HorzScrollBar .visible=false时,如何滚动tscrollbox?
- 论坛灌水机,谁又源代码让小弟学习一下,在此感谢
- 用delphi怎么实现把SQL中的存储过程显示在label的caption上呀?————某软件公司的面试题
- 如何在DBGRID或在STRINGGRID中动态创建小按钮及释放?
- 如何把STR型转化为MONEY型,有没有STRTOMONEY这样的函数?
- 如何用adoqry绑定数据库中的名称?
- 我在access的一个表中定义一个字段ff,为小数,小数位8位,在一个form中用dbedit来输入ff 数据,但是当我输入数据小数位超过5位,一保存dbedit
- 请介绍一本delphi入门书籍。
- DBGrid怎样实现刷新?
- Delphi有没有像C++那样的算法模板?
可以详细点吗?
可以帮忙的话,我会再加100分
将数据字段定义成记录的字段
type
DatabaseTmp=Record
Field1:string;
Field2:string;
Field3:string;
.
.
.
最后一个字段:string;
end;Procedure LoadData(atable:Ttable);
Var
I:integer;
adatabase:array of DatabaseTmp;
begin
with atable do
begin
if not active then open;
Setlength(adatabase,RecordCount);
For I:=0 to RecordCount-1 do
with Adatabase[I] do
begin
Field1:=Fieldbyname('字段1').asstring;
Field2:=Fieldbyname('字段2').asstring;
//如上操作将数据表加载到内存;
end;
end;
end;
Next;//移动数库记录
begin
CursorLocation := clUseClient;
CursorType := ctStatic;
LockType := ltBatchOptimistic;
SQL.Text:='.....';
Open;
First;
while not Eof do
if FieldValues['afield']=xxxx then
Delete
else
Next;
end;
UpdateBatch;
end;
我也一般用紀錄和動態數組處理這個問題
你们的代码我都试过了,而且都做的时间的测试,
在没有用你们的代码是,平均时间(三次)是42.05秒。
用你们的代码,平均时间是35.7秒。
这样的时间是不能接受的。但还是谢谢你们!
[email protected]
因为我上不了QQ