Alpha Software Mobile Development Tools:   Alpha Anywhere    |   Alpha TransForm subscribe to our YouTube Channel  Follow Us on LinkedIn  Follow Us on Twitter  Follow Us on Facebook

Announcement

Collapse

The Alpha Software Forum Participation Guidelines

The Alpha Software Forum is a free forum created for Alpha Software Developer Community to ask for help, exchange ideas, and share solutions. Alpha Software strives to create an environment where all members of the community can feel safe to participate. In order to ensure the Alpha Software Forum is a place where all feel welcome, forum participants are expected to behave as follows:
  • Be professional in your conduct
  • Be kind to others
  • Be constructive when giving feedback
  • Be open to new ideas and suggestions
  • Stay on topic


Be sure all comments and threads you post are respectful. Posts that contain any of the following content will be considered a violation of your agreement as a member of the Alpha Software Forum Community and will be moderated:
  • Spam.
  • Vulgar language.
  • Quotes from private conversations without permission, including pricing and other sales related discussions.
  • Personal attacks, insults, or subtle put-downs.
  • Harassment, bullying, threatening, mocking, shaming, or deriding anyone.
  • Sexist, racist, homophobic, transphobic, ableist, or otherwise discriminatory jokes and language.
  • Sexually explicit or violent material, links, or language.
  • Pirated, hacked, or copyright-infringing material.
  • Encouraging of others to engage in the above behaviors.


If a thread or post is found to contain any of the content outlined above, a moderator may choose to take one of the following actions:
  • Remove the Post or Thread - the content is removed from the forum.
  • Place the User in Moderation - all posts and new threads must be approved by a moderator before they are posted.
  • Temporarily Ban the User - user is banned from forum for a period of time.
  • Permanently Ban the User - user is permanently banned from the forum.


Moderators may also rename posts and threads if they are too generic or do not property reflect the content.

Moderators may move threads if they have been posted in the incorrect forum.

Threads/Posts questioning specific moderator decisions or actions (such as "why was a user banned?") are not allowed and will be removed.

The owners of Alpha Software Corporation (Forum Owner) reserve the right to remove, edit, move, or close any thread for any reason; or ban any forum member without notice, reason, or explanation.

Community members are encouraged to click the "Report Post" icon in the lower left of a given post if they feel the post is in violation of the rules. This will alert the Moderators to take a look.

Alpha Software Corporation may amend the guidelines from time to time and may also vary the procedures it sets out where appropriate in a particular case. Your agreement to comply with the guidelines will be deemed agreement to any changes to it.



Bonus TIPS for Successful Posting

Try a Search First
It is highly recommended that a Search be done on your topic before posting, as many questions have been answered in prior posts. As with any search engine, the shorter the search term, the more "hits" will be returned, but the more specific the search term is, the greater the relevance of those "hits". Searching for "table" might well return every message on the board while "tablesum" would greatly restrict the number of messages returned.

When you do post
First, make sure you are posting your question in the correct forum. For example, if you post an issue regarding Desktop applications on the Mobile & Browser Applications board , not only will your question not be seen by the appropriate audience, it may also be removed or relocated.

The more detail you provide about your problem or question, the more likely someone is to understand your request and be able to help. A sample database with a minimum of records (and its support files, zipped together) will make it much easier to diagnose issues with your application. Screen shots of error messages are especially helpful.

When explaining how to reproduce your problem, please be as detailed as possible. Describe every step, click-by-click and keypress-by-keypress. Otherwise when others try to duplicate your problem, they may do something slightly different and end up with different results.

A note about attachments
You may only attach one file to each message. Attachment file size is limited to 2MB. If you need to include several files, you may do so by zipping them into a single archive.

If you forgot to attach your files to your post, please do NOT create a new thread. Instead, reply to your original message and attach the file there.

When attaching screen shots, it is best to attach an image file (.BMP, .JPG, .GIF, .PNG, etc.) or a zip file of several images, as opposed to a Word document containing the screen shots. Because Word documents are prone to viruses, many message board users will not open your Word file, therefore limiting their ability to help you.

Similarly, if you are uploading a zipped archive, you should simply create a .ZIP file and not a self-extracting .EXE as many users will not run your EXE file.
See more
See less

Find / Delete Orphaned Records

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • #16
    Re: Find / Delete Orphaned Records

    My thoughts too Stan,
    I have played a bit and there seems no reason not to use it that way. Good catch.
    In fact while experimenting I found that you can eliminate opening the the header table and converting the string to a collection, can be done directly with
    Code:
    dim id_coll as U 
    id_coll.from_table("header", "id","")
    tbl_dtls = table.open("dtls")
    tbl_dtls.delete_range(".not. id_coll.exist(id)")
    tbl_dtls.pack()
    tbl_dtls.close()

    Comment


    • #17
      Re: Find / Delete Orphaned Records

      You can do that, but.......

      an undocumented feature of the method .from_table() is that it does not process/include marked records. I've switched to getting the string and processing that for safety.
      There can be only one.

      Comment


      • #18
        Re: Find / Delete Orphaned Records

        So Stan
        You got me started with collections.
        I just applied it to (probably its main intention) an application that must constantly apply currency exchange and duty rates throughout.
        All it needs is a short in-line .get() to revalue. Instead of linked tables or external record .. really efficiently running thousands of records.
        So thanks for that.

        Comment


        • #19
          Re: Find / Delete Orphaned Records

          really efficiently running thousands of records
          Absolutely. I cut one process I have from 380 seconds to 28 seconds.
          There can be only one.

          Comment


          • #20
            Re: Find / Delete Orphaned Records

            Ray,

            If time permits why not write up an explanation and post a sample database (with code) in the code archive. This is something most of us know almost nothing about.

            Thanks.

            -- tom

            Comment


            • #21
              Re: Find / Delete Orphaned Records

              Don't know if this will help.

              Suppose you need the customer lasname somewhere in Alphasports where the customer_id is available but the customer table is not open. You can easily do a lookup() to obtain the last name

              Code:
              cidvar = "00000028"
              ? lookup("customer","customer_id = "+quote(cidvar),"lastname")
              = "Wong                "
              or

              Code:
              cidvar = "00000028"
              ? lookupc("F",cidvar,"lastname","customer","Customer_0")
              = "Wong
              The later of course being faster but each time you call the lookup disk activity is required and if the customer table is being used exclusively elsewhere................

              To use a collection we populate it with keys and values from the customer table, opening the table only once. Where to populate the collection would depend on when and how often its use is required. Might be in the autoexec, might be in a form oninit. If marked records are used in the application for a purpose and they should not be unmarked in the customer table then the collection can be populated with .initialize().

              Code:
              cidvar = "00000028"
              dim global cust_last as U
              t = table.open("customer")
              t.unmark_range(".T.")
              nm = t.name_get()
              t.close()
              cust_last.from_table("customer","customer_id","lastname")
              ? cust_last.get(cidvar)
              = "Wong"
              A side benefit is the .exist() method of the collection. If one needs to know whether a particular customer_id exists in the customer table

              Code:
              is_customer = "00000199"
              ? cust_last.exist(is_customer)
              = .F.
              
              is_customer = "00000033"
              ? cust_last.exist(is_customer)
              = .T.
              Last edited by Stan Mathews; 11-26-2013, 10:26 AM. Reason: edited dim, for most uses it should be global
              There can be only one.

              Comment


              • #22
                Re: Find / Delete Orphaned Records

                Thanks, Stan.

                Comment


                • #23
                  Re: Find / Delete Orphaned Records

                  Try an example Tom
                  Open the form, to make it easy press button Currency - change some currency
                  Change Manfr PRICE, change per qty etc
                  Press "recalculate".
                  currency U variable only needs to update with a currency change somewhere else
                  The currency table is not related to the price table.

                  The code is on the recalc button change
                  These are lookups only Stan, so no worry about marked records.
                  Attached Files

                  Comment


                  • #24
                    Re: Find / Delete Orphaned Records

                    Ray,

                    I don't think you understood my point. Marked records in the table used in .from_table() are ignored.

                    dim shared tbValue as U
                    tbValue.from_table("imprtcurr", "country", "randcost")
                    ? tbValue.exist("EU")
                    = .T.

                    ?tbValue.get("EU")
                    = 11

                    delete tbValue
                    'now mark the EU record in imprtcurr

                    dim shared tbValue as U
                    tbValue.from_table("imprtcurr", "country", "randcost")
                    ? tbValue.exist("EU")
                    = .F.
                    ? tbValue.get("EU")
                    = <No data returned>


                    You'll never have any records marked in imprtcurr? Want to swear it'll never happen? That quirk cost me several hours of investigation and two days of recovery work. Unmarking all is a small price to pay, comparatively.
                    There can be only one.

                    Comment


                    • #25
                      Re: Find / Delete Orphaned Records

                      Point well made.
                      Your last sentence, know that too well.
                      Thanks. also for taking the trouble to convince me.

                      Comment


                      • #26
                        Re: Find / Delete Orphaned Records

                        Originally posted by Tom Cone Jr View Post
                        Thanks, G.

                        I eschew the use of referential integrity. ....

                        -- tom
                        Why? Just curious.

                        Ray Lyons

                        Comment


                        • #27
                          Re: Find / Delete Orphaned Records

                          Originally posted by Raymond Lyons View Post
                          Why? Just curious.

                          Ray Lyons
                          For one there is a 256 record limit. not to mention the record locking..

                          works in some cases, but not in many..
                          Al Buchholz
                          Bookwood Systems, LTD
                          Weekly QReportBuilder Webinars Thursday 1 pm CST

                          Occam's Razor - KISS
                          Normalize till it hurts - De-normalize till it works.
                          Advice offered and questions asked in the spirit of learning how to fish is better than someone giving you a fish.
                          When we triage a problem it is much easier to read sample systems than to read a mind.
                          "Make it as simple as possible, but not simpler."
                          Albert Einstein

                          http://www.iadn.com/images/media/iadn_member.png

                          Comment


                          • #28
                            Re: Find / Delete Orphaned Records

                            HI, Ray.

                            ... what Al said ...

                            Do I get bonus points for elevating the verbiage to new heights with "eschew" ???

                            Comment


                            • #29
                              Re: Find / Delete Orphaned Records

                              Originally posted by Tom Cone Jr View Post
                              HI, Ray.

                              ... what Al said ...

                              Do I get bonus points for elevating the verbiage to new heights with "eschew" ???
                              Triple holiday points for using a word with chew in it during Thanksgiving..
                              Al Buchholz
                              Bookwood Systems, LTD
                              Weekly QReportBuilder Webinars Thursday 1 pm CST

                              Occam's Razor - KISS
                              Normalize till it hurts - De-normalize till it works.
                              Advice offered and questions asked in the spirit of learning how to fish is better than someone giving you a fish.
                              When we triage a problem it is much easier to read sample systems than to read a mind.
                              "Make it as simple as possible, but not simpler."
                              Albert Einstein

                              http://www.iadn.com/images/media/iadn_member.png

                              Comment

                              Working...
                              X