如何动态创建和使用tquery?(50分)

蓝

蓝潭星跃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #1

如何动态创建和使用tquery?

 

P

pdb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #2

var a:tquery;
begin
a:=tquery.create(self);
a.databasename:='test';
a.sql.text:='select * from 表';
a.open;
showmessage(a.fiedls[0].asstring);
end;

 

畅

畅雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #3

with Tquery.create(nil) do
begin
SQL.add(...);
database:=...;
try
try
open;
...
except
...
end;
finally
free;
end;
end;

 

蓝

蓝潭星跃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #4

我试一下

 

H

hongxinyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #5

var q:TQuery;
begin
q:=tquery.create(form1);
q.databasename:='aaa';
q.sql.clear;
q.sql.add('select * from bbb');
q.open;
datasource1.DataSet :=q;

 

C

Carson_zzd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #6

With TQuery.Create(Application) do
begin
DatabaseName:='TestDatabase';
SQL.Add('Select * from Sysdatabases Where Name="TestDB"');
try
Open;
except
end;

 

W

wwmyheart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #7

var Qry1:tquery;
begin
Qry1:=tquery.create(self);
Qry1.databasename:='test';
Qry1.sql.text:='select * from 表';
Qry1.open;

//用完后，发行要释放掉啊
Qry.free;
end;

 

W

wjb1979

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #8

在UNIT的USERS中加入DB,DBTables，然后在程序中加入
var
Query : TQuery;
begin
try
Query := TQuery.Create(nil);//创建Query 的实例
Query.DatabaseName := DBName;//定义Query 的属性
//加入SQL语句
Query.SQL.Add('select CardNumber from Card where CardNumber =:CardNumber');
//赋予变量值
Query.ParamByName('CardNumber').AsString := CardNumber;
//打开Query，即可
Query.Open;
end;
程序不完整，但是用法就是这些了。

 

蓝

蓝潭星跃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #9

谢了，各位
搞定了