below is my following code:
Code: Select all
on mouseUp
-- connect to the database
put revOpenDatabase("ODBC", "TESTDSN",, "testuser", "password") into tResult
-- check for connection.
if tResult is a number then
put "Connected to the database." & cr & "Connection ID = " & tResult into Field "outputField"
else
put "Connection failed." into Field "outputField"
end if
put revDataFromQuery (tab,cr,tResult, "select distinct patient_id, patient_name, study_date from T_DATA") into tData
revCloseDatabase tResult
end mouseUp
thoughts?