|
|
| Тема |
 MSAcces & Relink na tables... |
|
| Автор | dunamis (Нерегистриран) | |
| Публикувано | 16.06.03 00:56 |
|
|
|
здравейте, имам един малък проблем със ДАО обекта в Аксес база данни. Свалих си Девелоперс сълюшънс от МСДН и там видях, че има начин да се направи линкване не таблици от една ДБ към друга ДБ чрез ВБ функции. Но проблема е че нямам регистриран обект ДАО и не мога да намеря в примера как се регистрира.
Някой ако може да ми каже как става тожа сте съм много благодарен 
Или пук ниакакъв друг начин да направя релинк на таблиците от другата ДБ.....
Това е функцията кояато се опитвам да ползжам:
Public Function RefreshLinks(strFileName As String) As Boolean
' Refresh links to the supplied database. Return True if successful.
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
' Loop through all tables in the database.
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
' If the table has a connect string, it's a linked table.
If Len(tdf.Connect) > 0 Then
tdf.Connect = ";DATABASE=" & strFileName
Err = 0
On Error Resume Next
tdf.RefreshLink ' Relink the table.
If Err <> 0 Then
RefreshLinks = False
Exit Function
End If
End If
Next tdf
RefreshLinks = True ' Relinking complete.
End Function
и ми два грешка че обекта ДАО не е регистриран !?!?! И в инерес на истината никаде не го регистрирам. но не мога да откриа как го регистрират в примера.
| |
| |
| 
|
|
