ForeignKeyConstraint FK_

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

Es gibt 81 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    ​Die Kundennummer gibts ja nicht umsonst....

    Die Kundennummer ist dafür nicht ausschlaggebend. Wenn ich z.B. zwei Herbert Müller in der Datenbank habe, ist das ausschlaggebende zum Auseinanderhalten einzig und alleine deren PK.
    Denn obwohl die Kundennummern mit einem Random erstellt werden, könnte dieses Random bei beiden Herbert Müller -> HM-xxxxx theoretisch zwei mal dieselbe Zahl generieren.

    Wenn sich an deinen letzten Code (deine Klick_Event's und extra Sub's die du geschrieben hast) nichts geändert hat ...
    ​Jetzt muss ich zuerst einen Weg finden das z.B. meine DummiUser nicht 2mal angelegt werden , also eine Prüfung.

    Dann werden die beiden Dummy-User doch nur angelegt wenn du auf einen deiner beiden 'DummyKunden' Button klickst?

    Fehler bei Löschung

    Hallo

    Mit diesem Code wollte ich meine Tabellen leeren und den PK Increment wieder auf 0 setzen. Bekomme Folgenden Fehler. Ratlos bin.
    Habe zum testen eine Neue Tabelle angelegt, weil die anderen fast alle einen PK & FK haben.


    VB.NET-Quellcode

    1. ​
    2. Private Sub DatenbankLeerenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenbankLeerenToolStripMenuItem.Click
    3. Dim verbindung As System.Data.SqlServerCe.SqlCeConnection _
    4. = New SqlCeConnection("datasource=B:\Dokumente\DB_1.sdf")
    5. Try
    6. verbindung.Open()
    7. Dim sql As String = "TRUNCATE TABLE Text"
    8. Dim cmd As SqlCeCommand = New SqlCeCommand(sql, verbindung)
    9. cmd.ExecuteNonQuery()
    10. verbindung.Close()
    11. Catch ex As Exception
    12. MessageBox.Show(ex.Message)
    13. End Try
    14. End Sub
    Bilder

    • token-1.jpg

      51,63 kB, 496×169, 110 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    ErfinderDesRades schrieb:

    Dann nochmal die SqlCe-Doku konsultieren.


    Nach langem googlen usw. wird das wohl nicht unterstützt.
    Was ich aber noch immer nicht gefunden habe, wie kann ich nach dem löschen der Test-Datensätze nun den Increment wieder bei 1 beginnen lassen.

    Ideen?

    DANKE
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Nach langem googlen usw.
    Bei mir ging das ganz flott, ich hab nur eingegeben: "SqlCe: truncate table" - da fanden sich schon einschlägige Treffer auf Stackoverflow

    Amelie schrieb:

    wie kann ich nach dem löschen der Test-Datensätze nun den Increment wieder bei 1 beginnen lassen.

    Ideen?
    weiter googeln: "SqlCe: set Identity increment seed"

    Oder nach einer richtigen SqlCe-Sql-Dokumentation suchen.
    Ich geh mal davon aus, dass es auch zum SqlCe-Sql-Dialekt irgendwo eine veröffentlichte Referenz-Dokumentation gibt.

    Also ich habe es nun herraus gefunden und ein Workaround gemacht um meine Tabellen zurückzusetzen.
    Die andere SQL-Befehle kennt SQLCe nicht.
    Und warum das nur mit der kleinen Verzögerung klappt weiß ich nicht, ist aber auch nicht tragisch.

    VB.NET-Quellcode

    1. ​
    2. Try
    3. GetSQL("ALTER TABLE Adress ALTER COLUMN ID IDENTITY (1,1)")
    4. Threading.Thread.Sleep(100)
    5. GetSQL("ALTER TABLE Angebote ALTER COLUMN ID IDENTITY (1,1)")
    6. Threading.Thread.Sleep(100)
    7. GetSQL("ALTER TABLE KUAD ALTER COLUMN ID IDENTITY (1,1)")
    8. Threading.Thread.Sleep(100)
    9. GetSQL("ALTER TABLE KUAG ALTER COLUMN ID IDENTITY (1,1)")
    10. Threading.Thread.Sleep(100)
    11. GetSQL("ALTER TABLE Kunden ALTER COLUMN ID IDENTITY (1,1)")
    12. Threading.Thread.Sleep(100)
    13. GetSQL("ALTER TABLE KURC ALTER COLUMN ID IDENTITY (1,1)")
    14. Catch ex As Exception
    15. MessageBox.Show(ex.Message)
    16. End Try
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Hilfe für eine Abfrage

    Hey

    Ich bräuchte mal Hilfe wie ich eine Abfrage konstruiere.
    Folgendes ( siehe Bilder ) wenn ein Kunde angelegt wird. Er bekommt ID und KundenNr usw.
    Jetzt klicke ich auf das DGV und es öffnet sich ein Mailformular. Mailaddy wird mitgeschickt.
    Nach absenden der email soll nun das ganze " upgedatet " werden, und zwar dass das Feld erledigt auf True gesetzt wird.

    Ich tue mich gerade schwer mit den Hilfstabellen usw. Bräuchte mal einen Ansatz wie ich nun was mache.
    Eine Funktion welche aus dem eMail-Formular aufgerufen wird? Aber wie?
    Bilder

    • auftrag true.jpg

      280,1 kB, 972×558, 103 mal angesehen

    • auftrag true2.jpg

      189,16 kB, 1.050×551, 105 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Eine Funktion welche aus dem eMail-Formular aufgerufen wird? Aber wie?


    Das email-Formular bekommt doch einen Datensatz übergeben.
    von diesem Datensatz ausgehend kann es doch den zugehörigen Angebot-Datensatz abrufen, und auf Erledigt setzen.

    Wenn richtig gemacht, ist da keine Extra-Funktion für erforderlich.

    ErfinderDesRades schrieb:



    Wenn richtig gemacht, ist da keine Extra-Funktion für erforderlich.


    Naja eigendlich mache ich das so: War für mich erstmal der einfachste Weg aber jetzt merke ich das es wohl nicht so ist.


    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Amelie“ ()

    DataGridView Umbenenn

    Ich möchte die Zellenüberschriften ändern aber das klappt nicht.
    Fehler : Kann Datengebundenes...

    Was kann ich tun?

    DataGrid befüllen:

    VB.NET-Quellcode

    1. ​
    2. Public Sub GetSQL(ByVal SQL As String)
    3. Try
    4. Dim conn As New SqlCeConnection
    5. Dim cmd As New SqlCeCommand
    6. conn.ConnectionString = constring
    7. cmd.Connection = conn
    8. cmd.CommandText = SQL
    9. Dim da As New SqlCeDataAdapter(cmd)
    10. Dim dt As New DataTable
    11. conn.Open()
    12. da.Fill(dt)
    13. conn.Close()
    14. frm_main.DGV_Main.DataSource = dt
    15. Catch ex As Exception
    16. MessageBox.Show(ex.Message)
    17. End Try
    18. End Sub


    und das umbenen

    VB.NET-Quellcode

    1. ​
    2. Public Sub dgvheader()
    3. GetSQL("Select KdNr, KdVorname, KdNachname, KdeMail, KdTel from Kunden")
    4. With DGV_Main
    5. .ColumnCount = 5
    6. .Columns(0).HeaderText = "KundenNr"
    7. .Columns(1).HeaderText = "Vorname"
    8. .Columns(2).HeaderText = "Nachname"
    9. .Columns(3).HeaderText = "eMail"
    10. .Columns(4).HeaderText = "Telefon"
    11. End With
    12. End Sub
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    lässt sich leider nicht so ohne weiteres sagen, da der fehler nicht ganz ersichtlich ist, daher mal ins blaue. dgvheader sieht aber ok aus, auch wenn ich nicht weiß, warum du .columncount = 5 machst. die select liefert doch nur 5 spalten?

    1. stimmt der connectionstring?
    2. ist die db überhaupt dort vorhanden?


    Eine grundsätzliche Frage: Warum nutzt du SQLCE? Bei kleinen Anwendungen würde ich dir eher zu SQLite raten.
    Ich glaube CE wird auch gar nicht mehr weiterentwickelt, oder? Vielleicht auch mit dem Gedanken einer SQLServer-Express-Instanz spielen. (Aber nur so am Rand)

    rrobbyy schrieb:

    lässt sich leider nicht so ohne weiteres sagen, da der fehler nicht ganz ersichtlich ist


    Hallo

    Also zum einen habe ich den Fehler gefunden.
    Das .ColumCount 5 war die Ursache.
    Habe es nun so gelöst, was wunderbar klappt.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. conn.Open()
    3. dt.Clear()
    4. da.Fill(dt)
    5. frm_main.DGV_Main.DataSource = dt
    6. conn.Close()
    7. headlines(header) '<=== Hier wechsel ich nun per Select Case die Headlines.


    VB.NET-Quellcode

    1. ​
    2. 'Main Datagrid Überschriften
    3. Public Sub headlines(ByVal headers As String)
    4. Select Case headers
    5. Case "default"
    6. With frm_main.DGV_Main
    7. .Columns(0).HeaderText = "KundenNr"
    8. .Columns(1).HeaderText = "Vorname"
    9. .Columns(2).HeaderText = "Nachname"
    10. .Columns(3).HeaderText = "eMail"
    11. .Columns(4).HeaderText = "Telefon"
    12. End With
    13. Case "angebote"
    14. With frm_main.DGV_Main
    15. .Columns(0).HeaderText = "KundenNr"
    16. .Columns(1).HeaderText = "Vorname"
    17. .Columns(2).HeaderText = "Nachname"
    18. .Columns(3).HeaderText = "Datum"
    19. .Columns(4).HeaderText = "erledigt"
    20. End With
    21. Case "kundelong"
    22. 'ToDo
    23. '
    24. '
    25. End Select
    26. End Sub


    Aufruf:

    VB.NET-Quellcode

    1. ​
    2. Public Sub dgvheader()
    3. GetSQL("Select KdNr, KdVorname, KdNachname, KdeMail, KdTel from Kunden")
    4. headlines("angebote")
    5. 'ToDo Weitere abfragen welche per Button geschickt werden
    6. End Sub




    SQLCe oder SQLite?
    Nun ich habe das VS2012 und da ist das SQLCe mit drin und ich traue mich echt nicht hier am System noch etwas zu ändern.
    Beim letzten mal ging das schon in die Hose. Window7-64Bit habe mal mit VS 2017 versucht bekomme aber ständige Abstürze. ;(
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    SQL Update ???

    Hallo
    Beim versuche meine Tabelle upzudaten bekomme ich diesen Fehler. Hab nun schon etliches was ich bei goo&Co gefunden habe ausgetestet.

    Tabelle ist da, Spalte ist auch da und die Variable ist auch da und trotzdem kommt der Fehler mit der Spalte. Hmmmm????

    SQL-Abfrage

    1. ​
    2. SetSQL2("UPDATE Angebote SET erledigt = '@True' WHERE KUAG.ID_Angebote = '" & angebotid & "'")
    Bilder

    • sqlupdate.jpg

      263,12 kB, 1.085×579, 99 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @ErfinderDesRades
    Ja die Strucktur ist links zu sehen.


    Keine Hilfe????
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Amelie“ ()