ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / MSAccess ADO: как написать DROP TABLE tblMain если она существует?
17 сообщений из 17, страница 1 из 1
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32845693
Иван Абрамов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван Абрамов
Гость
Как я заметил сиснтаксис MS SQL не катит.
А как надо?

Заранее спасибо.
...
Рейтинг: 0 / 0
27.12.2004, 11:50:32
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32845719
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Иван АбрамовКак я заметил сиснтаксис MS SQL не катит.
А как надо?

Заранее спасибо.
перед execute ставим
ON ERROR RESUME NEXT
или используем ADOX ,соответственно проверяя наличие таблицы перед удалением

P.S. не забудь убить внешние ключи при наличии целостности
...
Рейтинг: 0 / 0
27.12.2004, 12:00:08
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32845732
Иван Абрамов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван Абрамов
Гость
Интересует, как без использования ADOX и без ON ERROR RESUME NEXT.
...
Рейтинг: 0 / 0
27.12.2004, 12:05:14
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32845736
Иван Абрамов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван Абрамов
Гость
что то типа "IF EXISTS tblMain DROP TABLE tblMain"
Но Access IF не понимает.

не уж то нельзя?
...
Рейтинг: 0 / 0
27.12.2004, 12:06:55
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32845744
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Для проверки наличия таблицы - см. хелп по ADODB.Connection.OpenSchema

Хотя не понимаю таких людей, которым религия запрещает On Error Resume Next использовать там где это удобно.
...
Рейтинг: 0 / 0
27.12.2004, 12:08:44
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32845773
Иван Абрамов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван Абрамов
Гость
Просто с On Error Resume Next все понятно.
Но я использую данный подход в крайнем случае, и всем советую.
Иначе удобной опцией VB "Error Trapping - Break on All Errors" трудно будет пользоваться.

Как бы все-таки SQL запросом написать?
...
Рейтинг: 0 / 0
27.12.2004, 12:19:07
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32845834
aleks2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aleks2
Участник
if exists(select * FROM INFORMATION_SCHEMA.Tables WHERE TABLE_NAME="MyTable" AND TABLE_TYPE="BASE TABLE") then
DROP "MyTable"
----------------------
INFORMATION_SCHEMA она для того и придумана.
Кстати, она есть и на MS SQL...
...
Рейтинг: 0 / 0
27.12.2004, 12:47:04
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32845906
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Кстати, а в мдб она тоже есть?:)

SELECT Name FROM MSysObjects WHERE Name="DBL_ParamTest" (acc xp, 2003)
...
Рейтинг: 0 / 0
27.12.2004, 13:15:26
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32846401
aleks2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aleks2
Участник
HummerКстати, а в мдб она тоже есть?:)

SELECT Name FROM MSysObjects WHERE Name="DBL_ParamTest" (acc xp, 2003)

Есть.
...
Рейтинг: 0 / 0
27.12.2004, 16:02:54
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32846476
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
2 aleks2
А вот с этого момента поподробнее:)
Создаём пустой мдб, создаём табличку, сохраняем. Делаем запрос, копируем туда текст вашего запроса и что получаем?:)
...
Рейтинг: 0 / 0
27.12.2004, 16:34:03
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32846578
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Иван Абрамов
Просто с On Error Resume Next все понятно.
Но я использую данный подход в крайнем случае, и всем советую.

1 sql access от сиквела многим отличается
2 а чем проверка существования таблиц через ADOX плоха,например
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Function XTblTest(MyCat As ADOX.Catalog, tblName As String) As Boolean
Dim Mytable As ADOX.Table
XTblTest = False
For Each Mytable In MyCat.Tables
  If Mytable.Name = tblName Then
    XTblTest = True
    Exit For
  End If
Next Mytable
End Function
...
Рейтинг: 0 / 0
27.12.2004, 17:10:37
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32846711
Иван Абрамов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван Абрамов
Гость
1 sql access от сиквела многим отличается
согласен :)
2 а чем проверка существования таблиц через ADOX плоха,например
тем, что в данном VB6 проекте не испольуестся ADOX (нет на нее ссылки).
...
Рейтинг: 0 / 0
27.12.2004, 18:14:47
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32850338
medium
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
medium
Участник
Код: plaintext
1.
TmpSql = "if Isnull(Object_Id('tempdb..##Analyse') ,0)<> 0 drop Table ##Analyse"
CurrentProject.Connection.Execute TmpSql
...
Рейтинг: 0 / 0
29.12.2004, 17:24:04
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32850359
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
автор
'tempdb..##Analyse' Object_Id( )

похоже на sql сиквела - sql JET в mdb - вероятно не пойдет
...
Рейтинг: 0 / 0
29.12.2004, 17:32:05
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32850399
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
2 Shuhard
Object_id - встроенная функция в сиквеле:)
...
Рейтинг: 0 / 0
29.12.2004, 17:47:29
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32850626
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Hummer2 Shuhard
Object_id - встроенная функция в сиквеле:)
гы - я и намекал ,что синтаксис сиквела и в mdb не катит
...
Рейтинг: 0 / 0
29.12.2004, 21:57:28
| Ответить | Цитировать | Написать  
MSAccess ADO: как написать DROP TABLE tblMain если она существует?
    #32850669
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
все-таки отказ от ON Error Resume Next резко усложняет код.
(кстати, не важно, записаный с использованием DAO - объектов или ADO.)
В частности, при наличии связей между таблицами, удалять придется в последовательности "значала все дочерние, потом все ведущий".

"на адо" код, удаляющий пользовательские таблицы,
мог бы быть (приблизительно) таким.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
 Dim tRec As ADODB.Recordset
   
  Dim cNN As ADODB.Connection
  Dim strName As String
  Dim bDelete As Boolean
  Dim lngDeleteCounter As Long
  Dim jro As jro.JetEngine
  
  Set jro = New JetEngine
  
  Set cNN = CurrentProject.Connection
  
  
  Set tRec = cNN.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
  
  On Error Resume Next
  
  Do
      lngDeleteCounter =  0 &
     Do While Not tRec.EOF
       strName = tRec.Collect( 2 )
       bDelete = (strName Like "*Def*")
       bDelete = bDelete Or (strName Like "*Que*")
       bDelete = bDelete Or (strName Like "*Object*")
       bDelete = Not bDelete
     
       If bDelete Then
        
         cNN.Execute ("DROP Table " & strName)
         lngDeleteCounter = lngDeleteCounter +  1 &
       End If
       tRec.MoveNext
     Loop
     If lngDeleteCounter =  0  Then Exit Do
     jro.RefreshCache cNN
     Set tRec = cNN.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
   Loop While Not tRec.EOF

(с выражением лица)
...
Рейтинг: 0 / 0
30.12.2004, 00:56:50
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / MSAccess ADO: как написать DROP TABLE tblMain если она существует?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32845744&tid=1669477]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 29ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 215ms
total:  339ms
созд. / загр.: 339ms
x
x
Закрыть


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