$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

 

? $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

$rsRecordset.LockType = $adLockReadOnly    
if @ERROR    
  exit @ERROR    
endif

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

Quote:

---

E:\>kix32 t

The operation completed successfully.
VarTypeName=Variant[]

---