如何在Delphi的advstringgrid里面显示数据库表里的信息 30
我在窗体上放了query控件,datasouce,database控件,advstringGrid控件,数据库,和表都建好了,也都连好了,怎么才能把表里的信息通过advs...
我在窗体上放了query控件,datasouce,database控件,advstringGrid控件,
数据库,和表都建好了,也都连好了,怎么才能把表里的信息通过advstringGrid控件显示出来呢?
上面的问题已经解决了,现在是怎么把advstringgrid里数据,保存到数据库中? 展开
数据库,和表都建好了,也都连好了,怎么才能把表里的信息通过advstringGrid控件显示出来呢?
上面的问题已经解决了,现在是怎么把advstringgrid里数据,保存到数据库中? 展开
1个回答
展开全部
procedure TForm38.Button1Click(Sender: TObject);
var
i, j: Integer;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select id, publishDate,memstyle,publisher,titleState,telephone,title,checkbox from guest.WULIU');
ADOQuery1.Open;
for i := 1 to ADOQuery1.RecordCount do
begin
for j := 0 to ADOQuery1.FieldCount - 1 do
begin
AdvStringGrid1.Cells[j+2,i]:=ADOQuery1.Fields.Fields[j].AsString;
//advstringgrid1.HideColumn(1);
end;
ADOQuery1.Next;
end;
end;
var
i, j: Integer;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select id, publishDate,memstyle,publisher,titleState,telephone,title,checkbox from guest.WULIU');
ADOQuery1.Open;
for i := 1 to ADOQuery1.RecordCount do
begin
for j := 0 to ADOQuery1.FieldCount - 1 do
begin
AdvStringGrid1.Cells[j+2,i]:=ADOQuery1.Fields.Fields[j].AsString;
//advstringgrid1.HideColumn(1);
end;
ADOQuery1.Next;
end;
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询