现在用代码创建了一个外部数据源，那如有用代码加载外部数据源中的一个InforData的外部数据表？

创建外部数据源的代码如下：

If Not Connections.contains("CMM Measure Time Database") Then

    Connections.Add("CMM Measure Time Database","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath &"\\Database\\CMM Measure Time Database.mdb" &";Persist Security Info=False;Jet OLEDB:Database Password=030206")

End If

那如何加载外部数据源中的一个InforData的数据表呢？

诚请大侠们指点一下！叩谢！

 不能，只能添加临时表或者临时外部表

http://www.foxtable.com/help/topics/1279.htm

http://www.foxtable.com/help/topics/0695.htm

非常感谢有点甜版主的快速回复，真的感谢！

好的，我按老师的指点来琢磨一下！叩谢！

又要求救版主了：

我在窗体中有个Table1的表，用它来绑定外部数据表（InforData），建立的外部数据源名称为”CMM Measure Time Database“

可通过下列代码建立外部数据源和生成外部数据表，并绑定，出现问题，请老师指教！非常感谢！

下面的代码为窗体Afterload事件中的代码

\'----建立外部数据源------

If Not Connections.contains("CMM Measure Time Database") Then
    Connections.Add("CMM Measure Time Database","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath &"\\Database\\CMM Measure Time Database.mdb" &";Persist Security Info=False;Jet OLEDB:Database Password=030208")
End If

\'----生成外部数据表，日期为当天的数据------

Dim  q As new  OuterTableBuilder
q.TableName = "InforData"
q.TableCaption =  "InforData"
q.ConnectionName =  "CMM Measure Time Database"
q.SelectString =  "Select * From {InforData} Where (Date) = " & Date.Today
q.Build

\'-----绑定窗体中Table1表的数据源为生成的数据表

Tables("Table1").DataSource = DataTables("InforData")

请老师指教！不胜感谢！！！

 这句改一下

q.SelectString =  "Select * From {InforData} Where (Date) = #" & Date.Today & "#"

继续上面的问题说明： 窗体加载运行时提示： Table1表不存在，可Table1表明明在窗体中的呀

报两个错：

1）Table表不存在

2）Afterload加载错误

上传图片说明。

非常感谢！！！！

叩谢！！叩谢！！  可以了！

版主真是”传爱渡人“！

多多学习！！！