752
社区成员
发帖
与我相关
我的任务
分享
str_sql = "imp.exe bhgx/bhgx2009"+"@"+str_servername+"/"+str_dbname+" file='"+str_bkfilename+"' show=n buffer=8192000 ignore=n grants=y full=y log='"+gs_app_path+"\imp.log'"
li_i = Run(str_sql,Minimized!)
If li_i <> 1 Then
....
....
messagebox('提示','没有发现imp.exe文件,服务不能执行!',information!,ok!,1)
Halt Close
End If