存储过程
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