with ADOQuery do
begin
Close;
Sql.Text := 'Select f1,f2 form data where id=12';
Open;
while not Eof do
begin
Str1 := FieldByName('f1').AsString;
Str2 := FieldByName('f2').AsString;
//处理自己的操作
Next;
end;end;
begin
Close;
Sql.Text := 'Select f1,f2 form data where id=12';
Open;
while not Eof do
begin
Str1 := FieldByName('f1').AsString;
Str2 := FieldByName('f2').AsString;
//处理自己的操作
Next;
end;end;
解决方案 »
- 如何动态生成窗体
- CoolTrayIcon v4.4.0这个组件我不怎么会用嘛!
- 那位用NetSharegetInfo成功过,帮帮忙。
- 菜鸟请教~关于递归的问题~~~!在线等待~~!
- 用什么方法终止程序,在线等...
- 我想在Shape控件中增加一个右键和一个双击功能,应该什么实现啊??
- An error occurred while attempting to initialize the Borland Database Engine(error $2109)
- 如何从SQLSERVER库里的IMAGE字段中显示图形到FASTREPORT????
- 谁能告诉我dcu文件到底是做什么用的?
- 关于线程结束的问题
- 用函数DeleteShare删除指定机器上共享的资源无效。。。
- 急!!!!简单的ADO问题,熟悉ADO的请进!
begin
Active:=False;
Sql.Clear;
Sql.Add( 'Select f1,f2 form data where id=12');
Active:=True;
Str1 := FieldByName('f1').AsString;
Str2 := FieldByName('f2').AsString;
end;
str1:string;
str2:string;
begin
Adoquery1.close;
adoquery1.sql.text:='select f1,f2 from data where id=12';
str1:=adoquery1.fieldbyname('f1').asstring;
str2:=adoquery1.fieldbyname('f2').asstring;
end;
begin
Active:=False;
Sql.Clear;
Sql.Add( 'Select f1,f2 form data where id=12');
Active:=True;
Str1 := FieldByName('f1').AsString;
Str2 := FieldByName('f2').AsString;
end;
str1:=Dataset1['f1']
str2:=Dataset2['f2']
我也刚学delphi,多多见谅!
or
SQL.Add(select f1,f2 from data where f1='#39+'ABC'#39);
adoquery.close;
adoquery.sql.text:='select f1,f2 from data where id=12 '
adoquery.open;
str1:=adoquery.fieldbyname('f1').asstring;
str2:=adoquery.fieldbyname('f2').asstring;
这样大概就可以了;
--SQL SERVER光标(游标,CURSOR)也可以实现,语句如下:
use pubs
declare @s1 varchar(50),@s2 varchar(50)
declare dd cursor scroll for
select title_id,title from titles
--Select f1,f2 form data where id=12 在你程序里,请用此行替换上一行select
open dd
fetch first from dd into @s1,@s2
close dd
deallocate ddprint @s1
print @s2
--当然,FieldByName是DELPHI最好的选择,如果在PowerBuilder里,肯定
--是以上sql语句了:)
--也许是脱??放?啊,呵呵。