วันพฤหัสบดีที่ 23 ตุลาคม พ.ศ. 2557

Request.Form --Checkbox


                  <div class="form-group">
                  <div >
                    <div class="checkbox">
                      <label>

                        <input id="chkTerms2" name="chkTerms2"  value="1" checked="checked" type="checkbox">

                     <strong>   &nbsp;ฉันอ่านและยอมรับเงื่อนไข </strong></label>

                    </div>
                  </div>

                </div>

**********************************************************

Dim b_chkTerms As Boolean = Val(Request.Form("chkTerms2"))

วันจันทร์ที่ 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

วันพุธที่ 4 มิถุนายน พ.ศ. 2557

GridView1 RowDataBound (DataControlRowType.Footer)

<asp:GridView ID="GridView1" runat="server" AllowPaging="True" AllowSorting="True" AutoGenerateColumns="False"
    CssClass="table table-striped table-bordered table-hover" DataKeyNames="slide_ID" DataSourceID="LinqDataSource1" GridLines="None">
    <Columns>
        <asp:BoundField DataField="slide_type" HeaderText="ประเภท" SortExpression="slide_type">
        <HeaderStyle Width="150px" />
        <ItemStyle HorizontalAlign="Center" />
        </asp:BoundField>
        <asp:BoundField DataField="slide_img" HeaderText="ตำแหน่งรูปภาพ" SortExpression="slide_img" />
        <asp:CommandField ButtonType="Button" SelectText="แก้ไข" ShowSelectButton="True" />
       <asp:TemplateField >
           <ItemTemplate >
               <asp:HiddenField ID="hddslide_ID" runat="server" Value ='<%# Eval("slide_ID")%>'  />
           </ItemTemplate>
       </asp:TemplateField>
    </Columns>
</asp:GridView>
<div class="pull-right well" >
    <div class =""> ผลรวม :
            <asp:Literal ID="ltrSum" runat="server"></asp:Literal>
        </div>
</div>
   
**********************************************************
Private Sub GridView1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GridView1.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            Try

                Dim hddslide_ID As HiddenField = CType(e.Row.FindControl("hddslide_ID"), HiddenField)

                sum = sum + Val(hddslide_ID.Value)


            Catch ex As Exception

            End Try
        End If

        If e.Row.RowType = DataControlRowType.Footer Then
            ltrSum.Text = sum
        End If

    End Sub

วันเสาร์ที่ 17 พฤษภาคม พ.ศ. 2557

เลขลำดับแถว RunNumber แบบลำดับหลายหน้า

  <%# (GridView1.PageIndex * GridView1.PageSize) + (Container.DataItemIndex + 1)%>

******************************************************************************

<asp:GridView ID="GridView1" runat="server"
    AllowPaging="True" AutoGenerateColumns="False" GridLines="None" Width="100%" ShowHeader="False" PageSize="10" >

    <Columns>
         <asp:HyperLinkField />

        <asp:TemplateField>
            <ItemTemplate >
              <span>
                 <%# (GridView1.PageIndex * GridView1.PageSize) + (Container.DataItemIndex + 1)%>
             </span> 
            </ItemTemplate>
        </asp:TemplateField>

    </Columns>

    <PagerStyle CssClass="pager" />
  
</asp:GridView>

วันศุกร์ที่ 16 พฤษภาคม พ.ศ. 2557

คิวรี่ LinqDataSource แบบ Like เพื่อใช้ในการแบ่งหน้า

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack = False Then
            getFind(0)
        End If
End Sub

Sub getFind(PageIndex As Integer)
        Dim sql As New StringBuilder
        sql.Append("mActivities_Name.Contains(""" & txtFind.Text & """)")
        sql.Append("|| mActivities_teacher.Contains(""" & txtFind.Text & """)")
        sql.Append("|| mActivities_place.Contains(""" & txtFind.Text & """)")
        sql.Append("|| mActivities_note.Contains(""" & txtFind.Text & """)")

        LinqDataSource1.WhereParameters.Clear()
        LinqDataSource1.Where = sql.ToString
        LinqDataSource1.DataBind()
        GridView1.DataSourceID = "LinqDataSource1"
        GridView1.PageIndex = PageIndex
        GridView1.DataBind()
End Sub

Private Sub GridView1_PageIndexChanging(sender As Object, e As GridViewPageEventArgs) Handles GridView1.PageIndexChanging
        getFind(e.NewPageIndex)

End Sub

***********************************************
<asp:LinqDataSource ID="LinqDataSource1" runat="server" ContextTypeName="studentActivities.DataClasses_ViewDataContext"
            EntityTypeName="" OrderBy="mActivities_Name" TableName="View_mActivities_Selects">
</asp:LinqDataSource>
<asp:GridView ID="GridView1" runat="server"
    AllowPaging="True" AutoGenerateColumns="False" >

<Columns>
    <asp:BoundField DataField="mActivities_ID" HeaderText="mActivities_ID" SortExpression="mActivities_ID" />
</Columns>

    <PagerStyle CssClass="pager" />

</asp:GridView>

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

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