如何导出ACCESS内容到WORD或EXCELL或TXT文件，要求用VB6语言
密码15161218108
Private Sub Command11_Click()
*****************
 Dim Rs As ADODB.Recordset
    Dim Sql As String
    Dim MsgTxt As String
    Sql = "select * from TMINFO"
    Set Rs = ExecuteSQL(Sql, MsgTxt)
    If InStr(MsgTxt, "错误") Then
        MsgBox MsgTxt
        Exit Sub
    End If
**************************
END SUB

[此贴子已经被作者于2023-4-26 09:27编辑过]