|
30.11.2018, 11:35
#39740761
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: Москва
Сообщения: 1 562
Рейтинг:
0
/ 0
|
|
|
|
Вот для примера
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
CurrentDb.Execute "CREATE TABLE Docs (idDoc AUTOINCREMENT, sNumber text(15), idCustomerId int, discount float);"
CurrentDb.Execute "insert into Docs(sNumber, idCustomerId, discount) VALUES ('z1', 1, .10);"
CurrentDb.Execute "insert into Docs(sNumber, idCustomerId, discount) VALUES ('z2', 1, .20);"
CurrentDb.Execute "insert into Docs(sNumber, idCustomerId, discount) VALUES ('z3', 2, 0);"
CurrentDb.Execute "CREATE TABLE DocsItems(idDocItem AUTOINCREMENT, idDoc int, idItem int, qtyAmount float, curPrice currency);"
CurrentDb.Execute "insert into DocsItems(idDoc, idItem, qtyAmount, curPrice) VALUES (1, 1, 11, 11);"
CurrentDb.Execute "insert into DocsItems(idDoc, idItem, qtyAmount, curPrice) VALUES (1, 2, 22, 22);"
CurrentDb.Execute "insert into DocsItems(idDoc, idItem, qtyAmount, curPrice) VALUES (1, 3, 33, 33);"
CurrentDb.Execute "insert into DocsItems(idDoc, idItem, qtyAmount, curPrice) VALUES (2, 1, 44, 44);"
CurrentDb.Execute "insert into DocsItems(idDoc, idItem, qtyAmount, curPrice) VALUES (2, 2, 55, 55);"
CurrentDb.Execute "insert into DocsItems(idDoc, idItem, qtyAmount, curPrice) VALUES (3, 1, 66, 66);"
CurrentDb.Execute "CREATE TABLE Items (idItem AUTOINCREMENT, sName text(200), sDescription text(200), qtyMinBuy float);"
CurrentDb.Execute "insert into Items(sName, qtyMinBuy) VALUES ('Item number One', 1);"
CurrentDb.Execute "insert into Items(sName, qtyMinBuy) VALUES ('Item number Two', 2);"
CurrentDb.Execute "insert into Items(sName, qtyMinBuy) VALUES ('Item number Three', 3);"
CurrentDb.Execute "insert into Items(sName, qtyMinBuy) VALUES ('Item number Four', 4);"
Если при таком голом определении создать запрос, он будет, конечно вообще не обновляемым.
1.
2.
Currentdb.CreateQueryDef "rsDocItems" , "SELECT DocsItems.*, Items.* FROM DocsItems LEFT JOIN Items ON DocsItems.idItem = Items.idItem"
RefreshDatabaseWindow
Добавляем индексы:
1.
2.
3.
CurrentDb.Execute "CREATE INDEX pkItems ON Items(idItem) WITH PRIMARY;"
CurrentDb.Execute "CREATE INDEX pkDocs ON Docs(idDoc) WITH PRIMARY;"
CurrentDb.Execute "CREATE INDEX pkDocsItms ON DocsItems(idDoc, idItem) WITH PRIMARY;"
Теперь он обновляем. И будет удалять из DocsItem. Если левой таблицей сделать Items - то будет только делать вид что удаляет, при Resfresh покажет опять все записи. |
|
|
