L'erreur de chercher

gosss - 26 août 2013 à 14:08
jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 - 26 août 2013 à 14:41
Deux liaisons de la collection vont être liées à la même propriété. Nom du paramètre : binding
tien le programme

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click


Static m As Integer = 0
SQLstr = "SELECT * FROM Table1 WHERE ncb = '" & TextBox1.Text & "'"
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "Table1")
Conn.Close()

TextBox2.DataBindings.Clear()
TextBox2.DataBindings.Add(New Binding("Text", DataSet1, "Table1.nom"))
TextBox3.DataBindings.Clear()
TextBox3.DataBindings.Add(New Binding("Text", DataSet1, "Table1.adresse"))
TextBox4.DataBindings.Clear()
TextBox4.DataBindings.Add(New Binding("Text", DataSet1, "Table1.cin"))
TextBox5.DataBindings.Add("Text", DataSet1, "Table1.ncb")
TextBox6.DataBindings.Add("Text", DataSet1, "Table1.retrait")
TextBox7.DataBindings.Add("Text", DataSet1, "Table1.verssement")
TextBox8.DataBindings.Add("Text", DataSet1, "Table1.transferet")
TextBox9.DataBindings.Add("Text", DataSet1, "Table1.solde")
TextBox10.DataBindings.Add("Text", DataSet1, "Table1.dat")
TextBox11.DataBindings.Add("Text", DataSet1, "Table1.remarque")

'DataGridView1.DataSource = DataSet1
'DataGridView1.DataMember = "Table1"
If Me.BindingContext(DataSet1, "Table1").Count = 0 Then
MsgBox("No Result, Please Try Again ")
Exit Sub
End If

End Sub

1 réponse

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 344
26 août 2013 à 14:41
Bonjour quand même. ..

1 - tu sais que pour la mise en forme...il y a des balises de code (première icône en partant de la droite)

2- il y a une question ??
0
Rejoignez-nous