Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionsql = "select TonTable.* from TonTable" cmd = New SqlCommand(sql) dta = New SqlDataAdapter(cmd) cmd.Connection() = cnx 'chargement du DataSet à partir du DataAdapter dta.Fill(dts, "Globalclient") 'chargement de la DataTable à partir du DataSet dtt = dts.Tables("TonTable") cmd.CommandText = "SELECT COUNT(*) FROM TonTable WHERE NomMachine = '" & TextNomMachine.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 TonTable (...) VALUES (...)" Else MessageBox.Show(" Attention Machine existe déjà, veuillez vérifier votre saisie", "Message d'infos.....", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Exit Sub TextNomMachine.Focus() End If End If
Dim exists As Boolean = False For Each itm As DataGridViewRow In DataGridView1.Rows If itm.Cells(1).Value = TXT_NomMachine.Text Then exists = True End If Next If Me.DataGridView1.Rows.Count > 0 AndAlso exists = True Then MsgBox("Machine déja Ajouter") Else Dim requet As String = "Insert into Machine(NoSerie,MachineNom) values('" & TXT_Nserie.Text & "','" & TXT_NomMachine.Text & "') "