| |
|
|
| | Как програмно можно подключить все таблицы из указанной базы
не зная сколько их там и не зная их названий.
Может у кого есть готовое решение? | |
| |
| |
| |
|
|
| | та думаю и здесь на форуме есть куча кода.... | |
| |
| |
| |
|
|
| | Я поспрошал поиска дык он мне не чё не дал.
Я спросил у Ясеня...
Я спросил у .......,
А у Вас Силыч нет под рукою кода подходящего?
Я нашёл только с передачей названия таблицы, а мне названия не важны, что там есть - всё подключить. | |
| |
| |
| |
|
|
| | Я нашёл только с передачей названия таблицы
ну так... осталось только пробежатьтся по коллекции Tabledefs... или отобрать таблицы из системной таблицы
http://hiprog.com/index.php?option=com_content&task=view&id=297 | |
| |
| |
|
|
| |
|
|
| | готовое решение есть в Борее
здесь тоже есть
http://hiprog.com/index.php?option=com_content&task=view&id=251661571&Itemid=35
и можно еще вот это:
http://hiprog.com/index.php?option=com_content&task=view&id=416 | |
| |
| |
| |
|
|
| | Спасибо Олег,
Какой критерий поиска ты задавал?
Я -=подключение=- | |
| |
| |
| |
|
|
| | а ты где искал? на форуме? Я на сайте... к сожалению поиски раздельны
вот это: http://hiprog.com/index.php?option=com_content&task=view&id=416
нашел по поиску "подключение"
вот это: http://hiprog.com/index.php?option=com_content&task=view&id=251661571&Itemid=35
потому что помню (сам добавлял  )
http://hiprog.com/forum/read.php?id_forum=1&id_theme=2089&page=12 | |
| |
| |
|
|
| |
|
|
| | Вот что получилось....
Вызов присоединения=================
Call LinkTabVse(put_TBL1 & "Spravki.mdb")
|
| |
| |
| |
| |
|
|
| | Сами функции....
Public Sub LinkTabVse(PathToBase As String)
' ========= Прикрепляет все с помощью Public Sub LinkTab ========================
Dim DRDB As DAO.Database
Dim tdf As DAO.TableDef
Soobchitb = ""
On Error Resume Next
If Dir(PathToBase) <> "" Then
Set DRDB = OpenDatabase(PathToBase)
For Each tdf In DRDB.TableDefs
Call LinkTab(PathToBase, tdf.NAME)
Next tdf
Else
Soobchitb = Soobchitb & vbCrLf & "Путь не найден " & PathToBase
End If
DRDB.Close
Set DRDB = Nothing
End Sub
Public Sub LinkTab(Path_Base As String, Tabl_Name As String)
'=============Прикрепляет из указанной базы указану таблицу ================
If Left(Tabl_Name, 4) = "Msys" Then Exit Sub
Dim db As DAO.Database
Dim tdfs As DAO.TableDef
Set db = CurrentDb
On Error Resume Next
db.Execute "DROP TABLE " & Tabl_Name
Set tdfs = db.CreateTableDef(Tabl_Name)
tdfs.Connect = ";DATABASE=" & Path_Base
tdfs.SourceTableName = Tabl_Name
db.TableDefs.Append tdfs
dbs.Close
Set dbs = Nothing
End Sub
|
| |
| |
| |
