Vbscript VBS访问选择到txt

我想通过vbs将access sql写入txt文件。脚本运行良好，而且我没有得到任何输出

    Call OpenRecordset("SELECT * FROM [Table 1]")

    dbRec.Close:   dbCon.Close

   'WScript.Quit

'Main End


Private Sub OpenRecordset(ByRef dbSql)

    Set dbCon = CreateObject("ADODB.Connection")
    Set dbRec = CreateObject("ADODB.Recordset")

    With dbCon 'Verbindung zur Datenbank herstellen
        .Mode = adModeReadWrite
        .CursorLocation = adUseClient
        '.Provider = "Microsoft.Jet.OLEDB.4.0"  '*.mdb
        .Provider = "Microsoft.ACE.OLEDB.12.0" '*.accdb ACCESS 2007
        .Properties("Data Source") = dbPath
        .Properties("Persist Security Info") = False
        .Properties("User ID") = "***"
        .Properties("Password") = "***"
        .Properties("Jet OLEDB:System database") = dbSystem
        .Open
    End With

    With dbRec 'Einen Recordset für die Datensätze erstellen
        .Source = dbSql
        .ActiveConnection = dbCon
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open
    End With
End Sub

---

我该怎么做？提前感谢您。

查看类似的案例按以下方式执行：Set objFSO=Wscript.CreateObject（“Scripting.FileSystemObject”）Set objFile=objFSO.OpenTextFile（“path_to_txt”，forwrite，Create）”Datensatz Do而不是dbRec.eof objFile.WriteLine dbRec.Fields（“value1”）。value&“，”&dbRec.Fields（“value2”）.value&“，”&dbRec.Fields（“value3”）.value dbRec.MoveNext Loop objFile.close感谢您让我们知道。您可以使用评论中的文本创建答案，等待一段时间，然后接受。这会给您一些分数，更重要的是，问题已经结束，准备好帮助处于类似情况的其他人。