|
|
|
удаление таблицы в акссесовской бд через vbs
|
|||
|---|---|---|---|
|
#18+
Делаю так 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. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.08.2007, 18:22 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=34762748&tid=2163495]: |
0ms |
get settings: |
11ms |
get forum list: |
18ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
172ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
56ms |
get tp. blocked users: |
2ms |
| others: | 254ms |
| total: | 533ms |
| 0 / 0 |
