如何导出ACCESS内容到TXT文件，要求用VB6语言
TK密码15161218108.rar
(250.71 KB)
如何导出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编辑过]
