update Tabellen ausschliessen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von fichz.

    update Tabellen ausschliessen

    Hallo,
    ich versuche in meiner Datenbank Daten in allen Tabellen zu ändern, jedoch möchte ich eine Tabelle ausschliessen. Leider spricht die If-Anweisung nicht an.


    VB.NET-Quellcode

    1. Con(ConNummer).Open()
    2. Dim _Tabelle As DataTable = Con(ConNummer).GetSchema("Tables")
    4. For Each row As DataRow In _Tabelle.Rows
    6. If row("TABLE_NAME").ToString <> "ARBEITSDATEN" Then ' Diese Abfrage wird nicht beachtet !!!
    7. Cmd(ConNummer).CommandText = "update " & row("TABLE_NAME").ToString & " set " & _
    8. "Ident_Nummer = " & IdentNummer & ", " & _
    9. "DoppelIndex = " & CBool(DoppelIndex) & ", " & _
    10. "Satz_Index = '" & CStr(Index) & "' " & _
    11. "where Ident_Nummer = " & IdentNummer
    13. Cmd(ConNummer).ExecuteNonQuery()
    14. End If
    17. Next
    18. Con(ConNummer).Close()


    Habe die Lösung gefunden

    VB.NET-Quellcode

    1. Dim _Tabelle As DataTable = Con(ConNummer).GetSchema("Tables")
    3. For Each row As DataRow In _Tabelle.Rows
    6. If row("TABLE_TYPE").ToString = "TABLE" = True Then
    7. If row("TABLE_NAME").ToString <> Tabelle_CBS And row("TABLE_NAME").ToString <> Tabelle_CDS Then
    9. Cmd(ConNummer).CommandText = "update " & row("TABLE_NAME").ToString & " set " & _
    10. "Ident_Nummer = " & IdentNummer & ", " & _
    11. "DoppelIndex = " & CBool(DoppelIndex) & ", " & _
    12. "Satz_Index = '" & CStr(Index) & "' " & _
    13. "where Ident_Nummer = " & IdentNummer
    15. Cmd(ConNummer).ExecuteNonQuery()
    16. End If
    18. End If
    21. Next
    22. Con(ConNummer).Close()
    Gruß Markus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()