Public Class frmMain
 
    Dim con As New OleDb.OleDbConnection
    Dim cmd As New OleDb.OleDbCommand
    Dim reader As OleDb.OleDbDataReader
    Dim adapter As New OleDb.OleDbDataAdapter
    Dim view As System.Data.DataView
    Dim table As New DataTable
    Dim myDataSet As New DataSet
_____________________________________________________________________
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
        "Source=C:\IPVerteilung.mdb"
        cmd.Connection = con
        cmd.CommandText = "select * from IPVerteilung"
 
        'Datenbank in DataGriedView ansehen
        adapter.SelectCommand = cmd
        adapter.Fill(myDataSet, "IPVerteilung")
        dgvDatenbank.DataSource = myDataSet
        dgvDatenbank.DataMember = "IPVerteilung"
 
    End Sub
______________________________________________________________________________
    Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles cmdUpdate.Click
 
 
        'Neuen Eintrag von DataGridView in Datenbank eintragen
        Dim cmdb As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)
        adapter.Update(myDataSet, "IPVerteilung")
 
        myDataSet.Clear()
 
        'Datenbank in DataGriedView ansehen
        adapter.SelectCommand = cmd
        adapter.Fill(myDataSet, "IPVerteilung")
        dgvDatenbank.DataSource = myDataSet
        dgvDatenbank.DataMember = "IPVerteilung"
    End Sub
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

    Private Sub dgvDatenbank_CellEndEdit(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DataGridViewCellEventArgs) Handles _
      dgvDatenbank.CellEndEdit
 
        If dgvDatenbank.CurrentCell.ColumnIndex = 3 Then
            con.Open()
            cmd.Connection = con
            cmd.CommandText = "Select * From IPVerteilung"
            reader = cmd.ExecuteReader()
 
            Do While reader.Read()
                If dgvDatenbank.CurrentCell.Value = (reader("IP")) Then
                    MsgBox("!!!IP schon vergeben!!!")
                    dgvDatenbank.CurrentCell.Value = OldValue
 
                End If
 
            Loop
            con.Close()
 
        End If
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist