| |
|
|
| | Вот такая функция - доведена до завершения (кроме обработки ошибок) или я не ошибаюся?
VB6
Public Function FUN_DELETE_TABLE(CONNECT As Collection, STR_TABLE_NAME As String)
' удаление таблицы из базы
' CONNECT например GLB_CONNECTION_DATA_DB
Dim AdoxCat As Object
Dim adoxTbl As Object
Set AdoxCat = CreateObject("ADOX.Catalog")
Set adoxTbl = CreateObject("ADOX.Table")
Set AdoxCat.ActiveConnection = CONNECT
'Пробежим по таблицам проверяем имена всех таблиц
For Each adoxTbl In AdoxCat.Tables
If adoxTbl.Name = STR_TABLE_NAME Then ' наличие таблицы
CONNECT.Execute "DROP TABLE " & adoxTbl.Name ' Удаление таблицы
End If
Next adoxTbl
Set AdoxCat = Nothing
Set adoxTbl = Nothing
End Function
|
| |
| |
| |
|
|
| |
|
|
| | А может просто дропать таблицу, а ошибку обрабатывать, в случае отсутствия таковой таблицы?
Дабы не перебирать коллекцию таблиц.  | |
| |
| |
| |
|
|
| | И, по-моему, высокими буковками принято обзывать константы, а не переменные?
Хотя на вкус и цвет...
Я так люблю: strTableName | |
| |
| |
| |
|
|
| | А у мну как то повелось фунции и их параметры фигачить ЗАГЛАВНЮЩИМИ, даже не замечаю ...... | |
| |
| |
|
|
| |
|
|
| |
А может просто дропать таблицу, а ошибку обрабатывать, в случае отсутствия таковой таблицы?
Дабы не перебирать коллекцию таблиц
|
Блин а как узнать, что ошибка подходящего размера в цифрах...........
Щас посмотрю | |
| |
| |
|
|
надо завязывать
