/ / Jak wykryć te same dane w kolumnie podglądu danych? - mysql, vb.net, vba

Jak wykrywać te same dane w kolumnie datagridview? - mysql, vb.net, vba

Gdy użytkownik wprowadza dane do widoku datagrd, symbolużytkownik nie może wprowadzić danych, które już istnieją w widoku danych. Jeśli użytkownik spróbuje wprowadzić te same dane w widoku danych (w tej samej kolumnie), pojawi się okno komunikatu z informacją: „nie można wprowadzić tych samych danych w widoku danych”.

Dziękuję za pomoc.

Odpowiedzi:

0 dla odpowiedzi № 1

Będziesz musiał sprawdzić dane wejściowe w bazie danych, aby zobaczyć, czy już tam są. Na przykład uruchom następującą instrukcję MySQL, aby sprawdzić, czy dane wejściowe to baza danych:

Dim userInput As String
userInput = TextBox1.Text "an example of user input from a textbox
Dim MySQLStatement As String = "SELECT * FROM `your_table` WHERE your_column = "" & userInput & "";"

Nie mogę kontynuować powyższego przykładu bezwiedząc, w jaki sposób łączysz się z bazą danych, ale może to być niepotrzebne. Bez względu na to, jak się łączysz, możesz sprawdzić liczbę rekordów po wykonaniu instrukcji MySQL. Jeśli jest to 1 lub więcej, to wiesz, że dane są już w bazie danych i możesz uniemożliwić wprowadzanie danych przez użytkownika do bazy danych.


0 dla odpowiedzi nr 2

Wreszcie mam rozwiązanie! To jest kod, którego użyłem do rozwiązania problemu. Moja nazwa DataGridView to DataGridView3. Kod to:

Private Sub DataGridView3_CellEndEdit (nadawca jako obiekt, e As DataGridViewCellEventArgs) Obsługuje DataGridView3.CellEndEdit

    For Each Row As DataGridViewRow In DataGridView3.Rows
Try
If DataGridView3.Rows(e.RowIndex).Cells(0).Value.ToString <> Row.Cells(0).Value.ToString AndAlso DataGridView3.Rows(e.RowIndex).Cells(0).Value.ToString = DataGridView3.Rows(e.RowIndex).Cells(0).Value.ToString Then

ElseIf DataGridView3.Rows(e.RowIndex).Cells(0).Value.ToString = Row.Cells(0).Value.ToString Then

If Row.Cells(0) Is DataGridView3.Rows(e.RowIndex).Cells(0) Then
Else
MsgBox("Can"t Duplicate Condition Data!")
DataGridView3.Rows(e.RowIndex).Cells(0).Value = ""
Exit For
End If
End If
Catch
End Try
Next

End Sub