1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Dim ACConnection5 As New SqlClient.SqlConnection
ACConnection5.ConnectionString = "Server=HOME\SQLEXPRESS;Database=MaBase;integrated security=true;"
ACConnection5.Open()
Dim ChSql5 as String = "SELECT IdTtea, NomServeur, NomTable FROM TableTea"
Dim ACCommand5 = New SqlClient.SqlCommand
ACCommand5.CommandType = CommandType.Text
ACCommand5.CommandText = Chsql5
Dim ACDataAdapter5 As New SqlClient.SqlDataAdapter(Chsql5, ACConnection5)
ACDataAdapter5.Fill(ACDataset5, "Table20")
'Affectation du binding pour les zone de texte
TIdTtea.DataBindings.Add("Text", ACDataset5, "Table20.IdTtea")
TServeur.DataBindings.Add("Text", ACDataset5, "Table20.NomServeur")
TTable.DataBindings.Add("Text", ACDataset5, "Table2.NomTable")
'Affectation du datasource pour le datarepeater
DataRepeaterRT.DataSource = ACDataset5.Tables.Item(0) |
Partager