📄 opcommand.inc
字号:
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -