求 将sqlserver中的几个表用程序生成access(200)

表可以任意选字段可以任意选不用数据源，如用程序直接创建access一开始没有，就是直接生成

用SQL创建

还有，能列出sql中的表及字段可选，分不够我再加

创建access文件：procedure TOfficeForm.spOLECreateClick(Sender: TObject); var CreateAccess: OleVariant; begin //通过建立ADOX(Microsoft ActiveX(R) Data Objects Extensions)对象进行访问 CreateAccess:=CreateOleObject('ADOX.Catalog'); //通过OLE方式创建Access97格式的数据库 CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:/Aceco97.mdb'); //通过OLE方式创建Access2000格式的数据库 CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/Aceco2000.mdb'); end; 导数据：请看帖子：http://www.delphibbs.com/delphibbs/dispq.asp?lid=1691966

Database1关联sql server。Database1.GetTableNames() 可以获得数据表，也可以查询系统表，系统表名称不记得了。获得字段： 通过query，Select * from 表1 where 1=2，就可以获得字段了，也可以查询系统表，系统表名称不记得了。

我干过这样的事，不难，就是比较麻烦。我使用的方法和znxia的方法相似。注意sql2000和SQL2005里系统表名称不一致。注意创建表字段类型的选择，选择不正确，导入数据时可能出错。

多人接受答案了。