updatereg.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 = "UpdateReg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Function update_reg(ByVal connection As String, ByVal reg As String)
Dim conn As New ADODB.connection
Dim cmd As New ADODB.Command
Dim paraname As New ADODB.Parameter
conn.Open connection
Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "regTrueFalse"
Set paraname = cmd.CreateParameter(, adChar, adParamInput, 2, reg)
cmd.Parameters.Append paraname
cmd.Execute
conn.Close
End Function