数据库的问题(100分)

  • 主题发起人 主题发起人 delphi911
  • 开始时间 开始时间
D

delphi911

Unregistered / Unconfirmed
GUEST, unregistred user!
我有两个Adoquery连接了两个不同的数据源,但数据结构一样我想把a.adoquery的数据快速
插入b.adoquery(类似于insert into 但是两个query,如何解决)最好是给出源码
 
换一种方法 。
 
用其中的一个query来做就行了。
 
with a.ADOQuery do
begin
First;
while not eof do
begin
b.ADOQuery.insert;
for i := 0 to FieldCount - 1 do
begin
b.ADOQuery.Fields[0].AsVariant := Fields[0].AsVariant
end
b.ADOQuery.Post;
next;
end;
end;
 
在这个坛子里类似的问题太多了,如果是ACCESS的,这个答案是最正确的。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=243581

我自己处理时都是先转换为临时的TXT或XML来中转,虽然速度慢、效率低,但能捕捉许多信息,
比如转换进度、出错的记录等等
 
如果 是 ACCESS ,

如果 记录 很多.

可能这样 会 慢...................

不过, 好象 没有 大侠来说 快一点的办法 .
 
使用SQL的“insert into”语句!
 
我怎么用不了insert to这个SQL语句。动态创建了一个表1.db(字段a1和a2为smallint),
另外定义整形全局变量a1和a2。随机产生两个整数赋给a1和a2。我想把a1和a2作为字段值
插入到表1.db中,我直接用以下代码,运行后提示:Field 'a1' is of an unknown type.
我想把www.smth.edu.cn论坛上休闲娱乐中的一个清零游戏(用JAVA编的)改为delphi。
这是其中的部分代码。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, db,dbtables, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
table1:tquery;
a1,a2:integer;
procedure fu(var a1,a2:integer);
begin
a1:=a1 mod 4;
a2:=a2 mod 4;
form1.Button1.Caption:=inttostr(a1);
form1.button2.caption:=inttostr(a2);
table1.ExecSQL ;
table1.SQL.Clear ;
table1.SQL.Add('insert into l.db');
table1.SQL.Add('values(:a1,:a2)');
table1.ExecSQL ;
end;
procedure Button1Click(Sender: TObject);
begin
table1:=tquery.Create(self);
with table1 do
begin
with sql do
begin
clear;
add('create table "l.db"');
add('(a1 smallint,');
add('a2 smallint)');
end;

end;
randomize;
a1:=trunc(random(4));
a2:=trunc(random(4));
fu(a1,a2);
end;
end.
 
很简单呀,我前几天把 excel 转化成access 然后导入 oracle
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1691966
 
数据库最基本的操作---快速入门,请看帖子:http://www.delphibbs.com/delphibbs/dispq.asp?lid=1938340
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1942225
熟读深知子自知,好好地理解一下代码,或许对你有所帮助。
 
后退
顶部