帮忙修改下

Question

var
TableNameList:Tstringlist;
i:integer;
ads:TADODataSet;
begin
TableNameList:=TStringList.Create;
adoConnection1.gettablenames(TableNameList);
for  i:=0 to TableNameList.Count-1  do
ads:=TADODataSet.Create(self);
ads.Connection:=adoConnection1;
ads.Name:=TableNameList.Text; 
end;
// 请问TableNameList.Text  取出的怎么不是一个表的名称,而是全部表的名称,怎样一个的表取出呢,请帮忙修改下

Answer 1

如果要一个一个取出，这样就可以了
------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  TableNameList:Tstringlist;
  i:integer;
begin
  TableNameList:=TStringList.Create;
  ADOConnection1.GetTableNames(TableNameList,true);//这里，楼主以前代码好象有问题
  for i:=0 to TableNameList.Count-1  do
    ShowMessage(TableNameList.Strings[i]);//只需要这样即可
end;