dbgrid利用数据集很容易显示所数据库中所有数据,那stringgrid想显示所有数据该怎么做
解决方案 »
- 求救!跨局域网的数据库连接应该注意什么?我的程序为什么连接不上???
- Locate()参数的问题
- 再次重申:我5416正式加入CSDN,送上1大分,不成敬意,最后一个回贴的同志可以得到这一分,我向foxnt、windindance...等各位老同志保证!
- 在Rave中动态生成TRaveDataText?
- 请问,如何把一般的传真文件格式转换为用传真控件apro可以显示的格式(.apf)?
- 高分(100分)求助一个DELPHI程序
- ADOTable1如何指向制定的记录?
- 烦人的控件之Dbgrid系列
- 请教如何截获TWebBrowser中的弹出菜单事件?
- 请问在TADODataset中加入一条记录代码该如何写
- 向数据库高手请教
- 发大量消息, 内存一直增加,请教
用ADO连上,然后写SQL,打开数据集,遍历数据集,将数据一行一行加到StringGrid
数据绑定也是这么干的,只是加到Grid的代码已经给你写好了
for i:=0 to AdoQuery1.RecordCount-1 do
for j:=0 to AdoQuery.Fields.Count-1 do
StringGrid1.Cells[i,j]:=AdoQuery1.Fields[j].AsString;
for i:=0 to AdoQuery1.RecordCount-1 do
for j:=0 to AdoQuery.Fields.Count-1 do
StringGrid1.Cells[i,j]:=AdoQuery1.Fields[j].AsString;
只显示第一行吧
begin
sql.clear;
sql.add('SELECT * FROM Student');
open;
end; StringGrid.RowCount:=ADQStu.RecordCount+1;
i:=1;
while not ADQStu.Eof do
begin
with sg do
begin
//下面根据你的实际情况来添加
StringGrid.Cells[0,i]:=ADQStu.FieldByName('UserID').AsString;
StringGrid.Cells[1,i]:=ADQStu.FieldByName('UserName').AsString;
StringGrid.Cells[2,i]:=ADQStu.FieldByName('UserGrade').AsString;
StringGrid.Cells[3,i]:=ADQStu.FieldByName('UserClass').AsString;
end;
i:=i+1;
ADQStu.Next;
end;
加上 adoQuery1.next。for i:=0 to AdoQuery1.RecordCount-1 do
begin
for j:=0 to AdoQuery.Fields.Count-1 do
StringGrid1.Cells[i,j]:=AdoQuery1.Fields[j].AsString;
AdoQuery1.Next;
end;