数据库读写(100分)

  • 主题发起人 主题发起人 lzb
  • 开始时间 开始时间
L

lzb

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi中如何将数据库读入一个数组?
再如何将这个数组写入另一个数据库?
 
简单的方法没有,只有自己编程实现。
 
query出来后,用循环一条一条的付给一个数组,
再用循环一条一条的insert到另一个库中

或者用batchmove控件
 
编段小程序,也不复杂嘛
 
大概:
table1.first
i:=0
while not Table1.eof do
begin
i=i+1;
a := table1.fieldbyname[field1Name].asInteger;
b := table1.fieldbyname[field2Name].asString;
.
.
.
Table1.next;
end


 
不太复杂吧,为何提问,自己动手,丰衣足食
 
按照前面的人去做!
do it!
 
自己编程一试便知
 
自己做个Function
 
Do it Yourself
 
我没有想明白为什么要通过数组呢?
直接转过去不是很好吗?
 
定义一个动态记录数组,利用SETLENGTH(DATASET.RECORDCOUNT)
恰当分配大小
循环赋值
使用完毕,利用SETLENGTH(0)回收MEM;
 
接受答案了.
 
后退
顶部