主题：读取文本中的语句不支持。

txt中用 SQLCommand 吧， 按钮中参考 动态管理函数

呵呵，那就直接用你自己的代码吧。 稍微更改一点点（这样好像速度更快些）：

一、按钮：

Dim cmd As new sqlcommand
Dim s,t As String
t = forms("窗口1").controls("b1").text
s = FileSys.ReadAllText("d:\1.txt", Encoding.Default)
cmd.commandtext= s & "'" & t & "'"
e.Form.controls("table1").Table.datasource=cmd.ExecuteReader()

二、 1.txt 文件里面：select * from {表A} where 第一列 =

说明你组合代码应用的能力没有进展啊，还有个Functions.Execute···你也没用上，怎么会执行呢？再说你文本中的代码这个时候是需要一个完整的可以在命令窗口执行的代码 ···呵呵。

一、4楼代码是可以的，我测试过了呀！

二、要用Functions（如blackzhu 8楼下办断的，他的文本中的代码不对的），我5楼说过，文本中的代码必须是可以在命令窗口可执行的一个完整的代码。

以下是引用blackzhu在2012-11-19 12:07:00的发言：

mr725你的代码是可以的,但是我的也是可以的!

 

  我发上来.

 

下载信息  [文件大小：11.8 KB  下载次数：0]

点击浏览该文件:外部执行代码.zip

 

 mr725用的是2.txt

 老朱用的是 1.txt

没错，你老弟的是可以，我看错了··· 抱歉啊。

没什么不通用吧，说说你的想法吧，怎么个不通用呢？

我是老鼠，应该比你大···