如何用combobox控件显示大富翁坛的离线数据库的字段名?(100分)

  • 主题发起人 主题发起人 godai01
  • 开始时间 开始时间
G

godai01

Unregistered / Unconfirmed
GUEST, unregistred user!
我想用combobox控件显示大富翁坛的离线数据库的字段名,可是如果使用
adoconnection1.GetTableNames(combobox1.items,false)
命令则只是显示LETTERS和ROOMS这两个表的名字,而表里的字段例如ID,
USERFROM等等都不能显示?如何解决呢?


 
with table do
begin
tablename:=letters;
for i:=0 to fieldcount - 1 do
cbx.items.add(fields.Displaylabel)
end;
 
我的程序里关于数据库的就只有ADODataset和ADWConnection这两个控
件,是否要加个什么控件?但是我想用ListView控件显示数据库的内
容,应如何做?
 
ADOConnection ==> delphiBBS.mdb
ADODataSet ==> commandType=cmdTable, commandText='letters'

procedure FieldNamesToList;
var
i: integer;
Item1: TListItem;
begin
with ADODataSet1 do
begin
Active := True;
ListView1.Items.Clear;
ListView1.Columns.Clear;
with ListView1.Columns.Add do Caption := '字段名称';
with ListView1.Columns.Add do Caption := '显示标签';
with ListView1.Columns.Add do Caption := '宽度';

for i:=0 to FieldCount-1 do
begin
Item1 := ListView1.Items.Add;
Item1.Caption := Fields.FieldName;
Item1.SubItems.Add(Fields.DisplayLabel);
Item1.SubItems.Add(InttoStr(Fields.Size));
end;
end;
end;
 
不行啊,还有错误信息:
Undeclared identifier.'fieldcount'
Undeclared identifier.'fields'
')'expected but identifier 'displaylabel' found.
但我想最主要的还是第一条信息,是否还要加上声明或者定义什么的?应该如何定义呢?


 
多人接受答案了。
 
后退
顶部