LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 06 февраля 2005
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Создать п...
 Тема: Создать программно линк на таблицу моей БД
 
 15.06.2007 21:02:47
Alx1
1 сообщения


Тема: Создать программно линк на таблицу моей БД
Уважаемые, как сделать сабж?
Про docmd.transferdatabase acLink знаю, но он создаст мне линк на чужую таблицу в моей базе. Как сделать обратное? То есть у меня есть таблица, я хочу создать программно линк в другой базе на мою таблицу.


P.S. Связанные таблицы Access
Автор: Alx от 29.07.2002 16:30:29 Источник ...
 15.06.2007 21:02:48
beks
21 сообщения


RE: Создать программно линк на таблицу моей БД
Надо создать линк в базе на саму себя и экспортировать его

Public Function CreateLink(, TableName As String)
Dim str1 As String, dbs As Database, tdf As TableDef
'Предполагается, что (TableName & 01) не существует в базе данных
Set dbs = CurrentDb
str1 = Left(dbs.Name, InStr(1, dbs.Name, Dir(dbs.Name, vbDirectory), vbTextCompare) - 1)
Set tdf = dbs.CreateTableDef(TableName & "01")
tdf.Connect = ";database=" & dbs.Name
tdf.SourceTableName = TableName
dbs.TableDefs.Append tdf
DoCmd.TransferDatabase acExport, "Microsoft Access", str1 & "\db1.mdb", _
acTable, TableName & "01", TableName & "01"
DoCmd.DeleteObject acTable, TableName & "01"
End Function


P.S. Связанные таблицы Access
Автор: BS от 08.08.2002 13:46:02 Источник ...
 15.06.2007 21:02:48
beks
21 сообщения


RE: Создать программно линк на таблицу моей БД
Надо создать линк в базе на саму себя и экспортировать его

Public Function CreateLink(, TableName As String)
Dim str1 As String, dbs As Database, tdf As TableDef
'Предполагается, что (TableName & 01) не существует в базе данных
Set dbs = CurrentDb
str1 = Left(dbs.Name, InStr(1, dbs.Name, Dir(dbs.Name, vbDirectory), vbTextCompare) - 1)
Set tdf = dbs.CreateTableDef(TableName & "01")
tdf.Connect = ";database=" & dbs.Name
tdf.SourceTableName = TableName
dbs.TableDefs.Append tdf
DoCmd.TransferDatabase acExport, "Microsoft Access", str1 & "\db1.mdb", _
acTable, TableName & "01", TableName & "01"
DoCmd.DeleteObject acTable, TableName & "01"
End Function


P.S. Связанные таблицы Access
Автор: BS от 08.08.2002 13:46:54 Источник ...
 Страница 1 из 1
СледующийПредыдущийНет оценки
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Создать п...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke