摘要: ADO:var List: TStringList;begin List:=TStringList.Create; try ADOConnection.GetTableNames(List, True); if List.IndexOf('TableNaem')=-1 then //不存在 else //存在 finally List.Free endend 阅读全文
posted @ 2008-11-22 09:43 delphi中间件 阅读(393) 评论(0) 推荐(0) 编辑