Dim cn As New ADODB.Connection
cn.Open yourconnectstring
cn.Execute("master.dbo.xp_cmdshell ' osql /U sa /P /i c:\myquery.sql'")
cn.Open yourconnectstring
cn.Execute("master.dbo.xp_cmdshell ' osql /U sa /P /i c:\myquery.sql'")
解决方案 »
- 关于vb unicode字符串与byte数组处理,各位大侠和路过的来急救啊,搞了2天了
- 在线等!急!
- 高分!调用Delphi写的Dll,遇到pwidechar类型的参数,请问在VB中该如何处理!
- 这种打开文件的方法是什么,请帮忙... 还有90分,全部送上..
- 怎样可以使程序界面随显示器分辨率大小变化?
- 急急急!在线求救(注册表问题)
- 我想问一下,怎么用鼠标中间的滚动键来控制矿体的滚动条呀?谢谢啦!很急很急!!!!
- 请问,在vb下如何调用运行一个在SQL下已编好的.sql文件
- 如何让自己的函数传递多个参数?100分
- 谁来帮帮我?
- 急!100分!我想用vba在word中添加新的菜单,然后指定一个宏,我应该如何做呢?
- 关与模块,MDI窗体的基础问题?
Dim cn As New ADODB.Connection
cn.Open yourconnectstring
cn.BeginTrans'启动事务
cn.Execute("master.dbo.xp_cmdshell ' osql /U sa /P /i c:\myquery.sql'")
if err.number<>0 then
cn.RollbackTrans'回滚
else
cn.CommitTrans'提交
end if