วันจันทร์ที่ 1 กันยายน พ.ศ. 2557

ส่งชุดคำสั่ง SQL ไปยัง Stored Procedure ประมวลผลครั้งเดียวทีละหลายๆคำสั่ง

--------------- ใน ฟอร์ม -----------------

* ท้ายคำสั่ง SQL อย่างลืมปิดด้วยเครืองหมาย ; นะครับ

sql.Append("UPDATE student SET student_score=1,student_scoreComment='ทดสอบครั้งที่ 1' WHERE student_ID='0001';")
sql.Append("UPDATE student SET student_score=1,student_scoreComment='ทดสอบครั้งที่ 2' WHERE student_ID='0002';")
sql.Append("UPDATE student SET student_score=1,student_scoreComment='ทดสอบครั้งที่ 3' WHERE student_ID='0003';")

Dim obj As New DataClasses_viewDataContext
obj.teacher_Save_activity(sql.ToString)

--------------- ใน Stored Procedure -----------------


CREATE PROCEDURE [dbo].[teacher_Save_activity]
(
       @prmSQL as  text
)
AS
BEGIN

       EXECUTE (@prmSQL);

END

GO

เรียกใช้ Web Control ใน Repeater จากปุ่ม Button ด้วยคำสั่ง FindControl

    Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        With Repeater1
            Dim chkSelect As CheckBox = CType(.Items(1).FindControl("chkSelect"), CheckBox)
            chkSelect.Checked = True

        End With

    End Sub

----------------------------------------------------

อีกตัวอย่างนะครับ คือ เป็นการวนรอบ ในการเรียกค่าจาก Web control ในแต่ละแถว


    Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        With Repeater10
            Dim i As Integer
            For i = 0 To .Items.Count - 1
                Dim chkSelect As CheckBox = CType(.Items(i).FindControl("chkSelect"), CheckBox)
                Dim chk As String = chkSelect.Checked
            Next

        End With

    End Sub

การใช้ WebClient สำหรับเรียก URL

Dim _url As String = " https :// www . MyDomain . com /?q=ทดสอบ " Dim wc As New System . Net . WebClient () wc . Encodin...