LDDataBase.EditTable(database, table, dataview)

[litdev]

Hi,

"I would like to edit two tables simultaneously using LDDataBase.EditTable(database, table, dataview). Is that possible?"

I guess it depends exactly on what you mean, here is an example of 2 databases being edited at the same time - is this what you mean?

Code:

DBFile1 = Program.Directory+"\DB1.db"
DB1 = LDDataBase.ConnectSQLite(DBFile1)
command = "BEGIN TRANSACTION;"
command = command + "DROP TABLE IF EXISTS Cars;"
command = command + "CREATE TABLE Cars(Id INTEGER PRIMARY KEY, Name TEXT, Cost NUM);"
command = command + "INSERT INTO Cars(Name,Cost)VALUES('Audi','52642');"
command = command + "INSERT INTO Cars(Name,Cost)VALUES('Mercedes','57127');"
command = command + "INSERT INTO Cars(Name,Cost)VALUES('Skoda','9000');"
command = command + "COMMIT;"
LDDataBase.Command(DB1,command)

DBFile2 = Program.Directory+"\DB2.db"
DB2 = LDDataBase.ConnectSQLite(DBFile2)
command = "BEGIN TRANSACTION;"
command = command + "DROP TABLE IF EXISTS People;"
command = command + "CREATE TABLE People(Id INTEGER PRIMARY KEY, Name TEXT, Age NUM);"
command = command + "INSERT INTO People(Name,Age)VALUES('Fred','12');"
command = command + "INSERT INTO People(Name,Age)VALUES('James','33');"
command = command + "INSERT INTO People(Name,Age)VALUES('Mary','21');"
command = command + "COMMIT;"
LDDataBase.Command(DB2,command)

GraphicsWindow.Show()

DV1 = LDControls.AddDataView(240, 350, "")
Shapes.Move(DV1,0,0)
LDDataBase.EditTable(DB1, "Cars", DV1)

DV2 = LDControls.AddDataView(240, 350, "")
Shapes.Move(DV2,250,0)
LDDataBase.EditTable(DB2, "People", DV2)