Kod:
Private Function ConvertLinkedTableToTable(connection As OleDbConnection, tableName As String) As Table
Dim dbEngine As New DBEngine() ' DAO DBEngine usage
Dim db As Database = dbEngine.OpenDatabase(connection.DataSource) ' DB’yi aç
Dim linkedTable As TableDef = Nothing
For Each tableDef As TableDef In db.TableDefs
If tableDef.Name = tableName Then
linkedTable = tableDef
Exit For
End If
Next
If linkedTable IsNot Nothing Then
Dim linkedTableDef As TableDef = db.CreateTableDef(linkedTable.Name, linkedTable.SourceTableName, linkedTable.Connect) ' Bağlantılı tablonun tanımını al
db.TableDefs.Append(linkedTableDef) ' Yeni tablo tanımını DB’ye ekleme
db.TableDefs.Refresh() ' TableDefs’i yenile
db.TableDefs.Delete(linkedTable.Name) ' (İsteğe bağlı) Bağlantılı tabloyu sil
End If
db.Close()
Return db.TableDefs(tableName)
End Function