(29/02/2024, 16:27)atoykan yazdı:

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

kodu tabloyu bağlı topladan çıkartır tabloya dönüştürür

(29/02/2024, 21:48)atoykan yazdı: Öncelikle her konuda bir soru iletin ki benzer konuda yardım arayanlar veya konuyu inceleyenler açısından karışmasın. Kodu

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

bu şekilde revize ederek deneyin.

Hocam kusura bakmayın kod hata veriyor acaba eksik olan nedir?