Break ON
$ = SetOption("WrapAtEOL","ON")


;START FUNCTIONS

;DATABASE RELATED FUNCTIONS
Function DBConnOpen($objConn, optional $ConnTimeout, optional $CmdTimeout)

	Dim $objConn, $adStateOpen

	$dbconnopen=''
	$adStateOpen=1

	if vartype($ConnTimeout)
		$ConnTimeout=val($ConnTimeout)
	else
		$ConnTimeout=15
	endif

	if vartype($CmdTimeout)
		$CmdTimeout=val($CmdTimeout)
	else
		$CmdTimeout=30
	endif

	$ConnDSN=trim($ConnDSN)
	if not $ConnDSN
		exit 87
	endif

	$objConn = CreateObject("ADODB.Connection")
	if @ERROR
		exit @ERROR
	endif

	$objConn.ConnectionTimeout = $ConnTimeout
	if @ERROR
		exit @ERROR
	endif

	$objConn.CommandTimeout = $CmdTimeout
	if @ERROR
		exit @ERROR
	endif

	$objConn.Open($ConnDSN)
	if @ERROR
		exit @ERROR
	endif

	if not $objConn.State=$adStateOpen
		$objConn=''
		$DBConnOpen=''
		exit @ERROR
	endif
	
	$DBConnOpen=$objConn
	exit 0

EndFunction



Function DBConnClose($objConn)
    Dim $adStateOpen
    
    $adStateOpen = 1
    
    If vartype($objConn)=9
        If $objConn.State = $adStateOpen
            $objConn.Close()
            if @ERROR
                exit @ERROR
            endif
        EndIf
        $objConn=''
    else
        exit 87
    endif
    
    $DBConnClose=@ERROR
EndFunction



function DBExecuteSQL($objConn, $sql, optional $cmdType)
	dim $cmdCommand, $rsRecordset
	dim $adCmdUnspecified, $adCmdText, $adCmdTable, $adCmdStoredProc, $adCmdUnknown, $adCmdFile, $adCmdTableDirect

	$adCmdUnspecified = -1
	$adCmdText = 1
	$adCmdTable = 2
	$adCmdStoredProc = 4
	$adCmdUnknown = 8
	$adCmdFile = 256
	$adCmdTableDirect = 512

	if vartype($cmdType)
		$cmdType=val($cmdType)
	else
		$cmdType=$adCmdText
	endif

	if vartype($objConn)<>9 or $sql=''
		exit 87
	endif

	$cmdCommand = CreateObject('ADODB.Command')
	if @ERROR
		exit @ERROR
	endif

	$cmdCommand.ActiveConnection = $objConn
	if @ERROR
		exit @ERROR
	endif

	$cmdCommand.CommandType = $cmdType
	if @ERROR
		exit @ERROR
	endif

	$cmdCommand.CommandText = $sql
	if @ERROR
		exit @ERROR
	endif

	$rsRecordset=$cmdCommand.Execute()
	$cmdCommand=''
	$rsRecordset=''

	if @ERROR
		exit @ERROR
	endif

	$DBExecuteSQL=0
	exit 0

endfunction
;END DATABASE FUNCTIONS
;END FUNCTIONS


$objConn 		= "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=test;PASSWORD='';OPTION=3;"
$sql			= "INSERT INTO computer(name) VALUES('testcomputer')"

DBConnOpen($objConn)
? "Error @ERROR:  @SERROR"
sleep 5

DBExecuteSQL($objConn,$sql)
? "Error @ERROR:  @SERROR"

DBConnClose($objConn)
? "Error @ERROR:  @SERROR"