use OLE;

$table="Tube";

$conn = CreateObject OLE "ADODB.Connection" || die "CreateObject: $!";
$conn->Open('UM_DB');
$sql = "SELECT * FROM $table";

#rs = $dbs->OpenRecordset("Tube");
#$nrs = $conn->Recordsets->Count;
#print " Found $nrs recordsets...\n";

$rs = $conn->Execute($sql);
$nflds = $rs->Fields->Count;
print "Table Tube has $nflds fields...\n";
open(OUT,">$table\_fld\_data.txt");
for ($i=0;$i<$nflds;$i++) {
    $name[$i] = $rs->Fields($i)->Name;
    print " Field $i is named $name[$i]\n";
    print OUT "\t\$wd$i\[\$i\] = \$$name[$i]\n";
}
close OUT;

$rs->MoveFirst();
while (!$rs->EOF()) {
    $tube = $rs->Fields('IDTube')->Value;
    $sz_tube = $rs->Fields('IDTube')->Type;
    $temp = $rs->Fields('WirTemp')->Value;
    $sz_temp = $rs->Fields('WirTemp')->Type;
#    $yoff = $rs->Fields('XrayWDyA')->Value;
    write;
    $rs->MoveNext();
}
$rs->Close();
$conn->Close();

#Formats for quick print
format STDOUT =
@<<<<<<<<<(@<<<)      @<<<<<<<<<<<<<<(@<<<)  @<<<<<<<<<<<<
$tube $sz_tube $temp $sz_temp $yoff
.
format STDOUT_TOP = 
Page @<<
$%
Tube        Temperature     Y-offset (um)
=====       ===========     =============
.