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 |