let me explain it again i think were off track.
looking for duplicates if found then msgbox if not continue
heres the code the key to the database is Jack_number
if jack_number is allready in database msgbox nop cant do that
else it adds it and contues on.
Thanks robby
Dim MyConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
IO.Path.GetDirectoryName(Application.ExecutablePath) & "\DataBase\" & _
NameofDB)
MyConnection.Open()
Dim MyCommand As New OleDbCommand("INSERT INTO Cable " & _
"(Jack_Name, Jack_Location, IDF_Location, Patch_Panel_Number," & _
"Port_Number, Cable_Type, Assigned_Port_on_Switch, Assigned_Vlan) VALUES " & _
"('" & MainClass.ADDNewLineDB.TextBox1.Text & "', '" & MainClass.ADDNewLineDB.TextBox2.Text & "'," & _
"'" & MainClass.ADDNewLineDB.TextBox3.Text & "', '" & MainClass.ADDNewLineDB.TextBox4.Text & "'," & _
"'" & MainClass.ADDNewLineDB.TextBox5.Text & "', '" & MainClass.ADDNewLineDB.TextBox6.Text & "'," & _
"'" & MainClass.ADDNewLineDB.TextBox7.Text & "', '" & MainClass.ADDNewLineDB.TextBox8.Text & "')", MyConnection)
MyCommand.ExecuteNonQuery()
MyConnection.Close()
MyCommand.Dispose()
Dim i As Integer
i = MainClass.DB.ListView1.Items.Count
MainClass.DB.ListView1.Items.Add(MainClass.ADDNewLineDB.TextBox1.Text)
MainClass.DB.ListView1.Items(i).SubItems.Add(MainClass.ADDNewLineDB.TextBox2.Text)
MainClass.DB.ListView1.Items(i).SubItems.Add(MainClass.ADDNewLineDB.TextBox3.Text)
MainClass.DB.ListView1.Items(i).SubItems.Add(MainClass.ADDNewLineDB.TextBox4.Text)
MainClass.DB.ListView1.Items(i).SubItems.Add(MainClass.ADDNewLineDB.TextBox5.Text)
MainClass.DB.ListView1.Items(i).SubItems.Add(MainClass.ADDNewLineDB.TextBox6.Text)
MainClass.DB.ListView1.Items(i).SubItems.Add(MainClass.ADDNewLineDB.TextBox7.Text)
MainClass.DB.ListView1.Items(i).SubItems.Add(MainClass.ADDNewLineDB.TextBox8.Text)