怎么可能呢: MyTables:=TStringlist.Create ; AdoConnection1.GetTableNames(MyTables); if not (MyTables.IndexOf('你要查找的表名')=-1) then //这是存在 else //这是不存在
我这样做 MyTables := TStringlest.create; AdoConnection1.GetTableNames(MyTables); for i := 0 to MyTables.Count - 1 do listbox1.items.add(MyTables.strings[i]);结果是什么都没有列出来 我想是不是系统文件出错了 我用的是盗版
不可能是系统的问题 是你for i := 0 to MyTables.Count - 1 do listbox1.items.add(MyTables.strings[i]); 可能是你这一段出错了,你先列一个试试:edit1.text:=mytables[0];
MyTables:=TStringlist.Create ;
AdoConnection1.GetTableNames(MyTables);
if not (MyTables.IndexOf('你要查找的表名')=-1) then
//这是存在
else
//这是不存在
MyTables := TStringlest.create;
AdoConnection1.GetTableNames(MyTables);
for i := 0 to MyTables.Count - 1 do
listbox1.items.add(MyTables.strings[i]);结果是什么都没有列出来
我想是不是系统文件出错了
我用的是盗版
是你for i := 0 to MyTables.Count - 1 do
listbox1.items.add(MyTables.strings[i]);
可能是你这一段出错了,你先列一个试试:edit1.text:=mytables[0];
用ADO是可以的