opcommand.inc

来自「深入浅出ASP.NET程序设计-源代码 书籍语言： 简体中文 」· INC 代码 · 共 13 行

<Script Language="VB" Runat="Server">
Function OpCommand(ByVal DSN As String, Byval tSQL As String) As Integer
	Dim OBJConn As OleDBConnection = New OleDbConnection(DSN) 
	Dim Counts As Integer
	OBJConn.Open()		' 打开连接
	Dim OBJCmd As New OleDBCommand
	OBJCmd = New OleDbCommand(tSQL, OBJConn)
	' 招待SQL语句，并获取影响的列数量
	Counts = OBJCmd.ExecuteNonQuery()
	OBJConn.Close()
	return Counts
End Function
</Script>