Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как удалить даные из нескольких таблиц одновременно / 9 сообщений из 9, страница 1 из 1
06.10.2003, 14:48
    #32285137
PHILAT_
PHILAT_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как удалить даные из нескольких таблиц одновременно
Всю жизнь работал на FoxPro, теперь сел за ACCESS.

Подскажите, как можно провести удаление даных в нескольких таблицах одновременно (с помощью нажатия одной кнопули)?

К примеру в таблицах tab1 и tab2 надо удалить все данные которые удовлетворяют условию pm_id = 1.

В FoxPro это я проделываю просто (пусть таблицы уже открыты):

SELECT tab1
DELETE FOR pm_id = 1

SELECT tab2
DELETE FOR pm_id = 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 15:12
    #32285179
RVI
RVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как удалить даные из нескольких таблиц одновременно
Почти так же:
Delete * from tab1 where pm_id = 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 15:23
    #32285204
PHILAT_
PHILAT_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как удалить даные из нескольких таблиц одновременно
Не получается, ошибка:

Compile error:
Expected: end of statement.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 15:40
    #32285244
Знатный телепат
Знатный телепат
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как удалить даные из нескольких таблиц одновременно
Код гони. Целиком
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 15:53
    #32285278
PHILAT_
PHILAT_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как удалить даные из нескольких таблиц одновременно
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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 15:59
    #32285292
Артист
Артист
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как удалить даные из нескольких таблиц одновременно
не знаю как в фоксе... а в аксесе, можно например так:
.....
If MsgBox(txtMsg, vbYesNo + vbQuestion, txtTitle) = vbYes Then
sql= "Delete * from grzr1 Where rzr_lich =" & Me.txtRzr_lich
docmd.runsql sql
.....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 16:01
    #32285294
RVI
RVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как удалить даные из нескольких таблиц одновременно
Два варианта:
1. Создаешь запрос(сы) на удаление конструктором и вешаешь на
кнопку его(их) выполнение (Docmd.OpenQuery...).
2.Пишешь функцию:

Код: plaintext
1.
2.
3.
Function Test()
CurrentDb.Execute  "Delete * from tab1 where pm_id = 1 ;"
CurrentDb.Execute  "Delete * from tab2 where pm_id = 1 ;"
End Function

и тоже ее на кнопень
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 16:36
    #32285358
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как удалить даные из нескольких таблиц одновременно
я никогда не писал на FOX (сразу на Access), поэтому мне очень прикольно читать посты от PHILAT_ где он сразу в коде пишет SQL команды :)
А че там прям сразу можно так бухать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2003, 17:00
    #32285423
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как удалить даные из нескольких таблиц одновременно
Мдаа, ну я и написал.... :)
Надеюсь вы меня поняли, что я имел ввиду не БУХА'ТЬ, а бу'хать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как удалить даные из нескольких таблиц одновременно / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 375ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1679022]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 236ms
total:  375ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]