I get an error 87 - The Parameter is incorrect.

I am wondering if it is not even attempting to connect?
I'm using MySQL ... and I have the ODBC settings already setup and I've been using it with Cyrstal Reports, so I know it works.

Here is my script:

Code:

   
Dim $pcn

SetConsole ("SHOW")

Color w+/n

;$pcn=@wksta

? "Your PC name is " + "@wksta"

sleep 2







function DBCommand($ConnDSN,$sql)
  Dim $objConn, $adStateOpen
  dim $Conntimeout, $CmdTimeout
  dim $cmdCommand, $rsRecordset
  dim $Records, $FinalRecords
  dim $adCmdText, $adLockReadOnly, $adOpenStatic
  dim $row, $rows, $column, $columns

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

  ; default database parameters
  $adStateOpen=1
  $ConnTimeout=15
  $CmdTimeout=30
  $adCmdText = 1
  $adOpenStatic = 3
  $adLockReadOnly = 1

  ; open the database connection
  $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=''
    $DBCommand=''
    exit @ERROR
  endif

  ; create the database command object
  $cmdCommand = CreateObject('ADODB.Command')
  if @ERROR
    exit @ERROR
  endif
  $cmdCommand.ActiveConnection = $objConn
  if @ERROR
    exit @ERROR
  endif
  $cmdCommand.CommandType = $adCmdText
  if @ERROR
    exit @ERROR
  endif
  $cmdCommand.CommandText = $sql
  if @ERROR
    $DBCommand=@ERROR
    exit @ERROR
  endif

  if instr($sql,'SELECT')=1
    ; create the recordset object
    $rsRecordSet = CreateObject('ADODB.Recordset')
    if @ERROR
      exit @ERROR
    endif
    $rsRecordset.CursorType = $adOpenStatic
    if @ERROR
      exit @ERROR
    endif
    $rsRecordset.LockType = $adLockReadOnly
    if @ERROR
      exit @ERROR
    endif
    $rsRecordset.Open($cmdCommand)
    if @ERROR
      exit @ERROR
    endif

    if $rsRecordset.EOF and $rsRecordSet.BOF
      ; recordset is empty
      $FinalRecords=''
    else
      if @ERROR
        exit @ERROR
      endif

      ; retrieve all records at once and transpose into tabular format
      $Records = $rsRecordset.GetRows()
      $columns=ubound($records,1)
      $rows=ubound($records,2)
      redim $FinalRecords[$rows,$columns]
      for $row=0 to $rows
        for $column=0 to $columns
          $FinalRecords[$row,$column]=$records[$column,$row]
        next
      next
    endif

    ; close recordset
    if $rsRecordset.state=$adStateOpen
      $rsRecordset.Close()
      if @ERROR
        exit @ERROR
      endif
    endif

    $rsRecordset=''
    $cmdCommand=''

    $DBCommand=$FinalRecords
  else
    $rsRecordset=$cmdCommand.Execute()
    $cmdCommand=''
    $rsRecordset=''
    if @ERROR
      exit @ERROR
    endif

    $DBCommand=0
  endif

  ; close the database connection
  If $objConn.State = $adStateOpen
    $objConn.Close()
    if @ERROR
      exit @ERROR
    endif
  EndIf
  $objConn=''

  exit 0
endfunction




$ConnDSN = "ncivesConn"
$sql = "SELECT workst.wSid FROM workst WHERE workst.pcName = '@wksta'"


 $recordset = DBCommand($dsn,$sql)

       ? 'Error = '+@ERROR+' - '+@SERROR

 ? $recordset
;   sleep 3

              for $row=0 to ubound($recordset,1)
                 for $column=0 to ubound($recordset,2)
                 'Field(row='+$row+', column='+$column+') ='+$recordset[$row,$column]
                next
              next



? "Your workstation ID number is " + $Records

sleep 3

SetConsole ("Hide")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:

$ = SetOption("WrapAtEOL","ON")
Dim $pcn

SetConsole ("SHOW")

Color w+/n

;$pcn=@wksta

? "Your PC name is " + "@wksta"

sleep 2

;$ConnDSN = "ncivesConn"

$ConnDSN = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=ncives;USER=Ref;PASSWORD=Ref;OPTION=3;"

$sql = "SELECT * FROM workst;"
;$sql = "SELECT workst.wSid FROM workst WHERE workst.pcName = '@wksta'"

? $sql
sleep 3

$recordset = DBCommand($ConnDSN,$sql)

? 'Error = '+@ERROR+' - '+@SERROR

sleep 1

for $row=0 to ubound($recordset,1)
for $column=0 to ubound($recordset,2)
? 'Field(row='+$row+', column='+$column+') ='+$recordset[$row,$column]
next
next

? "Your workstation ID number is " + $Records

<<>>

sleep 5

SetConsole ("Hide")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:

$ConnDSN = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=ncives;USER=test;PASSWORD=test;OPTION=3;"

$sql = 'SELECT * FROM workst'
? $sql
sleep 3

$recordset = DBCommand($ConnDSN,$sql)

$connection = createobject("adodb.connection")
?$recordset

$= $connection.open($ConnDSN)

? @SERROR

? 'Error = '+@ERROR+' - '+@SERROR
sleep 1

for $row=0 to ubound($recordset,1)
for $column=0 to ubound($recordset,2)
? 'Field(row='+$row+', column='+$column+') ='+$recordset[$row,$column]
next
next

? "Your workstation ID number is " + $Recordset

$ConnDSN = 'DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=ncives;USER=test;PASSWORD=test;OPTION=3;'

$sql = 'SELECT * FROM workst'
? 'SQL = '+$sql

$recordset = DBCommand($ConnDSN,$sql)
? 'Error '+@ERROR+' - '+@SERROR

for $row=0 to ubound($recordset,1)
for $column=0 to ubound($recordset,2)
? 'Field(row='+$row+', column='+$column+') ='+$recordset[$row,$column]
next
next

break on

$= SetOption("WrapAtEol", "On")

$connection = createobject("adodb.connection")

$ConnDSN = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=phone;USER=root;PASSWORD=******;";OPTION=3;"

$= $connection.open($connDSN)

$rs = $connection.execute("SELECT Name FROM Business WHERE Name = 'Shawn'")

While Not $rs.EOF

?"Name=" $rs.Fields("Name").Value

$rs.MoveNext

Loop

exit 1

break on

$dsn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=phone;USER=root;PASSWORD=******;option=3"
$sql = "SELECT Name FROM Business WHERE Name = 'Shawn'"

$rows = DBCommand($dsn, $sql)

? @SERROR

?"VarTypeName=" VarTypeName($rows)

exit 0