过后编程怎么编啊？
比如说，我已经新建好了一个表，然后想显示出来，怎么办啊？

说清楚!?
步明白?!

书上应该都写的很清楚吧，按照那来，好像要加三个组件

如果你要编程而且要经常用到那个连接的话，先建立一个data module,在file-new 那选择data module,然后将ado中的adoconnection控件放过去，它的connectionstring属性按照提示一步一步的连接到你要连接的数据库.以后凡是连接到那个数据库的控件,都选这个连接就可以了.注意prompt 属性最好设置成false.

，书上写得很清楚…………………………

我用的是adoquery,adoconnection,dbgrid,listview,表的内容是姓名，编号，年龄等等，现在我可以显示出只能显示姓名，不管我怎么改，都没用
诸位高手帮帮忙啊！！！！！！！！！

贴语句………………如果按照书上写的应该不太可能会出错，最大的问题就是你的语句错了。贴上了大家看看就明了。

如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
ListItem:TListItem;
begin
ADOQuery1.Close;
ADOConnection1.Connected := true;
ADOQuery1.Active := false;
adoquery1.SQL.Clear;
adoquery1.SQL.Text := 'select * from table1';
ADOQuery1.Open;
ADOQuery1.active := true;
if not ADOQuery1.IsEmpty then
begin
for i:=0 to ADOQuery1.FieldCount-1 do
ListView1.Columns.Add.Caption:=ADOQuery1.Fields[i].FieldName;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
ListItem:=listview1.Items.Add;
ListItem.Caption:=ADOQuery1.Fields.Fields[0].AsString;
for i:=1 to ADOQuery1.FieldCount-1 do
ListItem.SubItems.append(ADOQuery1.Fields.Fields[i].AsString);
ADOQuery1.Next;
end;
end;
end;
高手帮看看吧！我是菜鸟一个！！！！！！！！

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
ListItem:TListItem;
begin
ADOQuery1.Close;
ADOConnection1.Connected := true;
ADOQuery1.Active := false;
adoquery1.SQL.Clear;
adoquery1.SQL.Text := 'select * from table';
ADOQuery1.Open;
ADOQuery1.active := true;

if not ADOQuery1.IsEmpty then
begin
for i:=0 to ADOQuery1.FieldCount-1 do
ListView1.Columns.Add.Caption:=ADOQuery1.Fields[i].FieldName;
ADOQuery1.First;

while not ADOQuery1.Eof do
begin

for i:=0 to ADOQuery1.FieldCount-1 do
begin

ListItem := listview1.Items.Add;
ListItem.Caption := ADOQuery1.Fields.Fields[i].AsString;
ListItem.SubItems.Add(ADOQuery1.Fields.Fields[i].AsString);

end;
ADOQuery1.Next;
end;
end;
end;

[此贴子已经被作者于2007-3-27 13:24:55编辑过]

小妹在此跪谢高手！
可是有个很奇怪的现象，我的表比如是这样的：
1 2 3
4 5 6
7 8 9
0 10 11
12 13 14
结果显示的是1 5 9
0 13 ...
为什么会这样呢？