|
|
|
Как удалить даные из нескольких таблиц одновременно
|
|||
|---|---|---|---|
|
#18+
Всю жизнь работал на FoxPro, теперь сел за ACCESS. Подскажите, как можно провести удаление даных в нескольких таблицах одновременно (с помощью нажатия одной кнопули)? К примеру в таблицах tab1 и tab2 надо удалить все данные которые удовлетворяют условию pm_id = 1. В FoxPro это я проделываю просто (пусть таблицы уже открыты): SELECT tab1 DELETE FOR pm_id = 1 SELECT tab2 DELETE FOR pm_id = 1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.10.2003, 14:48 |
|
||
|
Как удалить даные из нескольких таблиц одновременно
|
|||
|---|---|---|---|
|
#18+
Почти так же: Delete * from tab1 where pm_id = 1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.10.2003, 15:12 |
|
||
|
Как удалить даные из нескольких таблиц одновременно
|
|||
|---|---|---|---|
|
#18+
Не получается, ошибка: Compile error: Expected: end of statement. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.10.2003, 15:23 |
|
||
|
Как удалить даные из нескольких таблиц одновременно
|
|||
|---|---|---|---|
|
#18+
Код гони. Целиком ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.10.2003, 15:40 |
|
||
|
Как удалить даные из нескольких таблиц одновременно
|
|||
|---|---|---|---|
|
#18+
Private Sub cmdDel_Click() txtMsg = "УДАЛИТЬ ЗАПИСЬ ?" txtTitle = "ВОПРОС" If MsgBox(txtMsg, vbYesNo + vbQuestion, txtTitle) = vbYes Then Delete * from grzr1 Where rzr_lich = Me.txtRzr_lich Else Me.lstZrzr.SetFocus End If End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.10.2003, 15:53 |
|
||
|
Как удалить даные из нескольких таблиц одновременно
|
|||
|---|---|---|---|
|
#18+
не знаю как в фоксе... а в аксесе, можно например так: ..... If MsgBox(txtMsg, vbYesNo + vbQuestion, txtTitle) = vbYes Then sql= "Delete * from grzr1 Where rzr_lich =" & Me.txtRzr_lich docmd.runsql sql ..... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.10.2003, 15:59 |
|
||
|
Как удалить даные из нескольких таблиц одновременно
|
|||
|---|---|---|---|
|
#18+
Два варианта: 1. Создаешь запрос(сы) на удаление конструктором и вешаешь на кнопку его(их) выполнение (Docmd.OpenQuery...). 2.Пишешь функцию: Код: plaintext 1. 2. 3. и тоже ее на кнопень ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.10.2003, 16:01 |
|
||
|
Как удалить даные из нескольких таблиц одновременно
|
|||
|---|---|---|---|
|
#18+
я никогда не писал на FOX (сразу на Access), поэтому мне очень прикольно читать посты от PHILAT_ где он сразу в коде пишет SQL команды :) А че там прям сразу можно так бухать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.10.2003, 16:36 |
|
||
|
|

start [/forum/topic.php?fid=45&tid=1679022]: |
0ms |
get settings: |
11ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
71ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
54ms |
get tp. blocked users: |
1ms |
| others: | 255ms |
| total: | 436ms |

| 0 / 0 |
