vb创建SQL的存储过程,需要用哪些语句,能否写个例子,谢谢呀,给一白分呀
解决方案 »
- VB的安装程序适用设么做的?
- 急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急......火烧眉毛了
- 如何從excel中導入sheet(2)或sheet(3)的內容到sql中
- 老大呀,VB7能装入我VB6写的代码吗?能编译吗?
- 怎么保存PaintPicture的图片?
- C/S结构的数据库程序,VB作前端,如何连接??
- CSDN发现严重作弊现象,Windows NT/2000/XP论坛斑竹(global_boy)作弊
- 请问怎样得到用msgbox创建的对话框的句柄?谢了!
- 毕业设计遇到难题,答辩在即,救人如救火,高手请进!
- 求救:怎样截住软件向个发送的各种URL.
- 关于On Error Resume Next,求教高手!!!
- 在VB程序中,填加*.gif的图片需要填加什么控件?(在线等....)谢谢!!
conn.Open "....."连接数据库
conn.Execute "if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_XG]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)" & _
" drop procedure [dbo].[P_XG] "
conn.Execute " CREATE PROCEDURE P_XG AS DECLARE @dh varchar(13),@xj money,@kje money,@xj1 money,@kje1 money " & _
" select @dh='2006040500012' select @xj=sum(xj),@kje=sum(kje) from xsjeb_18 where ph=1 select @xj1=xj,@kje1=kje from sjxszd where dh=@dh" & _
" update sjxszd set yskhj=@xj+@kje,xj=@xj,kje=@kje where dh=@dh "
Dim objdb As New SQLDMO.Database
Dim objsp As New SQLDMO.StoredProcedure
objSvr.Connect "sql server服务器名", "sa", ""
Set objdb = objSvr.Databases("数据库名")
objsp.Name = "test" '存储过程名称
objsp.Text = Text1.Text '用来输入存储过程的 t-sql 代码,可以很长,但必须符合语法
objdb.StoredProcedures.Add objsp
objSvr.DisConnect
objSvr.Close
objsp.Alter Text1.Text '新存储过程的 t-sql 代码