软件在用户那里安装的时候如何将程序中已经在用的存储过程部署到用户的SQLServer中?急...谢谢
解决方案 »
- 当读取SQL的数值为NULL时,该怎么写?
- 如果使“该页存在潜在的对ActiveX控件不安全的信息,当前安全设置......”不显示或关闭?
- 数据读取的问题
- Public Declare Function IcmpCreateFile Lib "icmp.dll" () As Long
- 关于DataEnvironment下Connection下用command1使用command1分组的问题
- 将listview的属性改为 平面滚动条 为什么 滚动条就消失了???
- 删除记录后如何刷新?
- 求助!!!一个能锁住键盘上某一个或多个键的程序!!!急,各位大侠帮忙啊!!!
- ★~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 触摸屏的程序可以用vb来开发吗?能不能举一个小例子,谢谢!
- 水晶报表的帮助文档
- vb6怎么获取图片文件的修改时间?
'直接新建
Sub test1()
Dim Db As New ADODB.Connection
Dim Sql$
'打开数据库
Db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=lyt"
'判断是否存在存储过程
If Db.Execute("select * from sysobjects where id=object_id(N'Sto_A1') and objectproperty(id,N'IsProcedure')=1").EOF Then
'不存在,就新建
Sql = "create Procedure Sto_A1" & vbCrLf & _
"as" & vbCrLf & _
"select * from syscolumns"
Db.Execute Sql
End If
End Sub
'在出错时新建
Sub test2()
Dim Db As New ADODB.Connection
Db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=lyt"
On Error GoTo lbErr
Db.Execute ("sto_a1")
Exit Sub
lbErr:
If Err = -2147217900 Then
'不存在时
test1
Else
MsgBox "错误:" & Error & vbCrLf & "错误号:" & Err
'你的第二个问题,可以在这里通过err来获得错误号
End If
End Sub
[code=bat]osql -n -d 数据库名称 -U 用户名 -P 密码 -i 文件名[/code]
你可以写个 .bat 文件来调用所有的 .sql 文件。
http://www.iforchina.com/show.aspx?id=2708&cid=143
osql -n -d mydb -U sa -P 1234 -i b.sql
osql -n -d mydb -U sa -P 1234 -i c.sql
...