Runs SQL Command that needs no return
This is primarily useful for CREATE, DROP, INSERT, UPDATE or DELETE sql statements
then returns 0 or 1
If ConnString is passed as null, it will assume that we already have db connection open.
Function SqlExec(byVal stSQLCmd, byVal ConnString)
' Runs SQL Command that needs no return
' This is primarily useful for CREATE, DROP, INSERT, UPDATE or DELETE sql statements
' then returns 0 or 1
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
On Error Resume Next
If ConnString > "" Then ' Blank if we are already connected
oConn.Open ConnString
End If
If Err Then
Rett = 0
Else
Rett = 1
oConn.Execute stSQLCmd
If Err Then Rett = 0
End If
If ConnString > "" Then ' If we open it, we close it
oConn.Close
Set oConn = Nothing
End If
On Error GoTo 0
SqlExec = Rett
End Function
' Runs SQL Command that needs no return
' This is primarily useful for CREATE, DROP, INSERT, UPDATE or DELETE sql statements
' then returns 0 or 1
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
On Error Resume Next
If ConnString > "" Then ' Blank if we are already connected
oConn.Open ConnString
End If
If Err Then
Rett = 0
Else
Rett = 1
oConn.Execute stSQLCmd
If Err Then Rett = 0
End If
If ConnString > "" Then ' If we open it, we close it
oConn.Close
Set oConn = Nothing
End If
On Error GoTo 0
SqlExec = Rett
End Function
byVal stSQLCmd, byVal ConnString
Views 147
Downloads 49
CodeID
DB ID