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>