1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Dim dvAjout As New DetailsView
Dim dsAjout As New SqlDataSource
With dsAjout
.ID = "dsAjCat"
.ProviderName = "System.Data.SqlClient"
.ConnectionString = "Data Source=devbv;Initial Catalog=mabase;User ID=sa"
.SelectCommand = "SELECT Nom_Categ, Categ_Parent FROM Categ_Annonce"
.InsertCommand = "INSERT INTO Categ_Annonce(Nom_Categ, Categ_Parent) VALUES(@Nom_Categ, @Categ_Parent)"
End With
With dvAjout
.ID = "dvAjCat"
.AutoGenerateRows = True
.AutoGenerateInsertButton = True
.DefaultMode = DetailsViewMode.Insert
.DataSourceID = dsAjout.ID
End With
tb.Rows(0).Cells(0).Controls.Add(dsAjout)
tb.Rows(0).Cells(0).Controls.Add(dvAjout) |
Partager