Kod:
Private Function ConvertLinkedTableToTable(ByVal tableName As String)
Dim dbEngine As New DBEngine() ' DAO DBEngine usage
Dim db As Database = dbEngine.OpenDatabase(Application.StartupPath & "\DataBase.mdb ", False, False, ";PWD=12345") ' 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(tableName, dbAttachSavePWD, 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
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
Dim tableName As String = "tb_personel_bilgileri" ' Bağlı tablo adını buraya girin
ConvertLinkedTableToTable(tableName)
End Sub