SQLitening Support Forum

Thanks for the advice and instructions. But I have decided to go another way to solve my problem, and it has gone well

How about this in SQlitening.bas

Many thanks. I should have read the manual better.
/Fim W.

Is there any way to find out what locks I have made with slSetRelNamedLocks?
/Fim W.

There is something wrong with this forum. Wise answers disappear. Recently, there was an answer that meant that a row would be added to one of the SQLitening programs. That answer has disappeared. What is going on?
/Fim W.

cj,
Thanks for that information
/Fim W.

I previously received some wise answers to my question. But they have disappeared now that I should take up the matter.
Fim W.

After a few changes to my program, everything works as it should. Which of the changes that corrected the error I do not know.

In my system, I handle all processing of a Sql database via a special IO module, a module for each table. Everything works as I had imagined. But in a special case I get error code 7. I have done some tests and it seems I do NOT get error if I make all SQL calls directly in a program without going through an io module.
I get the error after 3732 calls with function GU (get unique).

FUNKTION_GU:
'===========
'
GU_SELECT:
    slOpen TRIM$(KOM.DATABAS)
    SET_NUMMER = slGetUnusedSetNumber
    SEL_STRANG = "SELECT * FROM ART WHERE ARTNR= " + $SQ + TRIM$(ART.ARTNR) + $SQ
    SVAR = slSel(SEL_STRANG, SET_NUMMER) ' Ska ge noll
    IF SVAR <>  0 THEN
        KOM.FELTEXT = "SYSTEMFEL i ARTIO GU slSel=" + STR$(SVAR)  <<============
        GOTO SYSTEMFELHANTERING
        EXIT SUB
    END IF
Tips where to look for errors are gratefully received.
/Fim W.

Thank you, that looks good.
Right now I have other problems.
Will return.

Thanks,
I'll dig into this and see if I understand it.
/Fim W.

What I'm getting is slSelBind is a method of using "Prepared Statement Object" in SQLite
In an ERP system there is something called "requirements explosion" and I have programmed it, works ok, but it takes time.
This slSel-sts is executed 220 times for a particular item:
"SELECT MTRLNR, POS, QUANT, FROM_VECKA, TOM_VECKA, SORT_1 FROM STR WHERE ARTNR =" + $ SQ + TRIM $ (ARTNR) + $ SQ + "ORDER BY MTRLNR"
Instead, I've tried this:
slFIX = slBuildBindDat ("$ SQ + TRIM $ (ARTNR) + $ SQ")
..
..
slSelBind ("SELECT MTRLNR, POST, QUANTITY, FROM_VECKA, TOM_VECKA, SORT_1 FROM STR WHERE ARTNR =? ORDER BY MTRLNR", slFIX, SET_NUMMER_TABELL (NIVA))

But it does not work, I think wrong, but I do not know what.

lSetProcessMods "L0" No effect
I will return later with an example.
/ Fim W.

Your proposal did not affect the situation.
What I can see, a failed INSERT causes the database to be locked when I try with a REPLACE instead. It only applies in local mode. At the moment, I solve it by doing slClose immediately followed by a slOpen. in case of a failed INSERT.
I will return later with an example.
/ Fim W.

I am building a smaller ERP system with Powerbasic and SQLitening. It works as it should when I run in Remote mode. But when I run in Local mode I get "Database locked" every now and then. It does not appear to be a systematic error. Does anyone have a tip where to look for the error?
/Fim W.