1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73
| Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
DB = New SQLServeur(SERVEUR, "TEST")
rst = DB.RequeteRd("SELECT Id, Designation FROM TableEssai")
rst.NewRow()
rst.Field(1) = TextBox1.Text
rst.Update()
rst.Dispose()
DB.Dispose()
Catch ex As Exception
MsgBox("Erreur de communication avec le serveur SQL.")
End Try
AfficherListe()
End Sub
Private Sub AfficherListe()
ReDim Tab(0)
Try
DB = New SQLServeur(SERVEUR, "TEST")
rst = DB.RequeteRd("SELECT Id, Designation FROM TableEssai")
PlaceHolder1.Controls.Add(New LiteralControl("<table border='1'><tr><td>Id</td><td>Designation</td><td>Supprimer ?</td></tr>"))
Do Until rst.EOF = True
ReDim Preserve Tab(Tab.Length)
Tab(Tab.Length - 1).Id = rst.Field(0)
Tab(Tab.Length - 1).Designation = rst.Field(1)
MaCheckBox = New System.Web.UI.WebControls.CheckBox
PlaceHolder1.Controls.Add(New LiteralControl("<tr><td>" & Trim(rst.Field(0)) & "</td><td>" & Trim(rst.Field(1)) & "</td><td>"))
MaCheckBox.ID = "Check" & rst.Field(0)
PlaceHolder1.Controls.Add(MaCheckBox)
PlaceHolder1.Controls.Add(New LiteralControl("</td></tr>"))
MaCheckBox.Dispose()
rst.MoveNext()
Loop
PlaceHolder1.Controls.Add(New LiteralControl("</table>"))
rst.Dispose()
DB.Dispose()
Catch ex As Exception
MsgBox("Erreur de communication avec le serveur")
End Try
End Sub
Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
If Me.IsPostBack = False Then
AfficherListe()
End If
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim c As CheckBox
Dim cmp As Integer
AfficherListe()
For cmp = 0 To Tab.Length - 1
c = New CheckBox
c = PlaceHolder1.FindControl("Check" & Tab(cmp).Id)
If IsNothing(c) = False Then
If (c.Checked) Then
Try
DB = New SQLServeur(SERVER, "TEST")
rst = DB.RequeteRd("SELECT Id, Designation FROM TableEssai WHERE Id =" & Tab(cmp).Id)
If rst.EOF = False Then
rst.DeleteRow()
rst.Update()
End If
rst.Dispose()
DB.Dispose()
Catch ex As Exception
MsgBox("Erreur de communication avec le serveur")
End Try
End If
End If
Next
PlaceHolder1.Dispose()
End Sub |
Partager