很简单的问题，高分请教！关于BCP的调用.

Question

Private Sub Command1_Click()
    Dim t1 As Date
    t1 = Now()
    
    Dim sCmd As String
    sCmd = "bcp 查询语句 queryout d:\1.csv -w -t , -r \n -S -P"
    Dim WSH As Object
    Set WSH = CreateObject("WScript.Shell")
    WSH.Run sCmd, True
    
    MsgBox (DateDiff("s", t1, Now()))
End Sub怎么样让用户动态指定目录和文件名而不是固定的d:\1.csv?望各位不吝指教!  

Answer 1

例子：
strBcp="bcp hterp2..Ps_Gzt in " &动态文件名 & " -c -F 1 -S gxserver -U SA -P"WSH.Run strBcp, True

Answer 2

" &动态文件名 & " 我试过了，编译没有错误，但运行没有结果!

Answer 3

cnn.execute "bcp "select * from a" queryout "& "aaa" & date & "-c"....

Answer 4

以上语句存在不少错误，只是想描述一种思路而已，请高手斧正
其中CNN是ADODB。CONNCTION

Answer 5

mmzxg(超级笨蛋)　谢谢你，这我试过，还是不行!

Answer 6

new_wyl2000(kaimi) 你是不是广州华通ERP公司的？
strBcp="bcp hterp2..Ps_Gzt in " &动态文件名 & " -c -F 1 -S gxserver -U SA -P"
Shell strBcp, 0

Answer 7

new_wyl2000(kaimi)　可以了，谢谢你，将="bcp hterp2..Ps_Gzt in " &动态文件名 & " -c -F 1 -S gxserver -U SA -P"中 hterp2..Ps_Gzt 换成"select * from table"好像不行?

Answer 8

"bcp "select * from 用户表"  queryout " &动态文件名 & " -w -r, -r \n -S -vb2sql
 -Pvb2sql"
编译错误:缺少分隔符或)
怎么解决?