Need Help with mbd Function

[KenNichols]

If $Tech.Fields ($fldname2).Value Does not exist I get an Error! It works great if a value is there. I have tried to fix this 20 different ways and I just don't understand enough to figure this out!

CODE

Func _Read($dbname,$tblname,$fldname1,$fldname2,$data1)

$adoCon = ObjCreate ("ADODB.Connection")

$adoCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname & ";")

$query = "SELECT * FROM " & $tblname & " WHERE " & $fldname1 & '="' & $data1 & '"'

$Tech = $adoCon.Execute($query)

$Result = $Tech.Fields ($fldname2).Value

$adoCon.Close

Return $Result

EndFunc ;==> _Read

[PsaltyDS]

If $Tech.Fields ($fldname2).Value Does not exist I get an Error! It works great if a value is there. I have tried to fix this 20 different ways and I just don't understand enough to figure this out!

Func _Read($dbname,$tblname,$fldname1,$fldname2,$data1)
$adoCon = ObjCreate ("ADODB.Connection")
$adoCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname & ";")
    $query = "SELECT * FROM " & $tblname & " WHERE " & $fldname1 & '="' & $data1 & '"'
$Tech = $adoCon.Execute($query)
$Result = $Tech.Fields ($fldname2).Value
$adoCon.Close
Return $Result
EndFunc ;==> _Read

I think you could test for $Tech.EOF to see if there are any records there.

[KenNichols]

I think you could test for $Tech.EOF to see if there are any records there.

Thanks! I changed it to

CODE

Func _Read($dbname,$tblname,$fldname1,$fldname2,$data1)

$adoCon = ObjCreate ("ADODB.Connection")

$adoCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname & ";")

$query = "SELECT * FROM " & $tblname & " WHERE " & $fldname1 & '="' & $data1 & '"'

$Tech = $adoCon.Execute($query)

If $Tech.EOF Then

$adoCon.Close

$Result = ""

;MsgBox(1,"Error", "Tech ID: " & $data1 & " does not exist")

Return $Result

Else

$Result = $Tech.Fields ($fldname2).Value

$adoCon.Close

Return $Result

EndIf

EndFunc ;==> _Read