See red below
  ----- Original Message ----- 
  From: Jim Belisle 
  To: RBASE-L Mailing List 
  Sent: Saturday, January 23, 2010 4:23 PM
  Subject: [RBASE-L] - Re: locked out


  Bernard,

   

  I just found out one of our people was still logged on during my maintenance 
of the database.

  He got out and now all is ok.  Sorry to bother you.

   

  On another subject since you are on line. I have tried to speed up my on key 
press form to no avail.

  I created both PK and FK on the Control# and indexed the three other most 
used fields.

  My form is still very slow, even today when I am the only one accessing the 
data.

   

  Here are the particulars.  The table has over 18,000 records and has 45 
fields. 

  That should not seem to be very big to handle.

   

  OBD var (same ones in OBS EEP)

   

  CLEAR VARIABLES vKeywowd,vControl,vSearchString

  SET VAR vKeyword TEXT = NULL

  SET VAR vControl TEXT = NULL

  SET VAR vSearchString TEXT = NULL

  SET VAR vWhereClause TEXT = NULL

  SET VAR vExportResultsAs TEXT = NULL

  RETURN

   

  OAS

   

  PROPERTY RBASE_FORM DONTSHOWSAVEDIALOG 'TRUE'

  PROPERTY RBASE_FORM DONTSHOWDELETEDIALOG 'TRUE'

  PROPERTY KeyWord SET_FOCUS 'TRUE' 

  RETURN

   

  OKP EEP

   

  -- OnKeyPress EEP

  -- A. Razzak Memon

  -- July 4, 2009

  -- Update by JPB for Model August 17, 2009

  GETPROPERTY Keyword TEXTVALUE vKeyword    *( need quotes around the varname  
vKeyword)

  but I don't know if that will slow things up or how necessary the quotes are. 
 Is it working w/o quotes?  maybe trace it.

  Put in the quotes and see if it makes a difference.



  IF vKeyword = '*' OR vKeyword = '%' THEN

     -- Define Where Clause

     SET VAR vWhereClause = ('Control# IS NOT NULL')

     PROPERTY LV_Quotes REFRESHLIST 'TRUE'

     PROPERTY LV_Quotes SET_FOCUS 'TRUE'

     PROPERTY ExportResultsAs ENABLED 'TRUE'

     GOTO Done

  ENDIF

     -- Pre-define variables

  IF (SLEN (.vKeyword )) < 4 THEN

    GOTO Done

  ENDIF

     SET VAR vQuotes = (CVAL('QUOTES'))

     SET VAR vMany = (CVAL('MANY'))

     SET VAR vSearchString TEXT = NULL

     SET VAR vWhereClause TEXT = NULL

     SET VAR vSearchString = (.vQuotes+.vKeyword+.vMany+.vQuotes)

     -- Define Where Clause

     SET VAR vWhereClause = +

     ('Control# LIKE'&.vSearchString&'OR ' + +

      'Invoice# LIKE'&.vSearchString&'OR ' + +

      'OrderNumber LIKE'&.vSearchString&'OR ' + +

      'ShipZip LIKE'&.vSearchString)

     PROPERTY LV_Quotes REFRESHLIST 'TRUE'

  LABEL Done

  CLEAR VAR iv%

  RETURN

   

  The hesitation is a few seconds on each keystroke.

   

  Any suggestions?

   

  Jim

   

   

   

   


------------------------------------------------------------------------------

  From: [email protected] [mailto:[email protected]] On Behalf Of Bernard Lis
  Sent: Saturday, January 23, 2010 3:13 PM
  To: RBASE-L Mailing List
  Subject: [RBASE-L] - Re: locked out

   

  could the files on the server be marked read only?

  at the dos prompt:   attrib YourFileName.rb1    etc.

   

    ----- Original Message ----- 

    From: Jim Belisle 

    To: RBASE-L Mailing List 

    Sent: Saturday, January 23, 2010 3:41 PM

    Subject: [RBASE-L] - locked out

     

    I just did an unload all then a reload and got a nice fresh database.

    Now I cannot get into the database.

    The error says my multi my be set off but on the settings the multi setting 
is checked.

    What do I do now to try and fix this/

     

    Jim

     

    I can get into the fresh database on another drive.  This is the database I 
copied to the server drive.

    It is the server database I cannot get into.

     

     

Reply via email to