http://www.scriptlogic.com/kixtart UDF: DBConnOpen()

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 ; - DBConnOpen -

13 May 2002	DBConnOpen()
Author	Jens Meyer (sealeopard@usa.net)
Action	Open a connection to a database using ADODB.
Syntax	DBConnOpen (dsn [,connTimeOut, cmdTimeOut])
Parameters	dsn (Required / String) Database connection string connTimeOut (Optional / Numeric) Optional integer denoting the time in seconds until a connection times out cmdTimeOut (Required / String) Optional integer denoting the time in seconds until a command times out
Remarks	Example connection strings: Microsoft Access : "DRIVER={Microsoft Access Driver (*.mdb)}; UID=; PWD=; DBQ=database.mdb" Microsoft SQL Server : "DRIVER={SQL Server};SERVER=servername;UID=user;PWD=password;DATABASE=mydatabase" Microsoft Visual FoxPro : "DRIVER={Microsoft Visual FoxPro Driver}; UID=; PWD=; DBQ=database.dbc" Oracle : "DSN=test;UID=username;PWD=password" KIXTART BBS http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=12;t=000194
Returns	0 if successful, otherwise error code
Dependencies	None.
Examples	$objConn = DBConnOpen('DRIVER={Microsoft Access Driver (*.mdb)}; UID=; PWD=; DBQ=database.mdb')
Source	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 ; - DBConnOpen -

original source of UDF topic. show actual FunctionLibrary list on Scriptlogic site
printer-friendly mirror of UDF topic on scripting@wanadoo.nl site