Here you go

Code:
 

$ = 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")


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