Versions Compared

Old Version 1

changes.mady.by.user SRP Support

Saved on

compared with

New Version 2

changes.mady.by.user Corby Nagel

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Below is the code for forcing the login dialog for the populating the combo box from SQL Server example, commenting out the original XOInstance() call and forcing the login dialog.  changing XOInstance() to pass no parameters.

 

Code Block
$insert XO_Equates
 
//hXO = XOInstance('PUBS' , '', 'sa')
hXO = XOInstance()
 
if hXO then
  hQry = QryInstance(hXO)
    if hQry then
      flag = QryMethod(hQry, QRY_EXECUTE$, "select au_lname + ', ' + au_fname from authors order by au_lname")
      row = ""
      results = ""
      loop
        flag = QryMethod(hQry, QRY_GETROW$, row)
      while flag
        results<-1> = row
      repeat
      QryMethod(hQry, QRY_DESTROY$)
    end
  rv = Set_Property (@window : '.AUTHORS', 'LIST', results)
  XOMethod(hXO, XO_DESTROY$)
end