วันอังคารที่ 13 พฤษภาคม พ.ศ. 2557

วันพุธที่ 7 พฤษภาคม พ.ศ. 2557

Repeater1_ItemDataBound

Private Sub Repeater1_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) Handles Repeater1.ItemDataBound
        Dim ltrmActivities_LimitMax As Literal = CType(e.Item.FindControl("ltrmActivities_LimitMax"), Literal)
        Dim mActivities_LimitMax As HiddenField = CType(e.Item.FindControl("mActivities_LimitMax"), HiddenField)

End Sub

วันพุธที่ 20 พฤศจิกายน พ.ศ. 2556

GridView:RowDataBound

Private Sub GridView1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GridView1.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            Try
                Dim numss As Label = CType(e.Row.FindControl("lblNum"), Label)

            Catch ex As Exception

            End Try
        End If


End Sub

วันอังคารที่ 22 ตุลาคม พ.ศ. 2556

stored procedure วนรอบข้อมูลในตาราง A แล้ว insert ลงตาราง B ได้หลายๆเรคคอร์ด


Stored Procedure

เมื่อใช้ stored procedure ในครั้งแรก ทุกคนจะตื่นเต้นเสมอ คำกล่าวนี้เป็นจริง

แบบที่ 1 
CREATE PROCEDURE dbo.SelectViewInsertToTable
(
     ใส่ตัวแปรพารามิเตอร์ที่จะรับผ่านฟอร์มเข้ามา
)
AS
BEGIN
   INSERT INTO TableBB(b1,b2,b3)
   select a1,a2,a3 from View_AA  where a4='0'
END

GO

วันอาทิตย์ที่ 20 ตุลาคม พ.ศ. 2556

แสดงข้อความ "ยังไม่มีข้อมูล จากการค้นหา"


Private Sub LinqDataSource1_Selected(sender As Object, e As LinqDataSourceStatusEventArgs) Handles LinqDataSource1.Selected
        If e.TotalRowCount > 0 Then
            Label1.Text = "เลือกรายการเพื่อแสดงรายละเอียด"
        Else
            Label1.Text = "ยังไม่มีข้อมูล จากการค้นหา"
        End If
End Sub

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

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