Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / удаление таблицы в акссесовской бд через vbs / 2 сообщений из 2, страница 1 из 1
29.08.2007, 18:22
    #34762748
Денис24
Денис24
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
удаление таблицы в акссесовской бд через vbs
Делаю так
http://]
Dim DB
Dim tb
Set DB = OpenDatabase("c:\web.mdb", False)
For Each tb In DB.TableDefs
If tb.NAME = "punkty" Then
DB.TableDefs.Delete "punkty"
Exit For
End If
Next tb
''а тут я импортирую
DoCmd.TransferDatabase acImport, "dBase IV", "p:\pay\", acTable, "punkty.dbf", "punkty111"
DB.Close

Ругается на next tb.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2007, 23:08
    #34763133
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
удаление таблицы в акссесовской бд через vbs
У vbs упрощеный, по сравнению с VB, синтаксис. VBS не понимает параметра для next. Пиши просто next.
Код: plaintext
1.
2.
For i= 1  to  10 
    ...
next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / удаление таблицы в акссесовской бд через vbs / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 458ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2163495]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 143ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 230ms
total:  458ms
x
x
Закрыть


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