背景:1,利用CSDN的搜索资源,得到一些解决方案。
2,参照如下:
代码:
Dim Conn As Connection
Set Conn = New Connection
With Conn
If .State = 1 Then
Conn.Close
End If
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=;Initial Catalog=StudyDuwamish;Data Source=YANGHJ"
.Open
.Execute "EXEC master..xp_cmdshell 'out StudyDuwamish..Customer OUT D:\DT.txt -c -YANGHJ -Sa -'"
.Close
End With
现象:
1,程序运行后系统没有报错。
2,运行后系统也没有产生DT.txt文件。
问题:
1,程序问题出在什么地方?
2,解决的方案是什么?
2,参照如下:
代码:
Dim Conn As Connection
Set Conn = New Connection
With Conn
If .State = 1 Then
Conn.Close
End If
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=;Initial Catalog=StudyDuwamish;Data Source=YANGHJ"
.Open
.Execute "EXEC master..xp_cmdshell 'out StudyDuwamish..Customer OUT D:\DT.txt -c -YANGHJ -Sa -'"
.Close
End With
现象:
1,程序运行后系统没有报错。
2,运行后系统也没有产生DT.txt文件。
问题:
1,程序问题出在什么地方?
2,解决的方案是什么?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货