【发布时间】：2017-05-04 16:21:36
【问题描述】：
我是 Access 新手，感谢您先阅读本文。
我正在将 Access 中的查询导出到以竖线分隔的 CSV 文件。该查询来自一个通过 SQL 进行 ODBC 处理的表。
我一直在获取
dbs.Recordset行：未找到方法或数据成员错误。
非常感谢您提出任何解决此问题的建议。
Option Compare Database
Option Explicit
Sub Command12_Click()
Dim dbs As DAO.database
Dim rst As DAO.Recordset
Dim intFile As Integer
Dim strFilePath As String
Dim intCount As Integer
Dim strHold
strFilePath = "C:\temp\TEST.csv"
Set dbs = CurrentDb
Set rst = db.OpenRecordset("T_Export_CSV", dbOpenForwardOnly)
intFile = FreeFile
Open strFilePath For Output As #intFile
Do Until rst.EOF
For intCount = 0 To rst.Fields.Count - 1
strHold = strHold & rst(intCount).Value & "|"
Next
If Right(strHold, 1) = "|" Then
strHold = Left(strHold, Len(strHold) - 1)
End If
Print #intFile, strHold
rst.MoveNext
strHold = vbNullString
Loop
Close intFile
rst.Close
Set rst = Nothing
MsgBox ("Export Completed Successfully")
End Sub
非常感谢您抽出宝贵的时间，如果需要，请在下方留下任何评论以进行澄清。我会尽力响应！
【问题讨论】：
-
从 SQL 获取 ODBC？ SQL 是一种语言。您指的是什么具体的 RDMS？ SQL 服务器？后格雷斯？ MySQL？甲骨文？ DB2？
-
DAO 是 MS Access 对象库中的默认 API。尝试删除暗线中的
DAO.：Dim dbs As Database:Dim rst As Recordset` -
@Parfait 这是 SQL Server！感谢您询问我确实尝试过，但仍然给我“用户定义类型未定义错误”，突出显示该行。
-
这很奇怪！你的环境是什么？哪个 Windows 操作系统？办公版？你有完整的 MS Access 许可证吗？您最近是否更改了安装？
-
我在 Windows 7 下的 Access 2010 中使用我的工作机器
标签： database vba csv ms-access export-to-csv