存储过程
CREATE PROCEDURE Dept_GeneralInsertOrUpdate
@DeptCode varchar(20),
@DeptName varchar(20),
@Unit varchar(20),
@ZuoYe varchar(20),
@Property varchar(20),
@Flag int
AS
--插入记录
if @Flag=0
exec('Insert into Dept values('''+@DeptCode+''','''+@DeptName+''','''+@Unit+''','''+@ZuoYe+''','''+@Property+''')')
else --修改记录
exec('Update Dept set 部门名称='''+@DeptName+''',单位名称='''+@Unit+''',作业名称='''+@ZuoYe+''',部门性质='''+@Property+''' where 部门编码='''+@DeptCode+'''')
GOVB代码
Dim comCommand As Command
Dim rstrecordset As Recordset
Dim strDeptCode As String
Dim strCode As String Set comCommand = New Command
Set rstrecordset = New Recordset
With comCommand
.ActiveConnection = g_conConnection
.CommandType = adCmdStoredProc
.CommandText = "Dept_GeneralInsertOrUpdate"
.Parameters("@DeptName") = Trim(txtDeptName.TEXT)
.Parameters("@Unit") = Trim(txtUnit.TEXT)
.Parameters("@ZuoYe") = Trim(txtZuoYe.TEXT)
.Parameters("@Property") = Trim(cboProperty.TEXT)
.Parameters("@DeptCode") = Trim(txtDeptCode.TEXT)
'修改记录
If g_blnBaseTableAddUpdate = True Then
.Parameters("@Flag") = 1
'插入记录
Else .Parameters("@Flag") = 0
End If
.Execute
End With
CREATE PROCEDURE Dept_GeneralInsertOrUpdate
@DeptCode varchar(20),
@DeptName varchar(20),
@Unit varchar(20),
@ZuoYe varchar(20),
@Property varchar(20),
@Flag int
AS
--插入记录
if @Flag=0
exec('Insert into Dept values('''+@DeptCode+''','''+@DeptName+''','''+@Unit+''','''+@ZuoYe+''','''+@Property+''')')
else --修改记录
exec('Update Dept set 部门名称='''+@DeptName+''',单位名称='''+@Unit+''',作业名称='''+@ZuoYe+''',部门性质='''+@Property+''' where 部门编码='''+@DeptCode+'''')
GOVB代码
Dim comCommand As Command
Dim rstrecordset As Recordset
Dim strDeptCode As String
Dim strCode As String Set comCommand = New Command
Set rstrecordset = New Recordset
With comCommand
.ActiveConnection = g_conConnection
.CommandType = adCmdStoredProc
.CommandText = "Dept_GeneralInsertOrUpdate"
.Parameters("@DeptName") = Trim(txtDeptName.TEXT)
.Parameters("@Unit") = Trim(txtUnit.TEXT)
.Parameters("@ZuoYe") = Trim(txtZuoYe.TEXT)
.Parameters("@Property") = Trim(cboProperty.TEXT)
.Parameters("@DeptCode") = Trim(txtDeptCode.TEXT)
'修改记录
If g_blnBaseTableAddUpdate = True Then
.Parameters("@Flag") = 1
'插入记录
Else .Parameters("@Flag") = 0
End If
.Execute
End With
解决方案 »
- 怎么清理自己浪费的内存,WebBrowser相关
- 麻烦老师给看看该怎么优化
- 一个网页下有若干个iframe,每个iframe下又有若干个数目不等的子iframe,每个子iframe下又有若干个数目不等的孙iframe,...如何枚举出全部的iframe?
- VB应用程序打包?是不是还要区分系统的简体或者繁体字
- ListView,简单的小问题
- 请问如何删除txt文件中的所有字符而不删除整个文件啊?
- 客户端访问数据库服务器(WIN2000+SQL2000)的问题
- 怎样用VB实现在窗体建立一个ToolBar,上面有几个按钮,按钮上有文字+图标?(比如像windows的那个"打开"按钮,有文字+图标)
- 如何混合声道输出??
- 如何通过脚本或者其他方法改变dns服务器上某个域从辅助域改为主域和更改某条记录
- 请看程序有没有错误
- datareport控制打印纸大小的问题
CREATE PROCEDURE ConditionSelect
@Field1 char (30)
AS
exec('select * from Skill where 技能='''+@Field1+'''')
Go'delete
CREATE PROCEDURE Delete_Delete
@Value varchar(50)
AS
exec ('delete from [User] where UserID='''+@Value+'''')
GO以上存储过程的执行参考上面帖子