怎样把一个含一系列的sql语句的txt文件,交给远程sql server 去执行呢?
解决方案 »
- CommonDialog1.ShowPrinter的打印内容怎么设置
- 请问如何调用这个DLL?
- String和String$有什么区别。。还要很多这样带$和不带$的,有何区别?
- 解释一下这个简单程序
- 升▲▲▲▲▲了,高兴,散分,多谢各位好友支持!!提高知名度!!!
- 怎样使用控件的WhatsThisHelpID属性呀????!!!????????
- 高手,能给我解释一下ACTIVEREPORT的中文意思吗?
- 还是一个VB小问题~~高手请进(在线中)
- 打印控件
- VB中的显示问题,急!!!
- vb写的客户端 要连接内网中的数据库服务器,请问客户端的数据库连接参数有数据库的用户与密码如何在客户端安全地保存呀
- 加密解密输出问题?
Dim strSQL As String , s As String
Dim cn As New ADODB.Connection
cn.CursorLocation=adUseClient
cn.Open "Provider=SQLOLEDB.1;Password=密码;User ID=登陆名;Initial Catalog=数据库名;Data Source=远程IP"
'读取sql脚本,开始执行脚本里的SQL语句
cn.BeginTrans
On Error GoTo ExecErr
Open App.Path & "\test.sql" For Input As #1
While Not EOF(1)
Line Input #1,s
If UCase(Trim(s))="GO" Then
cn.Execute("strSQL")
strSQL=""
Else
strSQL=strSQL & vbCrLf & s
End If
Wend
Close #1
cn.CommitTrans
Exit Sub
ExecErr:
MsgBox Err.Description
cn.RollbackTransEnd Sub
远程服务器端处理。