日期:2014-05-17 浏览次数:20456 次
Public Function execpro(strstr As String) As Integer
Dim execSQL As String
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter
Dim param1 As ADODB.Parameter
Set cmd = New ADODB.Command
'''On Error GoTo execproerr
cmd.ActiveConnection = "DRIVER={SQL Server};SERVER=" + cnfgnow.DBip + ";DATABASE=chisdb_dev;UID=sa;PWD=mima"
cmd.CommandText = "uptab"
cmd.CommandType = adCmdStoredProc
cmd.Parameters("@id") = "1767678"
cmd.Parameters("@name") = "成功" ' "20081128-p-1011400---9-1-0" '
Dim i As Integer
cmd.Execute
'''write_log strstr & Trim(cmd.Parameters("@MsgInfo").Value)
execpro = i
Exit Function
'''execproerr:
'''write_log "写数据库错误"
execpro = 0
End Function