cmd.CommandText "SELECT COUNT(*) FROM ADHERENT WHERE CODE '" & Me.TextBox1.Text & "' AND CODE_ADHERENT = '" & Me.TextBox2.Text & "'" Dim isPresent As Boolean = False If (Not cmd.ExecuteScalar Is DBNull.Value) Then isPresent IIf(cmd.ExecuteScalar 0, 0, 1) If Not isPresent Then cmd.CommandText = "INSERT INTO ADHERENT (...) VALUES (...)" 'cmd.ExecuteNonQuery() Me.TextBox1.BackColor = Color.White Else Me.TextBox1.BackColor = Color.Red MessageBox.Show(" POLICE EXISTE DEJA POUR CET ADHERENT") End If End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question