updatename.cls

来自「欢迎使用网页设计 在线学习系统ver1.0 本系统主要特点如下: 1.本系统」· CLS 代码 · 共 29 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "updateName"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Function updateName(ByVal conStr As String, ByVal company_name As String)
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim paraname As New ADODB.Parameter
conn.Open conStr
Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sysCompanameName"
Set paraname = cmd.CreateParameter(, adChar, adParamInput, 20, company_name)
cmd.Parameters.Append paraname
cmd.Execute
conn.Close
End Function