杭州交通信息网生产主管工作描述:这个循环语句怎么写
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 22:25:47
一个表 4个字段 ID NAME SEX AGE
我想把他们都写到STRINGGRID中` 其中第一行写上标题
我不知道怎么写``请大家帮帮我~
语言是delphi
我想把他们都写到STRINGGRID中` 其中第一行写上标题
我不知道怎么写``请大家帮帮我~
语言是delphi
{为stinggrid控件提供自动导入数据库数据功能,s表示sql语句}
procedure olestringgrid(ado1:tadoquery; grid1:TStringGrid; s:string);
var
i,j:integer; //循环控制变量
begin
ado1.SQL.Clear;
ado1.SQL.Add(s);
ado1.Open;
ado1.ExecSQL;
ado1.First;
if ado1.RecordCount>2 then
grid1.RowCount:=ado1.RecordCount+1
else
grid1.RowCount:=2;
//导入数据
for i:=0 to ado1.RecordCount-1 do
begin
for j:=0 to ado1.FieldCount-1 do
grid1.Cells[j+1,i+1]:=ado1.Fields[j].AsString;
ado1.Next;
end;
end;
stringgrid1.rows[0].CommaText:='id,name,sex,age';
用什么编程语言？