Sql 将列从数据库表导出到文本文件

我有下面的代码，它将数据库表的内容复制到文本文件中，但我只需要该表的一个特定列

Sub OnClick（Byval项）
Dim rs、fieldVals、dbConnIn
Dim连接串、外壳、tmp、fso、ts、线路
常数adOpenDynamic=2
Const adlock悲观=2
常量adCmdTable=2
常量ADOPENFORADONLY=0
常数adOpenStatic=3
常数adLockReadOnly=1
'connectString=“Provider=SQLOLEDB；Server=192.168.168.4；Database=MYDB；Uid=sa；Pwd=myPassword；”
connectString=“Provider=MSDASQL.1；Persist Security Info=False；数据源=LocalServer；初始目录=FOX\u报告”
Set dBConnIn=CreateObject（“ADODB.Connection”）
dBConnIn.CommandTimeout=300
打开连接字符串
'这只是从和SQL查询中获取记录集的一种简单方法
Set rs=CreateObject（“ADODB.RecordSet”）
美国公开赛_
“数据日志”_
德布康宁_
阿多潘斯汀_
adLockReadOnly_
adCmdTable
Set shell=CreateObject（“WScript.shell”）
设置fso=CreateObject（“Scripting.FileSystemObject”）
设置ts=fso.OpenTextFile（“C:\DATALOG.TXT”，2，True）
line=“”
对于rs.字段中的每个tmp
line=行和tmp.Name&“”
下一个
ts写入线左侧（线，透镜（线）-1）
而不是卢比
line=“”
对于rs.字段中的每个tmp
行=行和替换（tmp.Value、“”、“”、“”、“”、“”）
下一个
ts写入线左侧（线，透镜（线）-1）
下一个
温德
rs.Close
关闭
端接头

更换

rs.Open_
“数据日志”_
德布康宁_
阿多潘斯汀_
adLockReadOnly_
adCmdTable

与

rs.Open_
“从数据日志中选择[colname]_
德布康宁_
阿多潘斯汀_
adLockReadOnly

---

其中，

colname

是要导出的列的名称。

和带有（正确定义的）“adCmdText”的“adCmdTable”@埃克哈德，霍纳说得对。不过，这里的默认值应该足够了，所以我只是删除了参数。