Search options (Page 3 of 18)

Hello AD,

Took me some time, but I think I have something for you.

Try this little tool and tell me what you think. Instructions are included inside, just click on the 'question mark' icon, but here they are as well :

• use SQliteCompare to generate a conversion script

• start the tool and select your database to convert

• load the conversion script

• wait

https://mega.nz/#!tkoklabQ!Sbm6R5jMuVhh … d7GLpadsJU

If this tool works, I could build a version you could distribute with the needed script and instructions to your users, as well as upload it here for all users if you think it is useful.

I had to use Delphi with RAD Studio because I could not find a way to disable Foreign Key Constraints on an attached database with MVD (they are enabled again at the end of the conversion process).
The idea was to build a generic tool, not one with hard-coded instructions that would only work for a specific version and a specific database scheme. This is why the conversion script has to be loaded. But then, if the only thing you have to provide to your users is the conversion script along with the new version of your application, that is simple enough for them to do.

Cheers

Mathias

PS : many things could go wrong, starting with the SQLite connection. Let me known

Hello AD,

QUERY 5, there are two typos :
Replace

SQLExecute('CREATE TABLE issueFilter;'+

With

SQLExecute('CREATE TABLE issueFilter'+

There is a nasty "  ;  " in your code where it should not be
Replace

'issueFilter TEXT,'

With

'issueFilter TEXT'

No "  ,  " at the end because this is the last line of instruction

QUERY6 found just one
Replace at the end

')');

With

'))');

I think you closed one less "  (  " than you had opened

Other errors are due to the missing tables that could not be created.

Let me known if this solved your issue

Cheers

Mathias

Basically, this is a second program.

The user :
- starts the program
- loads his "old database"
- no mater where the database was, it is copied in the  DB_OLD subdirectory of the tool
- the version of the database is checked
- if version is OK, conversion process can begin
- at the end, the newly created database is saved in DB_NEW subdirectory

All that is left for the user is the replace the database shipped with the new version of the application with this newly converted one, and start the program.

Code is commented

Hope this helps

Cheers

Mathias

Hello  AD,

I had a quick look at your code, and I think there is a extra comma at the end of your script

Find this :

'id_company INTEGER REFERENCES company(id) ON DELETE CASCADE,'+
')');

Try to replace with :

'id_company INTEGER REFERENCES company(id) ON DELETE CASCADE')');

Let me known if this solved the error.

Take care my friend. Cheers

Mathias

Hello AD1408 and happy new year,

I known the problem ! My application has had so many changes, that it can be hard to tracks user version and adapt their database to the new format (because they don't want to start from scratch and loose their data).

To compare two sqlite databases, I use this tool : Sqlite Compare
https://www.codeproject.com/Articles/22 … re-Utility

This nice (and Free) utility will compare for you two sqlite databases (structure only, or structure and data) and generates SQL scripts to upgrade from old model to new model.

Tables, triggers, foreign keys.... it handles everything and quite well.

Each time I release a new version, the conversion scripts comes with it. When the new application starts (with the old data), version numbers are compared and the scripts are applied on a copy of the user database.

The only thing the user has to do is replace the current database with the converted one.

Hope this helps

Cheers

Mathias

Hello guys,

@Derek : you're right, I've been on and off for a few month because work was quite heavy lately, but I always keep an eye on the forum and on old friends

Three things I wanted to add :

First, 'keywords.TableGrid1.dbItemID := lid;' refers to a database ID, so should not be "broken" by any sorting. The tablegrid I tested it on was sorted and it still worked.
But then, this 'Last_Insert_id' thing only works on a database INSERT. If you try this method on an UPDATE, it won't give you the last modified ID, but the last inserted one, which could have been added hours ago...
If you want to select the row after an UPDATE, you'll have to identify the database ID with another method first.

Second, you can not set the focus on multiple objects on a form. So if you want to highlight lines in different grid, don't use the 'setfocus' command.
I personally setup my grids with a 'selectfullrow' option and this is enough to highlight the row I want.
More on that after Christmas if needed.

Last but not least, I see a lot of attempt at Treeviews, so I thought I might post my implementation of it here :

My application is an asset manager, assets to which you can attach keywords to identify them. They also have a link to the online shop you can find them and a status flag (owned, wanted, download in progress...).

The following treeview represents the assets grouped by Keywords, and the vendors with icons for each levels and a special icon to show their status.

You will see :
first level : keywords (this is test data)
second level : vendors
third level : assets

Each level has it's own icon, and some assets (third level) have a little green tick, showing they are owned. And each level also has a counter showing how many items it contains.

I've stripped down all the rest of the code, all other forms and all irrelevant data from the database because the package was over 300Mo wether now, it's a little under 1,5 Mo.

Hope this helps

Have yourself a Merry Christmas as used to sing Franck Sinatra.

Cheers

Mathias

Hey Vasco,

I am sorry I missed your previous post

But you finally found your solution right ?

If not, do not hesitate to ask, I will pay more attention to notifications

Cheers

Math

Hello wenchester21,

I think Dmitry is correct, his solutionis the simplest you can apply.

But you could have to use script for other reasons than printing.
In that case, you can use the property of your Tablegrid to achieve that.

Let's say you have a Tablegrid1 on Form1 and the user selected some products in it. In order to get the ID of these selected products, you could do something like :

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    i : Integer;
    product_id : Integer;
begin
    for i := 0 to Form1.TableGrid1.RowCount - 1 do
        begin
            if Form1.TableGrid1.Selected[i] then //if the row is selected
                begin
                    product_id := Form1.TableGrid1.dbIndexToID(i); //convert the row number to database ID
                    ShowMessage(IntToStr(product_id));
                end;
        end;
end;

Of course, this would give you a series of popups with the id number in it which is of no real use, but you get the general idea.

If you need help to insert them in a temporary table of in a stringlist or array, just say so and I'll provide an example.

Hope this helps

Cheers

Mathias

Hello,

Sorry I missed you message.

The content of a TStringList is a string, with all the values separated by a comma

,

If you want an array, you need to split the TStringList with the correct command:

LocalArray := SplitString(LocalList,',');

Sending you an example is not really easy as I have no project in mind that could help you right now.

But if you want to transfer a table's content to another, why do you plan on using TStringLists or Arrays ? Why not direct SQL or SQLTransactions ?

Give me a little more detail on what you want to do and I'll try to find an answer for you

Cheers

Mathias