vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Mit Eingabemaske mehrere Datenbanktabellen füllen(Primärschlüsselprobleme) 
Autor: StereotypMonoton
Datum: 10.09.17 16:59

Hallo Zusammen,

bin gerade dabei ein GUI für eine Mitarbeiterdatenbank zu erstellen,..

Die Datenbank(Mitarbeiter) liegt auf einem SQLEXPRESS Server, besteht aus den Tabellen "Personen"(PersonenID,PersonenTypID, Anrede, Vorname, Nachname), Adressen(AdressID, PersonenID, Straße, Hausnummer, Plz, Ort) und PersonenTyp(PersonenTypID, PersonenTyp).

Dazu gibts ne Form in welcher neue Daten eingetragen werden können. Mein Problem ist, dass die Daten alle schön brav in die Tabelle gespeichert werden(Button1_Click) leider aber die nötigen Primärschlüssel zwischen den Tabellen nicht gesetzt werden. Wie bekomm ich auch die Schlüssel mit gespeichert? So dass die Datensätze auch wirklich miteinander verbunden sind?

Imports System.Data.SqlClient
 
 
Public Class Form1
 
    Dim Connection As New SqlConnection("Server = DESKTOP\SQLEXPRESS; Database" & _
      "= Mitarbeiter; Integrated Security = true")
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "MitarbeiterDataSet1.PersonenTyp". Sie können sie bei Bedarf 
        ' verschieben oder entfernen.
        Me.PersonenTypTableAdapter.Fill(Me.MitarbeiterDataSet1.PersonenTyp)
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "MitarbeiterDataSet.Personen". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.PersonenTableAdapter.Fill(Me.MitarbeiterDataSet.Personen)
 
    End Sub
 
 
 
    Public Sub ExecuteQuery(query1 As String, query2 As String, query3 As _
      String)
 
        Dim Command1 As New SqlCommand(query1, Connection)
        Dim Command2 As New SqlCommand(query1, Connection)
        Dim Command3 As New SqlCommand(query1, Connection)
 
        Connection.Open()
 
        Command1.ExecuteNonQuery()
        Command2.ExecuteNonQuery()
        Command3.ExecuteNonQuery()
 
        Connection.Close()
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        Dim insertQueryPersonen As String = "INSERT INTO Personen (Anrede," & _
          "Vorname, Nachname) Values('" & cbAnrede.Text & "','" & _
          tbVorname.Text & "','" & tbNachname.Text & "')"
        Dim insertQueryAdressen As String = "INSERT INTO Personen (Straße," & _
        "HausNr, PLZ, Ort) Values('" & tbStrasse.Text & "','" & tbHNr.Text & _
        "','" & tbPLZ.Text & "','" & tbOrt.Text & "')"
        Dim insertQueryPersonenTyp As String = "INSERT INTO PersonenTyp (" & _
        "PersonenTyp) Values('" & cbAnrede.Text & "','" & tbVorname.Text & _
        "','" & tbNachname.Text & "')"
 
 
        ExecuteQuery(insertQueryPersonen, insertQueryPersonenTyp, _
          insertQueryAdressen)
 
    End Sub
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Mit Eingabemaske mehrere Datenbanktabellen füllen(Primärschl...935StereotypMonoton10.09.17 16:59

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel