1.和平常的sql没有什么不同的.
例如table1中field1是boolean字段.
用adoquery如下:
with adoquery1 do
begin
close;
sql.clear;
sql.add('select field1 from table1 where ....');
open;
result := fields[0].asboolean
close;
end;
放一个按钮，在click事件中
var i:integer;
begin
i:=0;
listbox1.Items.Clear;
while i<adotable1.FieldCount do
begin
listbox1.Items.Add(adotable1.Fields.FieldName);
i:=i+1;
end;
end;
放一个按钮，在click事件中
var i:integer;
begin
i:=0;
listbox1.Items.Clear;
if AdoTable1.FieldCount>=0 then
begin
while i<adotable1.FieldCount do
begin
listbox1.Items.Add(adotable1.Fields.FieldName);
i:=i+1;
end;
end;
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
i:integer;
begin
for i:=0 to listbox1.Items.count-1 do
if listbox1.Selected then
begin
listbox2.Items.Add(listbox1.items.Strings);
end;
end;
