Hi,
anstelle der Verkettung mit "werte" sollten besser zur Verhinderung von Injection und weiteren Fehlern Parameter genutzt werden.
Wenn es sich bei Student_id um einen Autowert handelt, kann dieser direkt nach dem Insert mit der gleichen SQL Anweisung zurück gelesen werden.
Hier mal eine Konsolendemo:
Imports System.Data.SqlClient
Module Module1
Sub Main()
Try
With (New Demo)
.CreateDataTables()
.SaveData()
.Test()
End With
Catch ex As Exception
Console.WriteLine(ex.ToString)
End Try
Console.WriteLine("Continue enter key")
Console.ReadKey()
End Sub
Friend Class Demo
''' <summary>
''' Delete old Student and Fachgebiet
''' Create New Student and Fachgebiet
''' </summary>
Friend Sub CreateDataTables()
Using cn As New SqlConnection(My.Settings.cnSQL)
cn.Open()
Using cmd As New SqlCommand("", cn)
' Delete old Tables, ignore error if table not exists
cmd.CommandText = "DROP Table [Student]"
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
End Try
cmd.CommandText = "DROP Table [Fachgebiet]"
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
End Try
' create new tables
cmd.CommandText = "CREATE Table [Student]([Student_id] int Identity, [Name] nvarchar(50), CONSTRAINT [PK_Student] PRIMARY KEY ([Student_id]))"
cmd.ExecuteNonQuery()
cmd.CommandText = "CREATE Table [Fachgebiet]([Fach_id] int Identity, [Student_id] int, [Note] int, CONSTRAINT [PK_Fach] PRIMARY KEY ([Fach_id]))"
cmd.ExecuteNonQuery()
End Using
End Using
End Sub
''' <summary>
''' Load jpg and save inti Table1
''' </summary>
Friend Sub SaveData()
Using cn As New SqlConnection(My.Settings.cnSQL)
cn.Open()
' cmd1 für Master-Datensatz (Student)
Using cmd1 As New SqlCommand("", cn)
cmd1.CommandText = "INSERT INTO dbo.Student (Name) Values (@Name); SELECT Scope_Identity()"
cmd1.Parameters.Add("@Name", SqlDbType.NVarChar)
' cmd2 für Child-Datensatz (Fachgebiet)
Using cmd2 As New SqlCommand("INSERT INTO dbo.Fachgebiet (Student_id, Note) Values (@Student_id, @Note)", cn)
cmd2.Parameters.Add("@Student_id", SqlDbType.Int)
cmd2.Parameters.Add("@Note", SqlDbType.Int)
' Schleife für das Hinzufügen von mehreren Master-Datensätzen
For i = 1 To 5
cmd1.Parameters("@Name").Value = $"Name {i}"
Dim id = cmd1.ExecuteScalar
' dazu einen Child-Datensatz hinzufügen
cmd2.Parameters("@Student_id").Value = id
cmd2.Parameters("@Note").Value = i
cmd2.ExecuteNonQuery()
Next
End Using
End Using
End Using
End Sub
''' <summary>
''' Test, display inserted records
''' </summary>
Friend Sub Test()
Using cn As New SqlConnection(My.Settings.cnSQL)
cn.Open()
Using cmd As New SqlCommand("SELECT Student.Name, Fachgebiet.Note FROM dbo.Student INNER JOIN dbo.Fachgebiet ON Student.Student_id = Fachgebiet.Student_id", cn)
Dim rdr = cmd.ExecuteReader
While rdr.Read
Console.WriteLine($"Name: {rdr(0)}, Note: {rdr(1)}")
End While
End Using
End Using
End Sub
End Class
End Module
--
Best Regards / Viele Grüße
Peter Fleischer (former MVP for Developer Technologies)
Homepage, Tipps, Tricks
