2:sta eri Access 2000 kannasta pitäisi tehdä
kyselyjä. Yhdistin kannat linkittämällä toisen
taulut toiseen jotta voin samalla sql-kyselyllä
niitä käsitellä.
Tämä toimi ihan ok, mutta linkit on asetettu
kiinteästi, eli jos ohjelma siirretään toiseen
ympäristöön (asennus) niin homma ei enää
toimikaan.
Nyt pitäisi saada VB6:sella asetettua linkki
uudestaan tyyliin app.path & "\kanta.mdb"
tai löytää joku muu keino jolla vastaavan voi
toteuttaa.
Onko ehdotuksia?
kyselyjä. Yhdistin kannat linkittämällä toisen
taulut toiseen jotta voin samalla sql-kyselyllä
niitä käsitellä.
Tämä toimi ihan ok, mutta linkit on asetettu
kiinteästi, eli jos ohjelma siirretään toiseen
ympäristöön (asennus) niin homma ei enää
toimikaan.
Nyt pitäisi saada VB6:sella asetettua linkki
uudestaan tyyliin app.path & "\kanta.mdb"
tai löytää joku muu keino jolla vastaavan voi
toteuttaa.
Onko ehdotuksia?
Vastaukset 2
Vanhimmat
siis "\kanta.mdb"
Vastaus itselleni (malliesimerkki):
Sub RefreshLinks(strDBLinkFrom As String, _
strDBLinkSource As String)
Dim catDB As ADOX.Catalog
Dim tblLink As ADOX.Table
Set catDB = New ADOX.Catalog
' Open a catalog on the database in which to
refresh
links.
catDB.ActiveConnection
= "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDBLinkFrom
For Each tblLink In catDB.Tables
' Check to make sure table is a linked
table.
If tblLink.Type = "LINK" Then
tblLink.Properties("Jet OLEDB:Link
Datasource") =
strDBLinkSource
tblLink.Properties("Jet OLEDB:Create
Link") = True
End If
Next
catDB = Nothing
End Sub