Imports System.Data.SqlClient
Public Class NetzwerkHinzu

    Private con As New SqlConnection
    Private cmd As New SqlCommand
    Private reader As SqlDataReader
    Public NeuerNetzwerkname As String
    Public NeuerNetzwerkNameIntern As String
    Public Standortname As String = NetzwerkAdmin.LstStandort.SelectedItem

    Private Function dbload()
        con.ConnectionString = Class1.DBConString
        cmd.Connection = con
    End Function

    Private Sub CmdAdd_Click(sender As Object, e As EventArgs) Handles CmdAdd.Click
        NetzwerkAdd()
        NetzwerkAdmin.LstStandortLoad()
        NetzwerkAdmin.LstNetzwerkLoad()
    End Sub

    Private Sub TxtIP_Enter(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtIP.KeyDown
        If e.KeyCode = Keys.Enter Then
            NEtzwerkAdd()
        End If

    End Sub

    Private Function NetzwerkAdd()
        Dim ds As New DataSet()
        Dim dt As New DataTable()
        dbload()
        NeuerNetzwerkname = TxtName.Text
        NeuerNetzwerkNameIntern = Standortname & "_" & NeuerNetzwerkname
        Try
            con.Open()
            cmd.CommandText = "SELECT * FROM Tbl_Netzwerke WHERE Netzwerkname='" & NeuerNetzwerkNameIntern & "'"
            reader = cmd.ExecuteReader()
            If reader.Read() Then
                MsgBox("Netzwerk ist bereits vorhanden!")
                reader.Close()
            Else
                MsgBox("Neues Netzwerk wird erstellt: " & NeuerNetzwerkNameIntern)
                reader.Close()
                cmd.CommandText = "INSERT INTO Tbl_Netzwerke (Netzwerkname, Netzwerk, NWSTANDORT, NETNAME, Subnetz) VALUES ('" & NeuerNetzwerkNameIntern & "', '" & TxtIP.Text & "', '" & Standortname & "', '" & NeuerNetzwerkname & "', '255.255.255.0')"
                cmd.ExecuteNonQuery()
                Class1.Absender = "Netzwerkhinzu"
                NWEdit.Show()
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
        Me.Close()
    End Function

    Private Sub NetzwerkHinzu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If Standortname = "" Then
            MsgBox("Kein Standort ausgewählt")
            Me.Close()
        End If
        LblHeader.Text = Standortname
    End Sub

    Private Sub TxtName_TextChanged(sender As Object, e As EventArgs) Handles TxtName.TextChanged
        LblHeader.Text = "Netzwerk " & Standortname & "_" & TxtName.Text & " hinzufügen."
    End Sub
End Class