SQLite - Arbeiten mit Link-Tabellen

  • VB.NET
  • .NET (FX) 4.5–4.8

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

    SQLite - Arbeiten mit Link-Tabellen

    Hallo miteinander

    ich habe 2 Tabellen, die über eine zusätzliche Link-Tabelle miteinander verknüpft werden. Beim speichern eines Filmes in die movie Tabelle sollen die Schauspieler mit richtigem Namen in der actors Tabelle gespeichert und über die actorlinkmovie Tabelle mit dem Film verknüpft werden. In der actorlinkmovie Tabelle wird der Name der Rolle gespeichert, in der actors Tabelle zusätzlich noch eine URL zu einem Bild des Schauspielers.

    movie

    VB.NET-Quellcode

    1. CREATE TABLE movie (
    2. idMovie integer,
    3. Title text
    4. );


    actors

    VB.NET-Quellcode

    1. CREATE TABLE actors (
    2. idActor integer,
    3. strActor text NOT NULL,
    4. strThumb text
    5. );


    actorlinkmovie

    VB.NET-Quellcode

    1. CREATE TABLE actorlinkmovie (
    2. idActor integer,
    3. idMovie integer,
    4. strRole text,
    5. iOrder integer
    6. );



    Das ganze läuft jetzt folgendermassen ab (idMovie ist bekannt zu diesem Zeitpunkt):
    • Bereinigung der actorlinkmovie Tabelle, indem alle bisherigen Einträge mit bestimmter idMovie gelöscht werden
    • falls beim Speichern bereits die idActor bekannt ist, dann einfach nur die strThumb aktualisieren und die actorlinkmovie Tabelle füllen
      (dies trifft zu, wenn der Film bereits gespeichert und aus vorher der Datenbank geladen wurde)
    • prüfen, ob bereits ein Schauspieler mit selbem Namen (strActor) in Tabelle actors vorhanden ist
      wenn vorhanden, strThumb aktualisieren und bestehende idActor zurückgeben
      wenn nicht vorhanden, neuen strActor mit strThumb anlegen und neue idActor zurückgeben
    • danach die actorlinkmovie Tabelle füllen


    Ich habe bereits einen funktionierenden Code, aber ich bin mir sicher, dass dieser viel zu umständlich aufgebaut ist. Es müsste doch möglich sein, mit INSERT OR REPLACE den strActor zu überprüfen und wenn nötig neu anzulegen, dabei dann gleich auch die idActor zurückzugeben.

    Hier mein Code:

    VB.NET-Quellcode

    1. 'Actors
    2. Using SQLcommand_actorlinkmovie As SQLite.SQLiteCommand = _myvideosDBConn.CreateCommand()
    3. SQLcommand_actorlinkmovie.CommandText = String.Concat("DELETE FROM actorlinkmovie WHERE idMovie = ", _movieDB.ID, ";")
    4. SQLcommand_actorlinkmovie.ExecuteNonQuery()
    5. End Using
    7. Dim iActor As Long = 0
    8. For Each actor As MediaContainers.Person In _movieDB.Movie.Actors
    9. If actor.ID > -1 Then
    10. Using SQLcommand_actor As SQLite.SQLiteCommand = _myvideosDBConn.CreateCommand()
    11. SQLcommand_actor.CommandText = String.Concat("INSERT OR REPLACE INTO actors (idActor, strActor, strThumb) VALUES (?,?,?);")
    13. Dim par_actor_idActor As SQLite.SQLiteParameter = SQLcommand_actor.Parameters.Add("par_actor_idActor", DbType.UInt64, 0, "idActor")
    14. Dim par_actor_strActor As SQLite.SQLiteParameter = SQLcommand_actor.Parameters.Add("par_actor_strActor", DbType.String, 0, "strActor")
    15. Dim par_actor_strThumb As SQLite.SQLiteParameter = SQLcommand_actor.Parameters.Add("par_actor_strThumb", DbType.String, 0, "strThumb")
    16. par_actor_idActor.Value = actor.ID
    17. par_actor_strActor.Value = actor.Name
    18. par_actor_strThumb.Value = actor.Thumb
    19. SQLcommand_actor.ExecuteNonQuery()
    20. End Using
    21. Else
    22. Using SQLcommand_actor As SQLite.SQLiteCommand = _myvideosDBConn.CreateCommand()
    23. SQLcommand_actor.CommandText = "SELECT idActor FROM actors WHERE strActor = (?);"
    25. Dim par_actor_strActor As SQLite.SQLiteParameter = SQLcommand_actor.Parameters.Add("par_actor_strActor", DbType.String, 0, "strActor")
    26. par_actor_strActor.Value = actor.Name
    28. Using SQLreader As SQLite.SQLiteDataReader = SQLcommand_actor.ExecuteReader
    29. If SQLreader.HasRows Then
    30. SQLreader.Read()
    31. actor.ID = Convert.ToInt64(SQLreader("idActor"))
    32. End If
    33. End Using
    34. End Using
    36. Using SQLcommand_actor As SQLite.SQLiteCommand = _myvideosDBConn.CreateCommand()
    37. If actor.ID > -1 Then
    38. SQLcommand_actor.CommandText = String.Concat("INSERT OR REPLACE INTO actors (idActor, strActor, strThumb) VALUES (?,?,?);")
    40. Dim par_actor_idActor As SQLite.SQLiteParameter = SQLcommand_actor.Parameters.Add("par_actor_idActor", DbType.UInt64, 0, "idActor")
    41. Dim par_actor_strActor As SQLite.SQLiteParameter = SQLcommand_actor.Parameters.Add("par_actor_strActor", DbType.String, 0, "strActor")
    42. Dim par_actor_strThumb As SQLite.SQLiteParameter = SQLcommand_actor.Parameters.Add("par_actor_strThumb", DbType.String, 0, "strThumb")
    43. par_actor_idActor.Value = actor.ID
    44. par_actor_strActor.Value = actor.Name
    45. par_actor_strThumb.Value = actor.Thumb
    46. SQLcommand_actor.ExecuteNonQuery()
    47. Else
    48. SQLcommand_actor.CommandText = String.Concat("INSERT INTO actors (", _
    49. "strActor, strThumb) VALUES (?,?); SELECT LAST_INSERT_ROWID() FROM actors;")
    50. Dim par_actor_strActor As SQLite.SQLiteParameter = SQLcommand_actor.Parameters.Add("par_actor_strActor", DbType.String, 0, "strActor")
    51. Dim par_actor_strThumb As SQLite.SQLiteParameter = SQLcommand_actor.Parameters.Add("par_actor_strThumb", DbType.String, 0, "strThumb")
    52. par_actor_strActor.Value = actor.Name
    53. par_actor_strThumb.Value = actor.Thumb
    55. actor.ID = Convert.ToInt64(SQLcommand_actor.ExecuteScalar)
    56. End If
    57. End Using
    58. End If
    60. Using SQLcommand_actorlinkmovie As SQLite.SQLiteCommand = _myvideosDBConn.CreateCommand()
    61. SQLcommand_actorlinkmovie.CommandText = String.Concat("INSERT OR REPLACE INTO actorlinkmovie (idActor, idMovie, strRole, iOrder) VALUES (?,?,?,?);")
    62. Dim par_actorlinkmovie_idActor As SQLite.SQLiteParameter = SQLcommand_actorlinkmovie.Parameters.Add("par_actorlinkepisode_idActor", DbType.UInt64, 0, "idActor")
    63. Dim par_actorlinkmovie_idMovie As SQLite.SQLiteParameter = SQLcommand_actorlinkmovie.Parameters.Add("par_actorlinkepisode_idMovie", DbType.UInt64, 0, "idMovie")
    64. Dim par_actorlinkmovie_strRole As SQLite.SQLiteParameter = SQLcommand_actorlinkmovie.Parameters.Add("par_actorlinkepisode_strRole", DbType.String, 0, "strRole")
    65. Dim par_actorlinkmovie_iOrder As SQLite.SQLiteParameter = SQLcommand_actorlinkmovie.Parameters.Add("par_actorlinkepisode_iOrder", DbType.UInt64, 0, "iOrder")
    66. par_actorlinkmovie_idActor.Value = actor.ID
    67. par_actorlinkmovie_idMovie.Value = _movieDB.ID
    68. par_actorlinkmovie_strRole.Value = actor.Role
    69. par_actorlinkmovie_iOrder.Value = iActor
    70. SQLcommand_actorlinkmovie.ExecuteNonQuery()
    71. iActor += 1
    72. End Using
    73. Next

    Ohne das jetzt getestet zu haben:

    VB.NET-Quellcode

    1. 'Actors
    2. Using SQLcommand_actorlinkmovie As SQLite.SQLiteCommand = _myvideosDBConn.CreateCommand()
    3. SQLcommand_actorlinkmovie.CommandText = String.Concat("DELETE FROM actorlinkmovie WHERE idMovie = ", _movieDB.ID, ";")
    4. SQLcommand_actorlinkmovie.ExecuteNonQuery()
    5. End Using
    7. Dim iActor As Long = 0
    8. For Each actor As MediaContainers.Person In _movieDB.Movie.Actors
    9. Using SQLcommand_actor As SQLite.SQLiteCommand = _myvideosDBConn.CreateCommand()
    10. SQLcommand_actor.CommandText = String.Concat("UPDATE actors SET strThumb = :strThumb WHERE strActor = :strActor; INSERT OR IGNORE INTO actors (strActor, strThumb) VALUES (:strActor, :strThumb); SELECT idActor FROM actors WHERE strActor = :strActor;")
    11. SQLcommand_actor.Parameters.Add("strActor", DbType.String).Value = actor.Name
    12. SQLcommand_actor.Parameters.Add("strThumb", DbType.String).Value = actor.Thumb
    13. actor.ID = Convert.ToInt64(SQLcommand_actor.ExecuteScalar)
    14. End Using
    15. Using SQLcommand_actorlinkmovie As SQLite.SQLiteCommand = _myvideosDBConn.CreateCommand()
    16. SQLcommand_actorlinkmovie.CommandText = String.Concat("INSERT OR REPLACE INTO actorlinkmovie (idActor, idMovie, strRole, iOrder) VALUES (:idActor, :idMovie, :strRole, :iOrder);")
    17. SQLcommand_actorlinkmovie.Parameters.Add("idActor", DbType.UInt64).Value = actor.ID
    18. SQLcommand_actorlinkmovie.Parameters.Add("idMovie", DbType.UInt64).Value = _movieDB.ID
    19. SQLcommand_actorlinkmovie.Parameters.Add("strRole", DbType.String).Value = actor.Role
    20. SQLcommand_actorlinkmovie.Parameters.Add("iOrder", DbType.UInt64).Value = iActor
    21. SQLcommand_actorlinkmovie.ExecuteNonQuery()
    22. iActor += 1
    23. End Using
    24. Next


    Gruss vom neuen Nachbarn ;)

Facebook
Telefonspende