Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Cоздать таблицу в отдалённой базе данных / 3 сообщений из 3, страница 1 из 1
26.01.2017, 16:17
    #39392244
Arnoldas Bankauskas
Arnoldas Bankauskas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cоздать таблицу в отдалённой базе данных
привет, я хочу запустит макрос с Access программы "A.accdb" штоб он удалит в базе даних "B.accdb" таблицу "TableXXX" и создал тамже новую таблицу из Excel фаила "C.xlsx"

удалит я умею о неумею создать

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Sub DeleteTable()

Const remoteDatabase As String = "Z:\Swedwood KR\Other\Task system\DataBase\UVDB.accdb"
Const PW             As String = "passwords"
Const Tablename      As String = "Elephant"

Dim ws As DAO.Workspace
Dim db As DAO.Database
   
    Set ws = DBEngine.Workspaces(0)
    
        Set db = ws.OpenDatabase(remoteDatabase, False, False, "MS Access;PWD=" & PW)
    
            'Delete the table
            db.Execute "DROP TABLE [" & Tablename & "]", dbFailOnError
            
            'insert table
            'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
            
        Set db = Nothing
        
        
    Set ws = Nothing
End Sub



как эта заделать на удаленной DB:
Код: vbnet
1.
2.
3.
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
    "Elephant", "Z:\C.xlsx", True, "A1:L100"
endSub:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2017, 17:19
    #39392328
гурД
гурД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cоздать таблицу в отдалённой базе данных
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
dim ctlg as adox.catalog
dim tbl as adox.table
set ctlg = new adox.catalog
set tbl = new adox.table

ctlg.create переменнаяСоСтрокойПодключения  'см connectionstrings.com
                 ' (типа  Provider=... ; datasource=c:\папка\1.accdb   (полный путь)  )
set tbl= new table
tbl.name="TableXXX" 
tbl.columns.append "поле1",,250

ctlg.tables.append tbl


...
после всего set переменные = nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.01.2017, 10:57
    #39392817
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cоздать таблицу в отдалённой базе данных
Arnoldas Bankauskasкак эта заделать на удаленной DB:
Код: vbnet
1.
2.
3.
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
    "Elephant", "Z:\C.xlsx", True, "A1:L100"
endSub:

TransferSpreadsheet, это метод приложения и если таблица назначения еще не существует, он выполняет то же самое, что и запрос на создание таблицы.
Код: sql
1.
SELECT * INTO Elephant FROM [A1:L100] IN 'Z:\C.xlsx'[Excel 12.0 Xml;HDR=Yes];


Кстати, если файл xlsx, то то правильней acSpreadsheetTypeExcel 9
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Cоздать таблицу в отдалённой базе данных / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 351ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1612773]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 252ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 2ms
others: 13ms
total:  351ms
x
x
Закрыть


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