Pdb.SQLExecute(“CREATE TABLE OrderLinesTest (ID Integer DEFAULT nextval(’”“table1_ID_seq”"’::regclass) NOT NULL,OrderID INTEGER,Idx INTEGER,Item TEXT,Quantity REAL," _ Pdb.SQLExecute(“DROP TABLE OrderLinesTest”) If rs nil Then MsgBox rs.RecordCount.ToText + “, " + Format(t/60,” #0.00") + ", " + cnt Rs = db.SQLSelect(“SELECT * FROM OrderLines”) Row.Column(rs.IdxField(i).Name) = rs.IdxField(i).StringValue " Description TEXT, Price REAL, Tax TEXT, Category TEXT, LF TEXT, Status INTEGER, ProductionID INTEGER, QBID TEXT) ")ĭim dbFile As New FolderItem(“templocation\test.db”)ĭim rs as RecordSet = db1.SQLSelect(“SELECT * FROM OrderLinesTest”)ĭim cnt as String = rs.RecordCount.ToText.If not DB.Connect then msgbox “Error opening QB.DB”ĭb.SQLExecute(“CREATE TABLE OrderLines ( ID INTEGER PRIMARY KEY AUTOINCREMENT UNIQUE, OrderID INTEGER, Idx INTEGER, Item TEXT, Quantity REAL,” _ I tried a lot of things and didn’t bother to clean up. I just used this because is was a table with more columns. Here is my test which really is redundant because I never really delete all order lines in my program. Msg = format( sw.ElapsedMicroseconds, "#," ) + " microsecs" "Price NUMERIC(12,2), TaxCode TEXT, Category Text, " + _ĭata.Column( "description" ) = "some description " + str( i )ĭata.Column( "category" ) = "category " + str( i ) Sql = "CREATE TABLE QBItems (Item TEXT PRIMARY KEY UNIQUE, " + _ I wonder what the difference is and whether it points to some problem with your test suite as a whole? To insert 2095 records takes a little under a second, and that’s testing on PSQL 9.5.x on my laptop running on battery and in the IDE. I thought the timing for PostgreSQL was a bit odd so I tested it myself. Even though I haven’t tried their SQLIte server, I know first hand how fast Valentina is so I’m not surprised their SQLite server is quick.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |