lotusscript ODBC Query

Hi all,

I have created an ODBC agent for my notes/domino Web Application. This agent sits behind a button which admin utilises to validate that the information entered by the user do in fact exist in backend datasource and that they are correct.

The query is all correct, but what I am having a bit of trouble with is the following:

Qry.SQL = "Select * " + _
      "FROM Customer, Customer_Invoice_Line_File WHERE Customer.Number = Customer_Details.CDNumber " +_
      "And Customer.Cus_Type ='7'" +_
      "And Customer_Details.CustDetail_Type ='7'" + _
      "And Customer.Invoiceno = '"+nvVariable+"'"  
      
      Dim res As New ODBCResultSet
      End If

      RetCode% = ResHO.FirstRow
      
      If RetCode% = False Then
            Print " no records to match your query"
      exit sub
end if

do while retcode%=true

If RetCode% = True
 
        If doc.field1 = Cstr( Res.GetValue("Date”))  
    'move to next field
 else
  errormsg = "value entered in" doc.field1 is incorrect

    If doc.field2 = Cstr( Res.GetValue("product”))  
'move to field 3
else
errormsg1 = errormsg + chr(13) + "value entered in" doc.field2 is incorrect
then  third, until n fields until we finish all the fields that I need to validate with the live OCB connection against the values entered by the user.
This is the only feasible way that can be done because data amount is too large to keep in notes ......
At the end I will have a routine which after closing the connection will send the user an email informing of results if any errors.

MY PROBLEM

I am having trouble construct the valiation loop correctly. not too sure if I am on the right path up there

Can anyone give me a hand with this. It will be much appreciated.

Thank you all in advance.
Varvoura

 






Start Free Trial