#174412 - 2007-03-02 04:17 PM
Re: Update a SQL Database with Kixtart Startup Script
[Re: Sealeopard]
|
noobness
Fresh Scripter
Registered: 2006-01-05
Posts: 32
|
I found UDF that you where referring to and was playing around... I have not gottem them to write to the DB yet though.. Am I doing something wrong?
; Open connection to the SQL database
DBConnOpen("Driver={SQL Server};Server=SQLServerHostName;UID=someUser;PWD=withSomePassword`;Database=computers')
DBExecuteSQL($objConn,"INSERT INTO computers VALUES('@WKSTA','@DOMAIN','@ADDRESS','@IPADDRESS0')")
DBConnClose($objConn)
Function DBConnOpen($ConnDSN, optional $ConnTimeout, optional $CmdTimeout)
Dim $objConn, $adStateOpen
$adStateOpen=Val('&00000001')
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
$objComm=''
$DBConnOpen=''
Exit @ERROR
EndIf
$DBConnOpen=$objConn
EndFunction
Function DBConnClose($objConn)
Dim $adStateOpen
$adStateOpen=Val('&00000001')
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=@error
EndFunction
|
|
Top
|
|
|
|
|
#174439 - 2007-03-03 05:52 AM
Re: Update a SQL Database with Kixtart Startup Script
[Re: noobness]
|
Sealeopard
KiX Master
Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
|
DBConnOpen("Driver={SQL Server};Server=SQLServerHostName;UID=someUser;PWD=withSomePassword`;Database=computers')
DBExecuteSQL($objConn,"INSERT INTO computers VALUES('@WKSTA','@DOMAIN','@ADDRESS','@IPADDRESS0')")
DBConnClose($objConn)
contains non-matching string terminators.
A cleaner approach would be
$sql = "INSERT INTO computers VALUES('"+@WKSTA+"','"+@DOMAIN+"','"+@ADDRESS+"','+"@IPADDRESS0+"')"
DBConnOpen('Driver={SQL Server};Server=SQLServerHostName;UID=someUser;PWD=withSomePassword;Database=computers')
DBExecuteSQL($objConn,$sql)
DBConnClose($objConn)
Still the startup script might not have sufficient rigths to access entwork resources, thus even if the script works while logged in it would not work as a startup script.
_________________________
There are two types of vessels, submarines and targets.
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 1619 anonymous users online.
|
|
|
