jnithi

SQLSERVER: Format Number with comma

2011-11-10T22:29:00.000+07:00


-- ตัวอย่าง
SELECT CONVERT(varchar,CONVERT(money,1234567.89),1)

-- ทดสอบ SIMPLE SELECT
SELECT CONVERT(varchar,CONVERT(money,SUM(bcbill)),1)
FROM ARDebit
WHERE year(billdate) = 2011 and month(billdate) = 10

-- ทดสอบการลบกันระหว่าง 2 query
SELECT CONVERT(varchar,CONVERT(money,
 (
 (SELECT SUM(bcBill) FROM ARDebit WHERE Year(BillDate)=2011 and Month(BillDate) = 10)
 -
 (SELECT SUM(BcPayment) FROM ARCredit WHERE Year(ReceiptDate) = 2011 and MONTH(ReceiptDate) = 10)
 )
),1)

เมื่อก่อนตอนเจอการตำนวณหลัก 10 ล้าน 100 ล้าน ต้องมานั่งเพ่งดูตัวเลขว่าเท่าไหร่กันแน่ หรือไม่งั้นก็ copy ไป excel พอตอนนี้สามารถสั่ง format ได้ พอมี comma กับจุดทศนิยมก็ง่ายขึ้นเยอะครับ

แต่ว่าพอ convert เป็น money แล้วทศนิยมมันปัดเป็น 2 ตำแหน่ง อันนี้ต้องระวังด้วยครับ


-- ทดสอบ ได้ผลลัพธ์ 1,234,567.90
SELECT CONVERT(varchar,CONVERT(money,1234567.8987),1)

Filter DataTable

2011-10-12T15:54:00.005+07:00

สมมติว่าเรามี DataTable อยู่ 1 ตัว ทีนี้เราต้องการนับจำนวนรายการที่ตรงตามเงื่อนไขที่ต้องการ (หรือกรองเอาเฉพาะรายการใน DataTable ตามเงื่อนไข) เท่าที่นึกออกตอนนี้ทำได้ 3 วิธีครับ ลองดูต้วอย่างกันเลย

 
    Private Sub TestCountDataTable()

        Dim dtEmployee As New Data.DataTable
        dtEmployee.Columns.Add("EmployeeID", GetType(String))
        dtEmployee.Columns.Add("HireDate", GetType(Date))

        Dim strCommand As String = "SELECT EmployeeID, HireDate FROM tblEmployee WHERE HireDate IS NOT NULL"
        Dim strConnection As String = "Data Source=tg2000;Initial Catalog=ADMIN;Integrated Security=True"

        Using sqlConnection As New SqlClient.SqlConnection(strConnection)
            sqlConnection.Open()
            Using sqlCommand As New SqlClient.SqlCommand(strCommand, sqlConnection)
                Using sqlDataReader = sqlCommand.ExecuteReader()
                    dtEmployee.Load(sqlDataReader)
                End Using
            End Using

        End Using

        ' USE DataView.RowFilter
        Dim dv = dtEmployee.DefaultView
        dv.RowFilter = "HireDate>='2010-01-01' and HireDate<='2010-12-31'"
        Dim countFromDataView = dv.Count
        Debug.Print(String.Format("Count from DataView:{0:#,##0.00}", countFromDataView))

        ' USE LINQ TO DATASET
        Dim countFromLinqToDataSet = dtEmployee.AsEnumerable.Where(Function(w) w.Field(Of Date)("HireDate").Year.Equals(2010)).Count
        Debug.Print(String.Format("Count from Linq To DataSet:{0:#,##0.00}", countFromLinqToDataSet))

        ' USE Datatable.Select
        Dim dr() = dtEmployee.Select("HireDate>='2010-01-01' and HireDate<='2010-12-31'")
        Dim countFromSelect = dr.Length
        Debug.Print(String.Format("Count from Dataset.Select:{0:#,##0.00}", countFromSelect))

    End Sub

ถ้าใครนึกวิธีอื่นออกที่น่าสนใจ ก็ช่วยเพิ่มให้ด้วยครับ

ASP.NET Gridview export UNICODE to Excel (แก้ปัญหา export ภาษาไทยแล้วอ่านไม่ออก)

2011-10-10T20:15:00.006+07:00

ผมเจอปัญหาว่าพอสั่ง Export Gridview ไปเป็น Excel แล้วภาษาไทยมันอ่านไม่ออกครับ
ลองแก้ Response.Charset แล้วก็ยังไม่ได้ครับ ค้นใน google ก็เลยเจอว่าน่าจะเป็นเพราะคำสั่งที่ export นั้นไม่สนับสนุน UTF8 ผมใช้ StringWriter ครับ พอลองมาค้นดูก็เจอว่า StreamWriter มันรองรับการทำ Encoding ได้ ก็เลยปิ๊งครับ

           
gvContact.DataSource = mlSummaries
gvContact.DataBind()

Response.Clear()

Response.AddHeader("content-disposition", "attachment;filename=EventMailingList.xls")
Response.Charset = "tis-620"
Response.ContentType = "application/vnd.ms-excel"

If Request("EventName") IsNot Nothing Then lblCaption.Text = Server.UrlDecode(Request("EventName"))

' โค้ดเดิมที่ใช้ไม่ได้
'Dim stringWrite As New System.IO.StringWriter
'Dim htmlWrite As System.Web.UI.HtmlTextWriter = New HtmlTextWriter(stringWrite)

'divExport.RenderControl(htmlWrite)
'Response.Write(stringWrite.ToString())

Dim ms As New System.IO.MemoryStream()
Dim streamWrite As New System.IO.StreamWriter(ms, Encoding.UTF8)
Dim htmlWrite As New System.Web.UI.HtmlTextWriter(streamWrite)
divExport.RenderControl(htmlWrite)

Dim strEncodedHTML As String = Encoding.UTF8.GetString(ms.ToArray)
Response.Write(strEncodedHTML)
Response.End()

ทดลองดูใช้ได้ครับ ออกมาเป็นภาษาไทยถูกต้องแล้ว

ASP.NET Dynamic Gridview

2011-10-07T21:00:00.001+07:00

ผมได้รับ requirement จากยูสเซ่อว่าหน้าสอบถามข้อมูล (Inquiry) อยากให้สามารถเลือกว่าอยากเห็นข้อมูลคอลัมภ์ไหนบ้าง พร้อมทั้งสามารถ export ข้อมูลมาเป็น Excel ได้ (อนาคตจะต้องให้ user สามารถ save format ที่เลือกเก็บไว้ได้ด้วย แต่ผมยังไม่ได้ทำ)

เนื่องจากหน้าเดิมผมใช้ Gridview ในการแสดงผล ดังนั้นผมเลยเขียนโปรแกรมเพื่อให้ user สามารถเพิ่ม/ลด column ของ Gridview ได้

ก่อนอื่นเรามาเตรียมโค้ดของ Gridview ก่อนครับ ในเวอร์ชันนี้เราจะให้ Dynamic Gridview รองรับแค่ Label เท่านั้น ผมเริ่มจากการสร้าง GridViewLabelTemplate Class สำหรับ Class ตัวนี้มีไว้สำหรับสร้าง ItemTemplate ซึ่งประกอบด้วย Label 1 อัน

  
Public Class GridViewLabelTemplate
    Implements ITemplate

    Private _lblID As String

    Public Sub New(ByVal ID As String)
        _lblID = ID
    End Sub

    Public Sub InstantiateIn(ByVal container As System.Web.UI.Control) _
        Implements System.Web.UI.ITemplate.InstantiateIn

        Dim lbl As New Label
        lbl.ID = _lblID
        container.Controls.Add(lbl)
        AddHandler lbl.DataBinding, AddressOf Me.DataBinding
    End Sub

    Private Sub DataBinding(ByVal sender As Object, ByVal e As EventArgs)
       ' Do nothing but needed for row databinding event 
    End Sub

End Class

จากนั้นก็มาสร้าง Static Class อีกตัว เพื่อเป็น Gridview Utility สำหรับเพิ่ม Column (ItemTemplate)

  
Public Class GridViewUtility
    Public Shared Sub AddLabelTemplate(ByVal grid As GridView, _
                                                           ByVal labelID As String, _
                                                           ByVal HeaderText As String, _
                                                           ByVal columnWidth As Integer, _
                                                           Optional ByVal fontWeight As Integer = 11)

        Dim f As New TemplateField
        f.HeaderText = HeaderText
        f.HeaderStyle.Width = Unit.Pixel(columnWidth)
        f.HeaderStyle.HorizontalAlign = HorizontalAlign.Left
        f.HeaderStyle.Font.Name = "Tahoma"
        f.ItemStyle.HorizontalAlign = HorizontalAlign.Left
        f.ItemStyle.Font.Size = Unit.Pixel(fontWeight).Value
        f.ItemStyle.Font.Name = "Tahoma"

        f.ItemTemplate = New GridViewLabelTemplate(labelID)
        grid.Columns.Add(f)

    End Sub
End Class

ขั้นเตรียมตัวเรียบร้อย ก็มาเริ่มเขียน aspx กันครับ ส่วนหน้าจอที่ให้ user เลือก

ไม่ได้เขียนโค้ดให้ แค่คร่าวๆคือ เมื่อ user กดปุ่ม Advance จะแสดง div ที่ซ่อนไว้ ว่ามีคอลัมภ์อะไรให้เลือกบ้าง โดยจะมี Default อยู่ 8 คอลัมภ์ และ user สามารถเลือกได้ว่าอยากเห็นข้อมูลที่ห้น้าจอหรือ export เป็น excel หรือ pdf พอ user กดปุ่ม Export โปรแกรมก็จะไปสร้าง Gridview ให้ แล้วเอา Gridview ไปแสดงผลตามที่ต้องการ

คราวนี้มาดูโค้ดส่วนที่สร้าง Gridview บ้างครับ

  
        Dim lst As List(Of CMS.Library.ContactList) = Session(MAILING_LIST_SESSION)
        'Add empty row
        lst.Add(New CMS.Library.ContactList)

        Dim divReport As New Panel

        Dim pHeader As New Panel
        Dim lblHeader As New Label
        lblHeader.Text = "List of mailing list by lawyer."
        lblHeader.Font.Bold = True
        lblHeader.Font.Size = Unit.Pixel(16).Value
        pHeader.Controls.Add(lblHeader)
        divReport.Controls.Add(pHeader)

        Dim pCaption As New Panel
        Dim lblCaption As New Label
        lblCaption.Text = "Lawyer: " & Me.lblLawyerName.Text
        lblCaption.Font.Size = Unit.Pixel(14).Value
        lblCaption.Font.Italic = True
        pCaption.Controls.Add(lblCaption)
        divReport.Controls.Add(pCaption)

        Dim pLinespace As New Panel
        Dim lblSpace As New Label
        lblSpace.Text = "
"
        pLinespace.Controls.Add(lblSpace)
        divReport.Controls.Add(pLinespace)

        Dim gvReport As New GridView
        divReport.Controls.Add(gvReport)

        gvReport.AutoGenerateColumns = False
        gvReport.RowStyle.VerticalAlign = VerticalAlign.Top
        gvReport.BorderStyle = BorderStyle.Solid
        gvReport.BorderWidth = Unit.Pixel(1)
        gvReport.GridLines = GridLines.Both
        gvReport.HeaderStyle.BackColor = Drawing.Color.Silver


        AddHandler gvReport.RowDataBound, AddressOf GridView_RowDataBound


        If chkPrefix.Checked Then GridViewUtility.AddLabelTemplate(gvReport, "Prefix", "Prefix", 100)
        If chkContactname.Checked Then GridViewUtility.AddLabelTemplate(gvReport, "FirstName", "First Name", 100)
        If chkContactMiddleName.Checked Then _
               GridViewUtility.AddLabelTemplate(gvReport, "MiddleName", "Middle Name", 100)
        If chkContactLastName.Checked Then GridViewUtility.AddLabelTemplate(gvReport, "LastName", "Last Name", 100)

        If chkCompanyName.Checked Then _
               GridViewUtility.AddLabelTemplate(gvReport, "CompanyName", "Company", 300)
        If chkClientNo.Checked Then GridViewUtility.AddLabelTemplate(gvReport, "ClientNo", "Client No", 100)
        If chkDepartment.Checked Then _ 
               GridViewUtility.AddLabelTemplate(gvReport, "DepartmentTitle", "DepartmentTitle", 100)
        If chkTitle.Checked Then GridViewUtility.AddLabelTemplate(gvReport, "JobTitle", "Job Title", 100)
        ...
        ...
        ...
        gvReport.DataSource = lst
        gvReport.DataBind()

พอเราสั่ง DataBind โปรแกรมก็จะไปทำ RowDataBinding เราก็ต้องไปเขียนโค้ดเพื่อเอาข้อมูลไปใส่ใน ItemTemplate ให้ถูกต้อง

  
    Private Sub GridView_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)

        'Skip for last empty row
        If e.Row.DataItemIndex = TryCast(Session(MAILING_LIST_SESSION), IList).Count - 1 Then Exit Sub

        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim ml As CMS.Library.ContactList = TryCast(e.Row.DataItem, CMS.Library.ContactList)

            If chkPrefix.Checked AndAlso ml.Contact.Prefix IsNot Nothing Then _
                     DirectCast(e.Row.FindControl("Prefix"), Label).Text = ml.Contact.Prefix.PrefixCode
            If chkContactname.Checked AndAlso ml.Contact.FirstName IsNot Nothing Then _
                     DirectCast(e.Row.FindControl("FirstName"), Label).Text = ml.Contact.FirstName.ToString
            If chkContactMiddleName.Checked AndAlso ml.Contact.MiddleName IsNot Nothing Then _
                     DirectCast(e.Row.FindControl("MiddleName"), Label).Text = ml.Contact.MiddleName.ToString
            If chkContactLastName.Checked AndAlso ml.Contact.LastName IsNot Nothing Then _
                     DirectCast(e.Row.FindControl("LastName"), Label).Text = ml.Contact.LastName.ToString
 
            If chkClientNo.Checked AndAlso ml.Company.ClientNo IsNot Nothing Then _
                      DirectCast(e.Row.FindControl("ClientNo"), Label).Text = ml.Company.ClientNo.ToString
            If chkDepartment.Checked AndAlso ml.DepartmentTitle IsNot Nothing Then _
                      DirectCast(e.Row.FindControl("DepartmentTitle"), Label).Text = ml.DepartmentTitle
            ...
            ...
            ...
            If ml.Active <> CMS.Library.Constants.ACTIVE Then
                e.Row.ForeColor = Drawing.Color.Red
                e.Row.Font.Italic = True
            End If
        End If
    End Sub

โค้ดส่วนที่สำคัญก็มีเท่านี้ครับ ส่วนที่ export ไป excel หรือ pdf ก็ไม่ยากแล้ว

ถ้าอนาคตมีการ modify หรือรองรับ control อื่นๆนอกจาก label เพิ่มจะมาอัพเดทอีกทีครับ

โค้ดสั่ง Suppress Picture ใน Crystal Report

2011-09-30T21:14:00.003+07:00


            Dim picture1 As CrystalDecisions.CrystalReports.Engine.PictureObject
            picture1 = reportDoc.ReportDefinition.ReportObjects("Picture1")
            picture1.ObjectFormat.EnableSuppress = True

แปลงผล LINQ เป็น DATATABLE

2011-09-29T13:56:00.000+07:00

จากคำถามคุณ witsanukam ที่ GreatFriends นะครับ


        Dim dtEmployee As New DataTable()
        Dim dtDepartment As New DataTable()
 
        'Define Columns/Data
 
        dtEmployee.Columns.Add("EmployeeID", GetType(String))
        dtEmployee.Columns.Add("EmployeeName", GetType(String))
        dtEmployee.Columns.Add("OpenType", GetType(String))
        dtEmployee.Columns.Add("DepartID", GetType(String))
 
        dtEmployee.Rows.Add(New Object() {"001", "น้องฟ้า", "สดใส", 2})
        dtEmployee.Rows.Add(New Object() {"002", "น้องนก", "น่ารัก", 2})
        dtEmployee.Rows.Add(New Object() {"003", "ได้หลัง", "แล้วลืมหน้า", 2})
 
 
        dtDepartment.Columns.Add("DepartID", GetType(String))
        dtDepartment.Columns.Add("DepartName", GetType(String))
 
        dtDepartment.Rows.Add(New Object() {1, "นักวิเคราะห์/นักแบบระบบ/อื่นฯ"})
        dtDepartment.Rows.Add(New Object() {2, "โปรแกรมมั่ว"})
        dtDepartment.Rows.Add(New Object() {3, "WOW อรชรอ้อนแอ้น"})
 
        '*************************************************************
        Dim dtResult As New DataTable
        dtResult.Columns.Add("EmployeeID", GetType(String))
        dtResult.Columns.Add("EmployeeName", GetType(String))
        dtResult.Columns.Add("OpenType", GetType(String))
        dtResult.Columns.Add("DepartID", GetType(String))
        dtResult.Columns.Add("Department", GetType(String))
 
        Dim dr As DataRow = dtResult.NewRow
 
        Dim q = From j0 In dtEmployee.AsEnumerable() Join _
                     j1 In dtDepartment.AsEnumerable() _
                On j0.Field(Of String)("DepartID") Equals j1.Field(Of String)("DepartID") _
                Select dtResult.Rows.Add(New Object() {j0("EmployeeID"), j0("EmployeeName"), j0("OpenType"), j1("DepartID"), j1("DepartName")})
 
 
        q.CopyToDataTable(dtResult, LoadOption.OverwriteChanges)

ลองทำดู คิดว่าเผื่ออนาคตอาจได้ใช้เลยเอามาเก็บไว้ใน blog ซะก่อน

เปลี่ยนมาใช้ Syntax Highlighter 3.0.83

2010-07-08T19:21:00.003+07:00

เพิ่งมาสังเกตุว่า ส่วนที่เป็น source code ที่ใช้ Syntax Highlighter มันไม่แสดงผลอย่างที่ควรจะเป็นครับ พอลองตรวจสอบดูปรากฏว่า ลิงค์ที่ไป URI ของ Syntax Highlighter version 1.5 ที่เคยใช้มัน Access Denied ครับ ลองหลายๆเวอร์ชันก็เป็นเหมือนกัน

ก็เลยได้โอกาสปรับเปลี่ยนมาลองใช้เวอร์ชันล่าสุด ซึ่งปัจจุบันเป็นเวอร์ชัน 3.0.83 ครับ ปรากฏว่าเวลาเราเขียน <pre> tag ต้องกำหนด attribute ใหม่ จากเดิมเป็น <pre name=code class=vb> เป็น <pre class="brush:vb"> ครับ

ไว้ว่างๆจะทยอยไล่แก้ที่บทความเก่าๆ ถ้าเป็นไปได้ก็จะหาที่เก็บไฟล์เวอร์ชันนี้เองน่าจะดี ^_^

Fix: IE8 Stuck on new tab

2010-07-08T14:11:00.002+07:00

ตอนนี้ที่บริษัทเริ่มใช้ IE8 กันมากขึ้นแล้วครับ ทีนี้ก็เจอปัญหาว่าบางโปรแกรมที่เราเขียน เราสั่งให้มันเป็น Window ใหม่เช่นแสดงรายงาน หรือทำ Popup ปรากฏว่าอยู่ดีๆ ก็ไม่สามารถเปิด Window ใหม่ได้ครับ (มารู้ทีหลังว่าเป็นเพราะเราลงโปรแกรมบางตัว เช่น Image Viewer ครับ)

ทีแรกลองค้นใน google ดูก็พบว่าวิธีแก้ปัญหาคือต้องลงทะเบียน dll บางตัวใน registry ใหม่ ซึ่งมีหลายตัวมากครับ ให้เราลองสั่ง regsvr32 ทีละตัวดู ซึ่งก็เสียเวลามาก โชคดีที่เพื่อนที่ทำงานได้ bat file มา 1 ตัวซึ่งแก้ปัญหานี้ได้ พอไปดูในโค้ดก็เห็น link ไปเวบ http://iefaq.info ครับ พอเข้าไปดูปรากฏว่าไม่ใช่ภาษาอังกฤษซะงั้น

แต่สำหรับคนที่มีปัญหาเกี่ยวกับ IE ลองเข้าไปดูได้ครับ โดยเฉพาะ IE8 ถ้าสนใจตัว script สำหรับแก้ปัญหา registry ของ IE8 ให้ไปที่หน้า

http://iefaq.info/index.php?action=artikel&cat=47&id=136&artlang=de

สำหรับผมใช้ Windows7 32 bit เลยดาวน์โหลดตัว IE8-rereg.zip มาใช้ครับ สุดยอดมากๆๆ

แก้ปัญหา Export to Excel ด้วย GridView: Control 'GridView1' of type 'GridView' must be placed inside a form tag with runat=server.

2010-07-03T17:56:00.001+07:00

วันก่อนผมเขียนโปรแกรมเพื่อ export ข้อมูลจาก GridView มาเป็น Excel ครับ (ก่อนหน้านี้ใช้ Datagrid ไม่เคยมีปัญหา) ก็เจอ error ดังนี้ครับ

นั่งงมอยู่ตั้งนาน ก็เลยเจอวิธีแก้ว่าให้เพิ่มโค้ดดังนี้ครับ


    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As System.Web.UI.Control)
        'MyBase.VerifyRenderingInServerForm(control)

    End Sub

แค่นี้ก็ใช้งานได้แล้วครับ

แต่ถ้าใครเจอปัญหาว่า "RegisterForEventValidation can only be called during Render();"

ให้เอา AllowSorting กับ AllowPaging ออกครับ

เท่านี้เราก็สามารถใช้ GridView ในการสร้าง Excel ได้แล้วครับ

ปัญหาเมื่อ export excel: The file you are trying to open, 'name.xls', is in a different format than specified by the file extension

2010-07-02T20:39:00.000+07:00

ช่วงนี้หลังจากที่ทำงาน migrate Office จาก 2003 เป็น 2007 ก็เจอปัญหาว่าโปรแกรมที่เราสร้างรายงาน Excel ด้วยวิธีการกำหนด Response.ContentType = "application/vnd.ms-excel" ได้ผลลัพธ์ตามปกติ แต่ว่าจะมี alert ขึ้นมาว่า

The file you are trying to open, 'name.xls', is in a different format than specified by the file extension. Verify that the file is not corrupted and is from a trusted source before opening the file. Do you want to open the file now?

จริงๆก็ไม่ได้มีปัญหาอะไรมากหรอกครับ เพราะแค่กด OK ก็เปิดดู Excel ได้ตามปกติ แต่หลังๆเริ่มมี user บ่นขึ้นเรื่อยๆ เลยลอง search ดูก็พบ article ที่เวบไมโครซอฟท์ครับ

When you open a file in Excel 2007, you receive a warning that the ...
Article ID: 948615 - Last Review: March 4, 2008 - Revision: 1.1
support.microsoft.com/kb/948615

วิธีแก้ก็ง่ายๆคือไปกำหนด registry นั่นเอง ผมก็เลยทำเป็นไฟล์ reg จะได้ส่งให้ user เฉพาะรายที่มีปัญหารันได้เลย (จริงๆแล้วเราสามารถใช้ Group Policy ในการแก้ปัญหานี้ได้ครับ ลองดูใน article ละกัน)

ก่อนอื่นก็สร้างไฟล์ชื่อ ExcelFileFormat.reg สำคัญตรงนามสกุลไฟล์ให้เป็น .reg นะครับ แล้วก็ใส่เขียนโค้ดดังนี้

REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security]
"ExtensionHardening"=dword:0

จากนั้นก็ save ไฟล์

พอต้องการใช้ ก็ double click ที่ไฟล์นี้ได้เลยครับ

ScriptMode ของ ScriptManager ต่างกันอย่างไร

2010-06-03T00:04:00.007+07:00

วันนี้เจอคำถามที่ GreatFriends เรื่อง ScriptMode ของ ScriptManager ซึ่งผมตอบไปแล้ว แต่ก็จะมาขยายความเพิ่มใน blog นี้ละกันครับ

ใน ScriptManager จะมี Property ตัวหนึ่งชื่อ ScriptMode ซึ่งมี option ให้เลือก 4 ข้อ คือ Auto, Inherit, Debug, Release เพื่อความเข้าใจที่ง่ายขึ้นมาลองทดสอบกันเลยครับ

จากรูปผมสร้าง page ใหม่โดยให้มี ScriptManager แค่ 1 ตัว กำหนด ScriptMode เป็น debug แล้วลองรันทดสอบดูครับ (ถ้าใช้ IE ต้องไปเอา Disable Script Debugging ของ IE ใน Option ออกก่อนนะครับ ถึงจะ debug script ได้)

ลองดูใน Script Document ของ VS จะเห็นว่านอกจาก Default.aspx แล้วยังมี WebResource 1 ไฟล์กับ ScriptResource อีก 2 ไฟล์เพิ่มขึ้นมา ตอนนี้เรามา focus ที่ ScriptResource ครับ ลอง double click มาตัวหนึ่ง จะเห็นว่าข้างในมันคือ javascript นี่เอง มีใส่ comment และ เว้นบรรทัดสวยงามอ่านง่ายครับ สังเกตุชื่อใน comment ครับ ว่ามันคือ MicrosoftAjax.debug.js

คราวนี้ลองเปลี่ยน ScriptMode เป็น Release ดูบ้าง

ลองรันดูครับ

จะสังเกตุว่าไฟล์ที่นำมาทำ ScriptResource จะเปลี่ยนไปเป็น MicrosoftAjax.js แทน ซึ่งมี comment นิดเดียวและก็โค้ดเรียงติดกันเป็นพรืด

โดยปกติเราไม่ค่อยได้ debug javascript พวกนี้อยู่แล้ว ก็สามารถกำหนด ScriptMode เป็น Release เลยก็ได้ครับ เพราะขนาดไฟล์จะเล็กกว่า ไม่กิน bandwidth ครับ

ส่วนถ้าเราเลือก ScriptMode เป็น Auto ตอนที่รันจะขึ้นอยู่กับว่า Web เราเลือก Configuration เป็น debug หรือว่า release ครับ WebServer จะไปเลือกไฟล์ js ที่ตรงกับ config ของเรามาสร้าง ScriptResource ให้

VB.NET ออกรายงาน Excel แบบรวดเร็ว

2010-03-27T15:04:00.001+07:00

โดยปกติเมื่อเราพัฒนาโปรแกรมทางธุรกิจ ที่หนีไม่พ้นก็คือต้องออกรายงานครับ และโดยส่วนใหญ่เรามักจะใช้ Crystal Report เพราะสะดวก ง่าย และรวดเร็วครับ ที่สำคัญเรายังสามารถ Export ข้อมูลออกเป็น Excel, Word หรือ PDF ก็ยังได้

แต่ถ้าเราไม่สามารถใช้ Crystal Report ได้ละ เช่นลูกค้าไม่มี License เป็นต้น ทางเลือกหนึ่งก็คือออกรายงานเป็น Excel ครับ ถ้าลูกค้ามี Licese ของ Microsoft Excel อยู่แล้วก็ไม่ยาก หรือเราอาจใช้ OWC (Office Web Componet) แทนก็ได้ ซึ่ง OWC สามารถดาวน์โหลดได้จากเวบของ Microsoft ครับ (ปัจจุบันผมใช้ OWC11) ซึ่งสามารถออกรายงาน รวมถึงสร้างกราฟได้ด้วย

แต่ข้อเสียของการใช้ Excel หรือ OWC คือ ช้าครับ แถมกิน CPU สูงมากโดยเฉพาะถ้าต้องวนลูปเพื่อใส่ข้อมูล วันนี้ผมจะนำเสนออีกวิธีในการออกรายงาน Excel ครับ นั่นคือเรานำข้อมูลที่ต้องการไปใส่ใน delimited file ก่อนเช่น .csv (CSV file), .txt (Tab delimited file), .prn (Spaced delimited, Formatted Text) หรือ .txt ที่เรากำหนด delimeter เอง เช่น ; หรือ : เป็นต้นครับ จากนั้นค่อยใช้ Excel หรือ OWC เปิดไฟล์พวกนี้ขึ้นมาเพื่อทำการตกแต่งรายงานให้สวยงาม เช่น ใส่ Header, กำหนดขนาด หรือ layout, ตีเส้นตาราง เป็นต้นครับ

ทีนี้มาลองดูการออกรายงานด้วย Tab Delimited ละกันครับ ผมเริ่มจากสร้าง Console Application มาตัวหนึ่ง แล้วก็ Add Reference ของ Microsoft Excel 12.0 Object Library ครับ

จากนั้นก็สร้างข้อมูลสำหรับทดสอบ โดยสร้าง Employee Class ขึนมา และ EmployeeManager Class สำหรับ สร้าง List ของ Employee ขนาด 100,000 ข้อมูลครับ


Public Class Employee
    Public EmployeeID As String
    Public FirstName As String
    Public LastName As String
    Public BirthDay As Date
    Public Salary As Double
End Class

Public Class EmployeeManager
    Public Shared Function GetEmployees() As IList(Of Employee)
        Dim employees As New List(Of Employee)
        Dim emp As Employee = Nothing
        For iRecord As Integer = 0 To 100000
            emp = New Employee With {.EmployeeID = iRecord, .FirstName = "Test" &  iRecord, .LastName = "LName", .BirthDay = DateSerial(1990, 1, 1), .Salary = 2000.0 + CDbl(iRecord)}
            employees.Add(emp)
        Next
        Return employees
    End Function
End Class

ทีนี้ก็มาเขียนโค้ดสำหรับการทดสอบกันครับ


Module Module1
    Const EU_DATE_FORMAT As String = "dd-MM-yyyy hh:mm:ss"
    Dim employees As IList(Of Employee)
    Dim startDate As Date = Now
    Dim endDate As Date = Nothing

    Private Sub DecorateExcel(ByVal xlsBook As Microsoft.Office.Interop.Excel.Workbook)

        Dim xlsSheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing
        xlsSheet = xlsBook.ActiveSheet
        xlsSheet.Range("A:E").EntireColumn.AutoFit()

        With xlsSheet.Range("A1").Font
            .Bold = True
            .Size = "14"
        End With

        With xlsSheet.Range("A2").Font
            .Bold = True
            .Size = "12"
        End With

        With xlsSheet.Range("A3:E3")
            .Interior.Color = System.Drawing.Color.Silver.ToArgb
            .Font.Bold = True
        End With

        xlsSheet.Range("E:E").NumberFormat = "#,##0.00"

        Dim r As Microsoft.Office.Interop.Excel.Range
        r = xlsSheet.Range("A3:E20004")

        With r.Borders
            .LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
            .Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThin
            .ColorIndex = 0
        End With

    End Sub

    Private Sub ExportByTAB()
        startDate = Now
        Console.WriteLine("Export by Tab delimited")
        Console.WriteLine("Start at " & startDate.ToString(EU_DATE_FORMAT))

        Dim _fileNameTAB As String = "C:\test.txt"
        Dim _fileName As String = "c:\testTAB.xlsx"

        Dim fs As System.IO.FileStream = System.IO.File.Create(_fileNameTAB)
        Dim writer As New System.IO.StreamWriter(fs)

        writer.WriteLine("List of Employee")
        writer.WriteLine("As of " & Now.ToString("dd MMM yyyy"))
        writer.WriteLine("Employee ID" & vbTab & "First Name" & vbTab & "Last Name" & vbTab & "Birth Date" & vbTab & "Salary")

        For Each emp As Employee In employees
            writer.WriteLine(String.Concat(emp.EmployeeID, vbTab, emp.FirstName, vbTab, emp.LastName, vbTab, emp.BirthDay.ToString("yyyy-MM-dd"), vbTab, emp.Salary))
        Next

        writer.Close()
        writer.Dispose()
        fs.Close()
        fs.Dispose()

        ' Open txt file with Excel for decoration
        Dim xlsAPP As New Microsoft.Office.Interop.Excel.Application
        Dim xlsBook As Microsoft.Office.Interop.Excel.Workbook
        xlsAPP.Visible = False
        xlsBook = xlsAPP.Workbooks.Open(_fileNameTAB)
        DecorateExcel(xlsBook)

        ' Save as Excel2007
        If System.IO.File.Exists(_fileName) Then System.IO.File.Delete(_fileName)
        xlsBook.SaveAs(_fileName, Microsoft.Office.Interop.Excel.XlFileFormat.xlOpenXMLWorkbook)
        xlsBook.Close(SaveChanges:=False)

        xlsAPP.Quit()

        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlsAPP)
        GC.SuppressFinalize(xlsAPP)
        GC.Collect()
        xlsBook = Nothing
        xlsAPP = Nothing

        System.IO.File.Delete(_fileNameTAB)

        endDate = Now
        Console.WriteLine("Finish at " & endDate.ToString(EU_DATE_FORMAT))
        Console.WriteLine("Total " & (endDate - startDate).TotalMilliseconds & " milliseconds")
        Console.WriteLine("***********************")

    End Sub

    Sub Main()

        employees = EmployeeManager.GetEmployees()
        Console.WriteLine("Testing for " & employees.Count - 1 & " records.")
        Console.WriteLine("")
        ExportByTAB()
        Console.WriteLine("Finish test.")
        Console.ReadLine()

    End Sub

End Module

ลองรันผลทดสอบดูครับ เครื่องผม Pentium 4 2.66GHz RAM 2 GB ข้อมูลขนาด 100,000 เรคคอร์ดใช้เวลา 7 วินาทีกว่าๆ

ข้อมูลขนาด 5,000 เรคอร์ด ใช้เวลา 2.1 วินาที

ลองดูผลลัพธ์ครับ

เรียบร้อยครับ ทีนี้ถ้าเราอยากจัด Layout สวยๆ เราสามารถเปิด Excel แล้วสั่งบันทึก Macro แล้วค่อยเอา source code ที่ได้ไปใส่เพิ่มใน DecorateExcel Function ครับ

ปล.
1. ผมลอง export โดยใช้ CSV ก็ได้ความเร็วไม่ต่างกันมากครับ
2. ผมลองวนลูปเก็บข้อมูลเข้า StringBuilder ก่อน แล้วค่อยเขียนไฟล์ ปรากฏว่าใช้เวลามากกว่าเปิดไฟล์แล้ววนลูปเขียนเข้าไปตรงๆเลยครับ

VB6 ติดต่อ ASP.NET WebService

2010-03-23T21:32:00.003+07:00

ช่วงนี้มีโอกาสกลับไปแก้โปรแกรมเก่าที่เขียนด้วย VB6 ครับ และแน่นอนงานที่แก้ก็คือให้โปรแกรมมันทำงานกับ WebServices ได้นั่นเอง หลังจากลองๆค้นไปค้นมา ก็เลยทำโปรแกรมทดสอบมาก่อนครับ

เริ่มต้นที่ ASP.NET WebServices กันก่อน แรกสุดก็สร้าง Employee Class ครับ


<Serializable()> _
<System.ComponentModel.DefaultProperty("EmployeeID")> _
Public Class Employee

    Private _employeeId As String
    Private _employeeName As String
    Private _employeeSurnam As String

    Public Property EmployeeSurname() As String
        Get
            Return _employeeSurnam
        End Get
        Set(ByVal value As String)
            _employeeSurnam = value
        End Set
    End Property

    Public Property EmployeeName() As String
        Get
            Return _employeeName
        End Get
        Set(ByVal value As String)
            _employeeName = value
        End Set
    End Property

    Public Property EmployeeId() As String
        Get
            Return _employeeId
        End Get
        Set(ByVal value As String)
            _employeeId = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return EmployeeId
    End Function

    Public Function Save() As Boolean
        Return True
    End Function

End Class

ที่จริงมี EmployeeManager Class ด้วย แต่ว่าขี้เกียจเอามาลงให้ดู ทีนี้ก็มาสร้าง WebServices กันครับ


Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

<WebService(Namespace:="http://jnithi/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class EmployeeWS
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function GetEmployee(ByVal empID As String) As Employee
        Dim emp As Employee = Nothing
        emp = EmployeeManager.GetEmployeeByID(empID)
        Return emp
    End Function

    <WebMethod()> _
    Public Function UpdateEmployee(ByVal empID As String, ByVal empName As String, ByVal empSurname As String) As Boolean
        Dim emp As Employee = Nothing
        Dim result As Boolean = False
        emp = EmployeeManager.GetEmployeeByID(empID)
        emp.EmployeeName = empName
        emp.EmployeeSurname = empSurname
        result = emp.Save
        Return result
    End Function

End Class

ลองรัน WebServices ดูครับ ไปที่ http://nithi/TestWeb/EmployeeWS.asmx จะเห็นว่ามี Service 2 ตัว ตามที่เราสร้างไว้ครับ กดเลือก GetEmployee เพื่อดู Service Description

ดูที่ SOAP 1.1 ครับ เดี๋ยวเราจะนำข้อมูลตรงนี้ไปใช้ในการเรียก WebService

ส่วนของ SOAP Request

ส่วนของ SOAP Response

คราวนี้มาที่ VB6 บ้าง เริ่มจากสร้าง Project ใหม่ จากนั้นก็สร้าง Class ชื่อ clsEmployee ครับ ให้มี Property 3 ตัวเหมือนฝั่ง .NET ทีนี้ก็มาสร้าง Class สำหรับจัดการ WebService ครับ ตั้งชื่อ clsEmployeeWS ก่อนอื่นก็ Add Reference ก่อนครับ เลือก Microsoft XML, v4.0 (ผมลองตั้งแต่ v 2.6 ก็ใช้ได้หมดครับ เลยเลือกอันกลางๆ)แล้วก็เขียนโค้ดได้เลย


Dim asmxURL As String
Dim soapAction As String
Dim soapEnvelop As String
Dim domResult As MSXML2.DOMDocument

Private Function GetResponse(URL As String, action As String, envelop As String) As MSXML2.DOMDocument
    Dim xmlHTTP As New MSXML2.xmlHTTP
    Dim domReturn As New MSXML2.DOMDocument
    Dim domDOC As New MSXML2.DOMDocument
    
    domDOC.loadXML envelop
    
    xmlHTTP.Open "POST", URL, False
    
    ' Create headings
    xmlHTTP.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
    xmlHTTP.setRequestHeader "SOAPAction", action
    
    ' Send
    xmlHTTP.send domDOC.xml
    domReturn.loadXML xmlHTTP.responseText
   
    
    Set xmlHTTP = Nothing
    Set domDOC = Nothing
    Set GetResponse = domReturn
End Function

ผมสร้าง Function ชื่อ GetResponse ไว้สำหรับติดต่อกับ WebServices ครับ Function นี้จะคืนค่าเป็น XMLDOMDocument มาให้ครับ ถ้าเราเรียก WebServices สำเร็จ ลอง debug ดูค่า domReturn.xml เพื่อดูผลลัพธ์ได้ครับ

เสร็จแล้วก็สร้าง Function สำหรับเรียกใช้งาน WebServices ครับ โดยใน GetEmployee Function เราจะระบุ parameter ที่ต้องการได้แก่ asmxURL, soapAction (ดูจาก SOAP Request ในรูปด้านบนครับ) แล้วก็ Envelop (copy มาจาก SOAP Request เหมือนกัน) แต่อย่าลืมเปลี่ยน parameter นะครับ ตรงบรรทัด " & empID & "


Public Function GetEmployee(empID) As clsEmployee
    asmxURL = "http://nithi/testweb/EmployeeWS.asmx"
    soapAction = "http://jnithi/GetEmployee"
    soapEnvelop = " " & _
                  "      " & _
                  "          " & _
                  "             " & _
                  "                 " & empID & " " & _
                  "              " & _
                  "          " & _
                  "      "
    Set domResult = GetResponse(asmxURL, soapAction, soapEnvelop)
    
    Dim oNode As MSXML2.IXMLDOMNode
    Dim oNodes As IXMLDOMNodeList

    'ดึง ... ผลลัพธ์ได้เป็น List (XMLDOMNodeList)
    Set oNodes = domResult.getElementsByTagName("GetEmployeeResult")
    Dim employee As clsEmployee

    If oNodes.length > 0 Then
        Set oNode = oNodes.Item(0)
        Set employee = New clsEmployee
        employee.EmployeeID = oNode.selectSingleNode("EmployeeId").Text
        employee.EmployeeName = oNode.selectSingleNode("EmployeeName").Text
        employee.EmployeeSurname = oNode.selectSingleNode("EmployeeSurname").Text
    End If
    Set GetEmployee = employee
End Function

คราวนี้มาทำหน้าจอทดสอบครับ


Private Sub ClearEmployee()
        Me.txtEmpID.Text = ""
        Me.txtEmpName.Text = ""
        Me.txtEmpSurname.Text = ""
End Sub

Private Sub cmdClear_Click()
    ClearEmployee
    Me.txtSearchID.Text = ""
End Sub

Private Sub cmdSearch_Click()
    Dim ws As New clsEmployeeWS
    Dim employee As clsEmployee

    'เรียก clsEmployeeWS ให้ติดต่อ WebServices
    Set employee = ws.GetEmployee(Me.txtSearchID.Text)
    If employee Is Nothing = False Then
        Me.txtEmpID.Text = employee.EmployeeID
        Me.txtEmpName.Text = employee.EmployeeName
        Me.txtEmpSurname.Text = employee.EmployeeSurname
    Else
        ClearEmployee
        MsgBox "Cannot find employee.", vbInformation + vbOKOnly, App.Title
    End If
End Sub

ลองรันดูผลลัพธ์ครับ

เรียบร้อย ไม่ยากครับ

จริงๆตอนทดสอบ ผมยังลองทำการ Insert, Update, Delete แล้วก็ SELECT ข้อมูลเป็น Array มาด้วย แต่คงไม่ได้เอามาลง Blog ให้ดูครับ เพราะถ้ารู้ concept แล้วที่เหลือก็ไม่ยากแล้วครับ

ลอง Chrome และ FireFox 3.6

2010-03-09T10:38:00.003+07:00

ผมเคย download หมาย่างมาลองใช้ตั้งแต่เวอร์ชัน 1.x จนล่าสุดในเครื่องเป็นเวอร์ชัน 2.x แต่แค่ลองคลำๆดูก็เลิกกลับมาใช้ IE เหมือนเดิม เพราะว่าใช้ FF แล้วเข้าไป Pantip แล้ว font มันไม่สวย ตัวเล็ก อ่านยากกกกก และเวบไทยหลายๆเวบแนะนำให้ใช้ IE มากกว่า

จนเมื่อวานนี้ได้ลองดาวน์โหลด Chrome มาใช้ มันเยี่ยมมาก เร็วและดี เลยลอง search ใน google เรื่อง Browser ต่างๆเพิ่มเติม จนเจอว่า FF มันมี option ให้ set font ได้ (จริงๆถ้าตั้งใจเล่นก็น่าจะ set เองได้ตั้งนานแล้ว มัวแต่ติด IE) พอลอง set ตามและเข้า Pantip และเวบอื่นๆที่เล่นบ่อยๆดู โอ้ว จอร์จ ไม่น่าโง่ตั้งนาน ก็เลยรีบไปดาวน์โหลด FF3.6 ภาษาไทยที่ http://www.mozilla.com/th/ และก็ติดตั้ง Extension พวก FireBug, WebDeveloper มาลองเล่นดู เพราะเคยอ่านเจอใน Textbook ครับ อยากลองเล่นมานานแล้วแต่ขี้เกียจลง FF

เมื่อคืนก็เลยลอง Chrome กับ FF อยู่ 3-4 ชั่วโมง สรุปว่าส่วนตัวผมชอบ Chrome มากกว่า ตอนนี้เลยใช้ Chrome เป็นหลัก ยกเว้นเข้าบางเวบก็จะใช้ IE ครับ ส่วน FF ก็ชอบอยู่นะก็จะลองใช้สลับกับ Chrome ดูครับ

ว่างๆจะลองโหลด IE8 กับ Opera มาเล่นดูบ้าง ไม่ได้เล่น Opera มานานมากแล้ว

ปล. วันนี้ป่วยลางานอยู่บ้านครับ เพราะเป็นฝีฝักบัวโดนหมอผ่าก้อนฝีออกเท่ามะนาวลูกย่อมๆ (หมอบอก เพราะผมหลับตาปี๋ไม่กล้ามอง) หมอยังไม่เย็บแผลเลย ตอนนี้เอาผ้าก็อซใหญ่กว่าหัวแม่โป้ง (อันนี้เห็นตอนทำแผล) ยัดเข้าไปแล้วปิดแผลไว้ รอดูอาการถ้าดีขึ้นถึงจะเย็บแผล ระหว่างพิมพ์ blog ยังมีรูโบ๋อยู่ที่หน้าท้องอยู่เลย 555

ปล.2 ตอนทำความสะอาดแผล เจ็บโครตๆๆๆ แต่ยังน่าจะน้อยกว่าผู้หญิงคลอดลูกเยอะ T_T ดังนั้นชาติหน้าขอเกิดเป็นผู้ชายอีกนะคร้าบบบบ

ส่ง URL Parameter ให้ ClickOnce Application

2010-02-24T12:10:00.004+07:00

ผมเคยเขียน blog เรื่อง สั่งรัน Win App บนเครื่อง Client เมื่อเดือนธันวาคม 2009 แล้วก็ติดเรื่องส่ง paramenter ให้ ClickOnce application เอาไว้ครับ วันนี้มีโอกาสก็เลยมาเขียนเรื่องนี้ซะเลย

ก่อนอื่นเราก็มาสร้าง Console Application สำหรับการทดสอบซะก่อนครับ จากนั้นก็ Add .NET Reference เข้ามาในโปรเจคเรา 2 ตัว คือ System.Deployment กับ System.Web ครับ แล้วก็เขียนโค้ด Import NameSpace ที่จำเป็นเข้าในด้วย


Imports System.Collections.Specialized
Imports System.Deployment.Application
Imports System.Web

Module Module1

    Sub Main()
        Dim params = GetURLParameter()
        If params.Count > 0 Then
            For i As Integer = 0 To params.Count - 1
                Console.WriteLine("Parameter {0} is {1}", params.Keys(i), params.Item(i))
            Next
        Else
            Console.WriteLine("No URL Parameter")
        End If
        Console.WriteLine("Press any key to quit.")
        Console.ReadLine()

    End Sub

    Private Function GetURLParameter() As NameValueCollection
        Dim NameValueTable As New NameValueCollection

        If (My.Application.IsNetworkDeployed) Then
            Dim QueryString As String = ApplicationDeployment.CurrentDeployment.ActivationUri.Query
            NameValueTable = HttpUtility.ParseQueryString(QueryString)
        End If

        Return NameValueTable
    End Function

End Module

โค้ดที่ใช้ทดสอบมีเท่านี้ ไม่ยากใช่ไหมครับ แต่ที่สำคัญอีกอย่างหนึ่งก็คือ เราต้องกำหนดให้ ClickOnce Application ของเราสามารถรับ URL Parameters ได้ก่อน โดยไปที่ Property ของโปรเจค แล้วเลือก Publish Tab ครับ

ทีนี้เราจะเห็นปุ่ม OPTIONS กดเข้าไปได้เลยครับ

แล้วก็ทำการเลือก Manifests และคลิ๊กเครื่องหมายถูกตรง Allow URL parameters

เสร็จแล้วก็ทำการ Publish ครับ ทีนี้เรามาลองทดสอบเรียก ClickOnce Application แบบไม่ส่ง parameter ก่อน

โปรแกรมขึ้นว่า No parameter ถูกต้อง คราวนี้ลองทดสอบแบบส่ง QueryString ไปด้วย
(http://nithi/COParameter/CoParameter.application?param1=test1&param2=test2&name=nithi)

เรียบร้อยครับ คราวนี้เราก็สามารถส่ง URL Parameter ไปให้ Application ของเราได้แล้วครับ

Reference:
How to: Retrieve Query String Information in a ClickOnce Application

สถิติของ blog จาก Google Analytics

2010-02-22T21:50:00.001+07:00

หลังจากผมได้ลองใช้ Google Analytics มาประมาณ 6 เดือน พอจะสรุปผลคร่าวๆดังนี้ครับ

1. ผู้เยี่ยมชมส่วนใหญ่มาจาก google ครับ ประมาณ 75%
2. เนื้อหายอดนิยมได้แก่ Crystal Report, RDLC, ITextSharp, jQuery น่าจะมาจากการค้นหาใน google
3. 30 วันแรกของ Blog ผู้เยียมชมโดยตรงมี 78 page view คิดเป็นอัตราส่วนประมาณ 11% ส่วนเดือนล่าสุดเพิ่มเป็น 281 (19.18%)
4. วันที่คนมีอัตราเยี่ยมชมสูงสุดคือวันพฤหัส ตอนนี้ pageview สูงสุดอยู่ที่ 72 pv ต่อวันครับ (ยังน้อยอยู่เทียบกับบาง blog ที่มีผู้เยี่ยมชมหลักพัน) วันที่คนเยี่ยมชมน้อยสุดคือวันอาทิตย์ ประมาณ 15-20 pv รวม 30 วันล่าสุดอยู่ที่ 1,465 pv
5. อัตราการเข้าชมโดยตรง ผมแปลกใจมากเพราะอันดับ 1 มาจาก CodeToday.net ครับ (จำได้ว่าผมไป post url ของ blog แค่ครั้งเดียว) อยู่ที่ 2.8% อันดับสองคือ blogger อยู่ที่ 1.57% ส่วน greatfriends อยู่ที่อันดับ 3 ที่ 0.89%

จากที่ได้ลองใช้มา รู้สึกว่า Google Analytics นี่ใช้ง่ายและเครื่องมือเยอะดีครับ แต่ยังต้องศึกษาอีกเยอะทีเดียว เดี๋ยวรอครบ 1 ปี จะมาลองดูใหม่ว่าอัตราการเยี่ยมชมมีอะไรเปลี่ยนแปลงบ้างครับ

ASP.NET สั่งเคลียร์ Session เมื่อเปลี่ยน Page

2010-02-21T00:46:00.002+07:00

วันนี้เจอคำถามที่ greatfriends ว่าเมื่อ User ปิด Browser หรือเปลี่ยน Page เราต้องการไปเคลียร์ Session ของ Page เดิมจะทำยังไงดี

ถ้าเป็นเรื่องปิด Browser หรือว่า User ไปเปิดเวบอื่นคงไม่มีปัญหาครับ เพราะ ASP.NET มันจะเคลียร์ค่าให้เมื่อ Session Time Out อยู่แล้ว ซึ่งเราก็สามารถเขียนโค้ดใน Session_End ที่ Global.asax เพิ่มเติมก็ได้ แต่ปัญหาคือถ้า user เปลี่ยนหน้า เราจะทำยังไงดี สิ่งแรกที่ผมคิดคือ เรากำหนดให้มัน Post Back กลับมาหน้าเดิมก่อน เพื่อสั่ง Clear Session จากนั้นเราค่อยสั่ง Navigate ไปยังหน้าที่ต้องการอีกที

เช่นสมมติ เรามี User Control 1 ตัว เป็นเมนูสำหรับ Application เราใช้ <asp: Menu> และสร้าง <asp:MenuItem> เพื่อระบุเมนูย่อย แทนที่เราจะใช้ NavigateUrl Attribute เพื่อสั่ง Redirect ไปหน้าใหม่ทันที่ เราก็มาเขียนโค้ดที่ MenuItemClick Event แทนครับ

พอตอนเย็นก็นึกวิธีใหม่ออก ก็เลยมาลองดูครับ วิธีนี้คือ เราใช้ ASP.NET AJAX มาเรียก WebService เพื่อทำการ Clear Session นั่นเองครับ ลองมาดูโค้ดของ WebService กันก่อน


Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

Namespace jNithi.WS
    <System.Web.Script.Services.ScriptService()> _
    <WebService(Namespace:="http://tempuri.org/")> _
    <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    Public Class SessionManager
        Inherits System.Web.Services.WebService

        <Script.Services.ScriptMethod()> _
        <WebMethod()> _
        Public Function ClearSession(ByVal sessionName As String) As Boolean
            Dim session As System.Web.SessionState.HttpSessionState
            session = System.Web.HttpContext.Current.Session

            If session(sessionName) IsNot Nothing Then
                Select Case sessionName.ToUpper
                    Case "SESSION_RECEIPT_REPORT"
                        DirectCast(session(sessionName), CrystalDecisions.CrystalReports.Engine.ReportDocument).Dispose()
                    Case "SESSION_RECEIPT_DATA"
                        DirectCast(session(sessionName), IList).Clear()
                    Case Else
                End Select
                session(sessionName) = Nothing
                session.Remove(sessionName)
            End If

        End Function

    End Class

End Namespace

ทีนี้ในหน้า aspx เราก็เขียน javascript สำหรับมาเรียก Webservice ตัวนี้ครับ


<script type="text/javascript">
    function Body_OnUnload() {
         jNithi.WS.SessionManager.ClearSession('SESSION_RECEIPT_REPORT');          
    }
        
</script>
</head>
<body onunload="Body_OnUnload();">
    <form id="form1" runat="server">

    <asp:ScriptManager ID = "ScriptManager1" runat="server" >
        <services>
            <asp:ServiceReference Path="~/wsSession.asmx" />
        </services>
        
    </asp:ScriptManager>

เท่าที่ลองทดสอบดู ก็ใช้งานได้ผลโอเคนะครับ เมื่อเราเปลี่ยนหน้า หรือปิด Browser มันจะไปเรียก WebService เพื่อสั่ง Clear Session ให้ แต่มีข้อแม้นิดหนึ่งครับ คือ onunload event ของ Body นั้นมันจะทำงานทุกครั้งที่มีการเปลี่ยนหน้า นั่นคือ ถ้ามีการ PostBack กลับไป มันก็จะเกิด Event นี้ด้วยครับ แต่ถ้าเราออกแบบ ASP.NET AJAX Page ของเราดีๆ ไม่ให้มีการ Post Back กลับไป แนวคิดนี้ก็ทำงานได้โอเคครับ

เดี๋ยวคงต้องขอทดสอบอีกซักพัก ก่อนจะเอาไปใช้จริงครับ

Crystal Report - สร้างรายงานให้ user กำหนดเงื่อนไข Group ได้เอง (Dynamic Group By)

2010-02-09T21:28:00.003+07:00

วันนี้เรามาดูเทคนิคของ Crystal Report อีกครั้งครับ (เนื่องจากดูใน Google Analytics เห็นคนชอบบทความเกี่ยวกับ Crystal Report เป็นพิเศษ) คราวนี้เราจะมาสร้างรายงานที่สามารถให้ user กำหนด Group By ได้เองตามใจ Blog นี้จะทำแค่ Group by 1 ระดับให้ดู แต่เราสามารถประยุกต์ใช้ให้ user เลือก group ได้มากกว่า 1 ระดับ รวมถึงสามารถกำหนดเงื่อนไข sort by ได้ด้วย

ก่อนอื่นเลยสิ่งที่จำเป็นก็คือ เราต้องสร้าง Parameter Field ขึ้นมาก่อน เพื่อรับค่า parameter จาก user ว่าต้องการให้ group by column ไหนของข้อมูลครับ จากตัวอย่างผมสร้าง Parameter Field ชื่อ pGroupBy

จากนั้นก็สร้าง Formula Field เพื่อนำค่าที่ได้จาก Parameter Field มาคำนวนหา column ที่ต้องการ group ครับ
ในตัวอย่างผมสร้าง Formula Field ชื่อ GroupBy

จากโค้ดใน Formula Editor ผมใช้ IF THEN ELSE ซ้อนกัน (ที่จริงน่าใช้ Switch Case แต่ผมขี้เกียจแก้แล้ว) สังเกตุว่าถ้า user ส่ง parameter มาเป็น Dept ผมจะให้ Group By Formula Field อีกที นอกนั้นก็จะ Group By Database Field ตามปกติครับ

คราวนี้มาดูหน้าเวบกันบ้างครับ ผมก็สร้าง Drop-down List มา 1 ตัว ชื่อ ddlGroupBy และใส่ List ที่ต้องการไว้


</asp:DropDownList ID="ddlGroupBy" runat="server" style="position:absolute;left:100px;top:10px" CssClass="txtOptional"  Width="110px" EnableTheming="False" EnableViewState="False" >
     </asp:ListItem Text="Client" Value="Client" Selected="True"></asp:ListItem>
     </asp:ListItem Text="Most Work Lawyer" Value="MostWorkLawyer"></asp:ListItem>
     </asp:ListItem Text="Resp. Lawyer" Value = "RespStaff"></asp:ListItem>
     </asp:ListItem Text="Department" Value="Dept" ></asp:ListItem>
</asp:DropDownList>

ตอนสร้างรายงานก็อย่าลืม SetParameterValue ด้วยครับ


Dim reportDoc As New ReportDocument
reportDoc.FileName = Server.MapPath("~/Reports/AR/rptAgingReport.rpt")
reportDoc.SetDataSource(ARReportResults)
reportDoc.SetParameterValue("pGroupBy", ddlGroupBy.SelectedValue)
reportDoc.SetParameterValue("AsOfDate", asOfDate)

เท่านี้ก็เรียบร้อยแล้วครับ ทีนี้ user ก็สามารถเลือก column ที่ต้องการ Group By ได้ตามใจครับ

Crystal Report - แสดงข้อความหลายคอลัมภ์ด้วย RTF Text Interpretation

2010-01-29T22:32:00.001+07:00

วันก่อนได้รับ requirement ว่าในรายงานตัวหนึ่ง ต้องการให้แสดง Report Footer เพื่อแสดงข้อมูลตามเงื่อนไข โดยข้อมูลดังกล่าวต้องสามารถ ทำตัวหนา ตัวเอียง สำหรับข้อมูลที่ต้องการเน้น และจัดรูปแบบเป็น 2 คอลัมภ์ ซึ่งใน Report Footer มีทั้งหมด 5 ส่วน ส่วนดังกล่าวเป็นส่วนที่ 4

เริ่มแรกผมสร้าง Parameter Field มา 1 ตัว ชื่อ PaymentAccount และสร้าง Text Object มา 1ตัว และลาก Payment Account มาใส่ใน Text Object เพื่อให้เป็น Embedded Field เราจะได้สามารถกำหนด Text Interpretation ได้ครับ (จากรูปสังเกตุว่าเป็น Report Footer d)

เสร็จแล้วคลิ๊กเมาส์ขวาที่ Text Object ที่สร้างขึ้น เลือก Property แล้วคลิ๊กเครื่องหมายถูกที่ Can Grow ใส่ตัวเลข 0 คือไม่จำกัดบรรทัดลงไป เพื่อให้ Object นี้มันยืดได้

ต่อไปก็กำหนด Text Interpretation โดยการ double click ที่ Text Object แล้วเลือก Embedded field คลิ๊กเมาส์ขวา เลือก Format Embedded Field

เสร็จแล้วก็เลือก Paragraph Tab เลือก Text Interpretation เป็น RTF Interpretation

เสร็จขั้นตอนของรายงานแล้ว ทีนี้ก็มาเขียนโค้ดสำหรับสร้างข้อมูล RTF ครับ


Public Shared Function GetAccount(ByVal coCode As String) As String
   Dim sb As New Text.StringBuilder

   'Set RTF1, ANSI Page and Font-family
   sb.AppendLine("{\rtf1\ansi\ansicpg1252\deff0\deflang1033\deflangfe1033{\fonttbl{\f0\fswiss\fprq2\fcharset0 Arial;}}")

   'Set Tab (at 0.5 in and 2.5 in) and Font-size
   sb.AppendLine("\viewkind4\uc1\pard\nowidctlpar\sa200\sl276\slmult1\tx720\tx3600\f0\fs20")

   'Insert first blank line
   sb.AppendLine("\tab \par ")
   Select Case coCode
       Case "Nithi"
           sb.AppendLine("\tab Account Name \tab Nithi Juabsami \par ")
           sb.AppendLine("\tab Savings Account No.: \tab 1-1111-1111, USD account. \par")
           sb.AppendLine("\tab Bank Name: \tab Citibank, N.A. \par ")
           sb.AppendLine("\tab Bank Address: \tab 82 North Sathorn Road \par ")
           sb.AppendLine("\tab \tab Silom, Bangrak, \par ")
           sb.AppendLine("\tab \tab Bangkok 10500, Thailand \par ")
           sb.AppendLine("\tab -or- \par ")
           sb.AppendLine("\tab Account Name: \tab Nithi Juabsamai \par ")
           sb.AppendLine("\tab Savings Account No.: \tab x-xxxx-xxxx \par ")
           sb.AppendLine("\tab Bank Name: \tab The Siam Commercial Bank Plc., Thanon Witthayu Branch \par ")
           sb.AppendLine("\tab Bank Address: \tab 132 Wireless Road, Lumpini, Bangkok 10330 \par ")
       Case "jNithi"
           sb.AppendLine("\tab Account Name: \tab jNithi O.P.  \par  ")
           sb.AppendLine("\tab Bank Account No.: \tab xxx-xxxxxx-xxx (USD), Current Account  \par  ")
           sb.AppendLine("\tab Name of Bank: \tab The Siam Commercial Bank Plc., Thanon Witthayu Branch.  \par  ")
           sb.AppendLine("\tab Bank Address: \tab 132 Wireless Road, Lumpini, Bangkok 10330 \par ")
      Case Else
   End Select

   ' Insert bottom blank line
   sb.AppendLine("\tab \par ")

   ' SET end of RTF
   sb.AppendLine("}")
   Return sb.ToString
End Function

มาดูรายละเอียดกันครับ
{\rtf1\ansi\ansicpg1252\deff0\deflang1033\deflangfe1033{\fonttbl{\f0\fswiss\fprq2\fcharset0 Arial;}}
บรรทัดนี้เรากำหนด RTF Format และกำหนดให้ใช้ ANSI PAGE 1252 และ font คือ Arial

\viewkind4\uc1\pard\nowidctlpar\sa200\sl276\slmult1\tx720\tx3600\f0\fs20
บรรทัดนี้เรากำหนดให้เอกสารเรามี tab 2 อัน อันแรกคือ tx720 แปลว่าอยู่ที่ 720 twips หรือ 0.5 นิ้ว (โดยปกติ 1นิ้ว จะเท่ากับ 1440 twips) และอันที่สองคือ tx3600 คือ 3600 twips หรือ 2.5นิ้ว ส่วน fs20 คือขนาดของ font เท่ากับ 10 pt ครับ

\tab Account Name \tab Nithi Juabsami \par
แปลว่าพิมพ์ tab 1 ครั้ง (คือเลื่อนไปตำแหน่งที่ 0.5 นิ้วที่กำหนด) พิมพ์คำว่า Account Name แล้วพิมพ์ tab (เลื่อนไปยังตำแหน่ง 2.5 นิ้ว พิมพ์ Nithi Juabsamai แล้วขึ้นบรรทัดใหม่ (\par)

ตอนเขียนโค้ดสั่ง Report ก็เรียกฟังก์ชันนี้เพื่อส่ง parameter ให้ Crystal Report


rpt = New rptTestReceipt
rpt.SetDataSource(_receipt)
rpt.SetParameterValue("AsOfDate", AsOfDate.ToString("dd MMM yyyy"))
rpt.SetParameterValue("PaymentAccount", PaymentAccount.GetAccount(_receipt(0).CoCode))

คราวนี้ลองรันดูผลลัพธ์ครับ

เรียบร้อยครับ ตอนนี้ข้อมูล Payment Account ของเราก็แสดงเป็น 2 column (ซึ่งเราแบ่งด้วย Tab) ถ้าต้องการเพิ่ม Column เราก็สามารถกำหนด tab ที่ตำแหน่งที่ต้องการเพิ่มได้ครับ

ที่จริงเราสามารถกำหนด HTML Interpretation ได้ครับ แต่ว่า Cystal Report รองรับแค่ subset ของ HTML ครับ คือรองรับได้แค่บาง tag ซึ่ง tag อย่าง table ไม่รองรับครับ ผมเลยเปลี่ยนมาใช้ RTF Interpretation แทน

หมายเหตุ
จริงๆแล้วเราสามารถใช้ Word Pad ที่มาพร้อม Windows ในการจัดเอกสารตามต้องการ สามารถกำหนดตัวหนา ตัวเอียงได้ตามสะดวก แล้ว save เป็น rtf ไฟล์ จากนั้นก็ใช้ Note Pad เปิดมา copy ใส่ได้เลยครับ แต่อย่าใช้ Microsoft Word นะครับ เพราะมันจะใส่ tag เพิ่มเติมมาเยอะแยะจนน่าเวียนหัว

SQL Server - เก็บผลลัพธ์จาก Stored Procedure ลงในตาราง

2010-01-13T23:51:00.001+07:00

ปกติผมก็ใช้ Stored Procedure ใน SQL Server เสมอๆครับ ซึ่งพอเรา execute stored procedure ก็จะได้ result set มาใช้งาน แต่ทีนี้ถ้าเราต้องการทำ query result set ที่ได้ละจะทำยังไงดี ถ้าเป็นเมื่อก่อนผมก็ copy stored procedure มาสร้างใหม่แล้วแก้คำสั่งข้างในให้ทำ query เพิ่มไปเลย เช่นไป join object อื่น หรือสั่ง where สั่ง group by ฯลฯ แล้วแต่ต้องการ

หรืออีกวิธีก็สั่ง CREATE TABLE ก่อน แล้วก็ INSERT ข้อมูลที่ได้จาก Stored Procedure ซึ่งวิธีนี้ถ้ามันมีหลาย field ตอนสั่ง CREATE TABLE ก็เหนื่อยไม่ใช่เล่น ซึ่งวิธีนี้ใช้บ่อยโดยเฉพาะอย่างยิ่ง stored procedure ของระบบ เช่นพวก sp_who2, sp_lock เป็นต้น ลองดูตัวอย่างครับ


CREATE TABLE #locks (spid int, dbid int, objid int,
 indid int, [type] varchar(4), resource varchar(50), mode varchar(2), status varchar(10));

INSERT INTO #locks (spid, dbid, objid, indid, [type], resource, mode, status)
EXEC dbo.sp_lock;

SELECT * FROM #locks;

DROP TABLE #locks;

อันนี้ตัวอย่างแค่ 8 fields ยังเหงื่อตก เพราะเทสกันหลายรอบครับ ทีแรกผมกำหนด datatype ไม่ถูกมันก็ error ใส่ ขนาดน้อยไปเช่น resource varchar(10) ก็ error ครับ

วันนี้ผมมีวิธีใหม่มาเสนอครับ ลองดูโค้ดละกัน


SELECT * INTO #tmpWho FROM OPENROWSET('SQLNCLI', 'Server=testSQLServer;Trusted_Connection=yes;', 'EXEC sp_who') ;

SELECT * FROM #tmpWho Where dbname='master' and loginame = 'sa';

DROP TABLE #tmpWho;

ครับ โค้ดนี้เราใช้คำสั่ง OPENROWSET ร่วมกับ SELECT INTO นั่นเอง สะดวกดีมากทีเดียว 555

คราวนี้มาดูตัวอย่างการใช้งานจริงบ้าง


SELECT * INTO tempTestOutput FROM OPENROWSET ('SQLNCLI', 'Server=testSQLServer;Trusted_Connection=yes;', 'EXEC testDB.dbo.spTestOutput ''testParameter1'''); 

SELECT t.*, e.Department, e.HiredDate
FROM tempTestOutput t INNER JOIN Employee e ON t.EmployeeId = e.EmployeeId
WHERE e.ResignedDate IS NULL
ORDER BY t.EmployeeId

คราวนี้ผมก็ได้ temp table เอาไว้ยำข้อมูลแล้วครับ เสร็จแล้วก็อย่าลืม DROP TABLE ด้วยนะ

Referrence
www.stackoverflow.com - How to SELECT * INTO [temp table] FROM [Stored Procedure]

VB.NET เขียนโค้ดควบคุม Object ของ Crystal Report

2010-01-06T22:35:00.001+07:00

หลายๆคนที่พัฒนาซอฟท์แวร์ทางธุรกิจก็หนีไม่พ้นที่จะต้องทำรายงาน และที่นิยมมากสำหรับนักพัฒนา .NET ก็คงหนีไม่พ้น Crystal Report นั่นเองครับ ซึ่งใช้งานไม่ยาก ยืดหยุ่น และมีฟังก์ชันมากมายให้ใช้งาน และความยอดเยียมอีกอย่างก็คือ เราสามารถเขียนโค้ดเพื่อควบคุม Crystal Report ได้ด้วย

ลองมาดูตัวอย่างจากคำถามที่ greatfriends ละกันครับ

How to Return total page in crystal report to VB -- HELP ME!!
http://greatfriends.biz/?118103

ปัญหามีอยู่ว่า ผมมี crstal report ที่สร้างออกมาเป็น PDF และก็ต้องเอามก Merge กับ File Attach ที่เป็น PDF ให้เป็น ไฟล์เดียว โดย File ที่ Attach นั้นจะต้องอยู่ตรงกลางระหว่างไฟล์ PDF แรก ซึ่งเลขหน้าเวลา Count จะไม่ถูกต้อง เพราะผม แบ่งไฟล์ PDF แรกเป็นสองส่วน โดยเป็นส่วนหัวและท้าย ซึ่งเวลามัน count page ก็จะแยกกันซึ่งไม่ถูกต้อง คือสมมติ ส่วนหัวมี 10 หน้า และท้าย 5 หน้ามันแสดงเป็น 1 of 10 และ ส่วนท้ายแสดงเป็น 1 of 5 ซึ่งส่วนท้ายต้องเป็น 11 of 15

ผมจึงคิดว่าให้ ส่วนหัว ส่งค่ากลับมาที่ vb ว่ามีจำหน้าทั้งหมดเท่าไหร่ และผมจะส่ง เป็น Parameter ให้กับส่วนท้าย
นะครับ แต่วิธีส่งค่ากลับมาวีบี ทำไงอะครับ ผมรู้สึกว่ามันไม่มีทาง แต่ท่านใดมีแนวทางอื่น ช่วยผมทีครับ

ผมตอบไว้ดังนี้ครับ
สมมติว่าผมสร้าง ITextObject 1 ตัวเอาไว้ที่ Report Footer ของ Crystal Report ตั้งชื่อ txtTotalPage แล้วเอาค่าของ PageNo มาใส่ไว้

ในโค้ด VB


Dim rptDoc As New ReportDocument
rptDoc.FileName = Server.MapPath("~/Reports/Test.rpt")
rptDoc.SetDataSource(DataSet1)
rptDoc.SetParameterValue(0, CDate(Me.txtAsOfDate.Text).ToString("dd MMMM yyyy"))

Dim txtTotalPage As TextObject = TryCast(rptDoc.ReportDefinition.ReportObjects("txtTotalPage"),  CrystalDecisions.CrystalReports.Engine.TextObject)

Dim TotalPage As Integer = 0
If  IsNumeric(txtUSAmount.Text) Then
    TotalPage = CInt(txtUsAmount.Text)
End If

เสร็จแล้วก็เอา TotalPage ไปเป็น Parameter ของ report ตัวที่สอง จากนั้นก็ Export รายงานทั้ง 2 ตัว เป็น pdf แล้วเอามา merge กัน

ทีนี้นอกจาก เราจะอ่านค่าจาก TextObject เรายังสามารถใส่ค่าเข้าไปให้ TextObject ก็ได้ หรือว่าจะกำหนด property อื่นๆ เช่น Top, Width, EnableSuppress ....

ลองดูตัวอย่างครับ


Dim pos As Integer
Dim iCurrency As Integer
Dim txtEUAmount As TextObject = rptDoc.ReportDefinition.ReportObjects("txtEUAmount")
Dim txtEUSum As ReportObject = rptDoc.ReportDefinition.ReportObjects("txtEUSum")

'เรียก function เพื่อตรวจสอบเงื่อนไขสกุลเงิน
If IsContainCurrency(ARStatementOfAccounts, "EUR") Then
     iCurrency += 1
     pos = CalculateObjectPosition(iCurrency) ' เรียกฟังก์ชันสำหรับคำนวณตำแหน่งของ Object ใน Detail
     txtEUAmount.Left = pos
     pos = CalculateSumObjectPosition(iCurrency) 'เรียกฟังก์ชันสำหรับคำนวนตำแหน่งของ Object ใน Group Footer
     txtEUSum.Top = pos
Else
     txtEUAmount.Text = ""
     txtEUSum.ObjectFormat.EnableSuppress = True
End If

pos = 920 + (iCurrency - 1) * 280
DirectCast(rptDoc.ReportDefinition.ReportObjects("LineFV0"), LineObject).Bottom = pos

จะสังเกตุว่ามีการประกาศตัวแปร TextObject และ ReportObject ครับ ซึ่ง ReportObject นั้นเป็น Base Class ของ Object ต่างๆ เช่น LineObject, TextObject ใน Crystal นั่นเอง ดังนั้นถ้าเรารู้ Type แน่นอน เราสามารถทำการ Casting เพื่อกำหนด property เฉพาะของ Type นั้นๆได้ครับ

ก็ไม่ยากใช่ไหมครับ ตอนนี้เราสามารถเขียนโปรแกรมเพื่อทำ Dynamic Layout ของ Crystal Report ได้แล้ว

เปรียบเทียบ DataTable ด้วย LINQ

2009-12-17T22:36:00.001+07:00

วันก่อนได้มีโอกาสลองใช้ LINQ กับ DataTable ดูครับ นั่นคือถ้าเรามี data table 2 ตัวที่มี schema เหมือนกัน อยากรู้ว่าข้อมูลใน data table ตัวแรก กับ ตัวที่สองมี row ไหน ที่เหมือนหรือต่างกันบ้าง วิธีเดิมๆคือเราเขียนลูปไล่ตรวจสอบที่ละ row เอง ซึ่งจริงๆก็ไม่ยากครับ แต่สำหรับ .NET Framework 3.5 นั้นง่ายกว่าเดิม เพราะเราสามารถใช้ LINQ ทำงานแทนได้ครับ ลองดูโค้ดกัน ก่อนอื่นเรามาเตรียม DataTable ทั้ง 2 ตัวก่อน


'เตรียมข้อมูล Data1 ให้มี 7 row ตั้งแต่ 0-6
Dim dt1 As New Data.DataTable("Data1")
Dim dr1 As DataRow = Nothing
dt1.Columns.Add(New Data.DataColumn("ID"))
dt1.Columns.Add(New Data.DataColumn("Name"))
For iRecord As Integer = 0 To 6
dr1 = dt1.NewRow()
dr1.Item("ID") = iRecord
dr1.Item("Name") = "Test" & iRecord
dt1.Rows.Add(dr1)
Next

'เตรียมข้อมูล Data2 ให้มี 7 rows ตั้งแต่ 4 - 10
Dim dt2 As New Data.DataTable("Data2")
Dim dr2 As DataRow = Nothing
dt2.Columns.Add(New Data.DataColumn("ID"))
dt2.Columns.Add(New Data.DataColumn("Name"))
For iRecord As Integer = 4 To 10
dr2 = dt2.NewRow()
dr2.Item("ID") = iRecord
dr2.Item("Name") = "Test" & iRecord
dt2.Rows.Add(dr2)
Next

ทีนี้ถ้าเราอยากจะหาเฉพาะ DataRow ของ Data1 ที่ไม่ซ้ำกับใน Data2 เราสามารถสั่ง Data1 ExceptRow Data2 ได้ครับ แต่ก่อนอื่นเราต้องแปลง DataTable ให้เป็น Enumerable ก่อนเพราะว่าคำสั่ง Except ไม่มีใน Extension Method ของ DataTable ครับ แต่มีใน System.Linq.Enumerable


Dim r1 = dt1.AsEnumerable()
Dim r2 = dt2.AsEnumerable()

ตัว r1 และ r2 จะมี type เป็น System.Data.EnumerableRowCollection(Of System.Data.DataRow) ครับ ทีนี้เราจะเห็นมี Extension Method ชื่อ Except ให้เรียกใช้ได้แล้ว


Dim ExceptResult = r1.Except(r2, DataRowComparer.Default)
Dim IntersectResult = r2.Intersect(r1, DataRowComparer.Default)

จะสังเกตุว่าผมใส่ DataRowComparer.Default เป็น parameter ด้วย สำหรับ Comparer นั้นเราอาจจะเขียนเองก็ได้ครับ ถ้าเรามีเงื่อนไขในการเปรียบเทียบ DataRow ของเราเอง เช่นต้องการเทียบเฉพาะ Primary Key หรือเฉพาะบาง field เป็นต้นครับ ทีนี้ type ของ ExceptResult จะเป็น
System.Collections.Generic.IEnumerable(Of System.Data.DataRow) ครับ จากตัวอย่างข้างต้น ค่าที่ได้ของ ExceptResult จะมี 4 DataRows นั่นคือ ID ตั้งแต่ 0-3

ส่วนบรรทัดต่อมา ผมลองคำสั่ง Intersect นั่นคือ เอาเฉพาะข้อมูลที่เหมือนกันระหว่าง 2 EnumerableRowCollection ผลลัพธ์ก็จะได้ 3 DataRows คือ ID ตั้งแต่ 4-6 นั่นเอง

ถ้าผมแก้จาก
dr2.Item("Name") = "Test" & iRecord
เป็น
dr2.Item("Name") = "Test2" & iRecord

แล้วลองรันใหม่ จะพบว่า ExceptResult.Count = 7 นั่นคือข้อมูลทั้งหมดของ dt1 และ IntersectResult.Count = 0 เพราะว่าเราใช้ DataRowComparer.Default อย่างที่บอกครับ ดังนั้นแต่ละ row ถึงจะมี ID เดียวกัน เป็นข้อมูลใน field อื่นไม่เหมือนกัน ก็จะถือว่าเป็น row นั้น ไม่เหมือนกันครับ

คราวนี้มาลองเล่นกันต่อครับ กำลังสนุกเลย


Dim dtResult = ExceptResult.CopyToDataTable()
dtResult.TableName = "dtResult"
dt1.Rows(0).Delete()
dt2.Rows(1).Delete()

บรรทัดแรกผมใช้ Extension Method ชื่อ CopyToDataTable ก็ตรงตัวครับ คือมันจะ copy DataRows ไปสร้าง DataTable ใหม่ สำหรับคำส่งนี้ถ้าเราส่ง DataTable ไปเป็น parameter มันจะ copy DataRows ไปยัง DataTable ตัวนั้นๆแทนครับ

ต่อมาผมลองสั่งลบแถวแรก ของ dt1 และลบแถวที่สองของ dt2 ทีนี้ลองมา debug ดูข้อมูลใน dt1, dt2, r1, r2, ExceptResult, IntersectResult จะพบว่าเมื่อเราสั่งลบ Datarows แล้ว มันจะมีผลต่อ r1, r2, ExceptResult, IntersectResult ครับ แต่มันไม่มีผลต่อ dtResult ครับ ดังนั้นตอนนี้ค่าของ dtResult จะไม่เท่ากับ ExceptResult แล้ว

ที่เป็นแบบนี้เพราะว่า Except() กับ Intersect() นั้นใช้ความสามารถของ Yield Return นั่นเองครับ ไอ้เจ้า Yield Return นี่มันสุดยอดจริงๆ เสียดายที่ VB2008 ไม่สามารถใช้ Yield Return ได้ครับ สำหรับผู้ที่อยากรู้เรื่อง Yield Return ลอง search ใน google ดูครับ ผมเคยอ่านที่ www.coredeveloper.net แต่วันนี้มันเข้าไปเวบนี้ไม่ได้ซะละ

SQLServer ดึงข้อมูลจาก dbf

2009-12-10T22:43:00.001+07:00

จริงๆผมต้องเขียนโปรแกรมเพื่อดึงข้อมูลจาก dbf เข้า SQLServer บ่อยๆ ถ้า dbf ตัวไหนที่ต้องใช้ประจำก็จะสร้าง Linked Server เก็บไว้ แต่ถ้าทำเป็น ad hoc ก็จะใช้คำสั่ง OPENROWSET แทน แต่ก็ลืมวิธีทุกครั้ง ต้องเสียเวลาไป search ใน google ทุกที คราวนี้เลยมาเขียนไว้ใน blog ดีกว่า ถ้าลืมอีกคราวหน้าก็มาหาที่นี่ได้เลย 555

สำหรับการสร้างใช้ OPENROWSET ก็ไม่ยากครับ เขียนแบบนี้

SELECT * FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','dBase 5.0;HDR=NO;IMEX=2;DATABASE={path to dbf}','select * from {filename}.dbf')

แต่ที่สำคัญคือต้องปิดโปรแกรม foxpro หรือโปรแกรมที่กำลังเปิดไฟล์ dbf นั้นๆไปก่อนครับ ไม่งั้นมันจะขึ้นว่าติดปัญหาเรื่อง permission ไปนั่ง search หาสาเหตุตั้งนาน

ส่วนสร้าง Linked Server นั้นก็ทำดังนี้ครับ
1. ไปที่ Linked Server คลิ๊กเมาส์ขวาเลือก New Linked Server
2. ใส่ชื่อ Linked Server ที่ต้องการครับ สมมติชื่อ DBLink
3. Provider ให้เลือกเป็น Microsoft Jet 4.0 ครับ (จริงๆมันมี Visual Fox Pro ให้เลือกด้วย และในบอร์ดต่างๆเค้าว่ากันว่าจะทำให้ตอน select ข้อมูล มันเร็วกว่า Jet แต่ผมก็ยังไม่ได้ลองครับ)
4. Product Name ใส่อะไรก็ได้ครับ แต่อย่าทิ้งว่าง สมมติใส่เป็น Microsoft Jet
5. Data source ใส่ path ที่เก็บ dbf ครับ เช่น c:\dbfFiles
6. Provider String ใส่ dBase 5.0
7. เปลี่ยนมาที่ Security Page ครับ ตรง option สำหรับ log in เลือกตัวล่างสุด ที่เขียนว่า Be made using this security context เสร็จแล้วตรง Remote Login ให้ใส่ Admin ส่วน With Password ให้เว้นว่างไว้ครับ
8. กด OK เป็นอันเสร็จพิธี

ทีนี้เวลาเขียนคำสั่ง SQL ก็เขียนประมาณนี้ครับ สมมติว่าต้องการดูข้อมูลจาก testdata.dbf

SELECT * FROM DBLink...testdata

ลองเปรียบเทียบกับการใช้ OPENROWSET

SELECT * FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','dBase 5.0;HDR=NO;IMEX=2;DATABASE=c:\dbfFiles', 'select * from testdata.dbf')

ไม่ยากใช่ไหมครับ แต่ทำไมผมลืมทุกทีก็ไม่รู้สิ

เรื่องประหลาดใจ

2009-12-04T21:42:00.001+07:00

วันนี้มีเรื่องน่าประหลาดใจเรื่องหนึ่งสำหรับผมครับ คือผมได้รับอีเมลล์มาแสดงความขอบคุณและบอกว่าแก้ปัญหาเรื่องการเขียนโปรแกรมได้แล้ว ที่น่าประหลาดใจคือผมได้รับเมลล์มาขอความช่วยเหลือเรื่องเขียนโปรแกรมมากกว่า 5 ปีแล้ว ตั้งแต่เริ่มตอบกระทู้ที่พันธ์ทิพย์และเขียนบทความที่ expert2you เท่าที่จำได้ครั้งนี้เป็นครั้งแรกครับที่พอผมตอบเมลล์ไป แล้ววันรุ่งขึ้นมีเมลล์มาแจ้งว่าทำได้แล้วพร้อมกับขอบคุณ ปกติถ้าได้รับเมลล์จะบอกว่ายังไม่ได้ ช่วยแก้โค้ดหน่อย หรือไม่ก็หายไปเลยครับ จะมีเมลล์มาขอบตคุณบ้างเมื่อมีคำถามใหม่ -*-

ที่ประหลาดใจกว่าก็คือในหลายๆเวบบอร์ดก็มีการบ่นเรื่องนี้ครับ คือคนตอบกระทู้แล้ว พอคนได้คำตอบก็หายไปเลย อย่างน้อยมาบอกว่าทำได้แล้ว คนอื่นๆที่ search เจอภายหลังจะได้มั่นใจว่า เจอคำตอบที่ถูกต้องก็ยังดี ถ้าคำตอบในกระทู้ยังไม่ถูก แต่ไปหาวิธีแก้ปัญหามาได้แล้ว น่าจะมีอัพเดทในกระทู้นั้นๆบ้าง จะได้มีประโยชน์กับคนอื่นต่อไปครับ

ก็อยากชักชวนให้เพื่อนๆพี่ๆน้องๆ ที่ได้คำตอบแล้วช่วยมาอัพเดทในกระทู้ที่ตัวเองตั้งด้วยนะครับ

ASP.NET สั่งรัน Win App บนเครื่อง Client

2009-12-03T22:35:00.003+07:00

ผมเคยสร้าง Web Application ตัวหนึ่ง เพื่อทำเป็น Application Portal คือถ้า user sign in เข้ามาใน Web นี้ จะมองเห็น link ของโปรแกรมทั้ง Win App และ Web App ที่มีสิทธิ์เปิดใช้งาน รวมถึงทำ Single Sign On ด้วย นั่นคือจะส่ง User Name + Password เพื่อไป log in ที่ app นั้นๆทันทีครับ แต่ใน App นั้นๆก็ต้องรองรับการส่ง Parameter ๆไปด้วยนะ

ทีนี้ถ้าเป็น Web App ด้วยกันก็ไม่มีปัญหาครับ แค่สร้าง link เท่านั้นเองและก็ส่ง parameter ที่เข้ารหัสไปด้วย แต่ถ้าเป็น Win App นี่แหละที่เป็นเรื่องใหญ่ เพราะว่า ASP.NET นั้นทำงานเป็น Server side script นั่นคือคำสั่งพวก Shell จะทำให้เกิดการรันโปรแกรมที่ฝั่ง Server ครับ เหมือนกรณีเราเขียนคำสั่ง MessageBox.Show นั่นแหละ มันจะขึ้น message box ที่ server เสมอ เราต้องใช้ Client side script แทน ถ้าเป็น javascript ก็คือ alert() นั่นเอง

ทีนี้ Win App ที่เราต้องการเรียกนั้น ถ้าเราพัฒนาด้วย .NET 2.0 ขึ้นไป สามารถใช้ ClickOnce ในการ Deploy ได้ ถ้าเป็นแบบนี้ก็ง่ายขึ้นครับ เพราะเราจะมี URI ให้เลือกใช้ดังนี้

http://ClickOnceServer/TestApplication ตัวนี้จะลิงค์ไปหน้าหลักของโปรแกรม ซึ่งจะมีปุ่ม Install และ ปุ่ม Install Prerequisites

http://ClickOnceServer/TestApplication/TestApplication.Application ตัวนี้จะไปรัน Application ทันทีครับ

ดังนั้นเราก็เขียน javascript เรียก .Application เพื่อสั่งรันโปรแกรมได้เลย


function btnAttn_OnClick() {
     window.open("http://ClickOnceServer/TestApplication/TestApplication.Application", "Application");
     intervalId = setInterval(UpdateInfo, 10000);
     event.returnValue = false;
}

ในโค้ดผมมีการใช้ setInverval ด้วย เพราะต้องการไปเรียก UpdateInfo function ทุก 10 วินาที function ตัวนี้จะไปเรียก WebService เพื่อทำการ update สถานะบน label ทุก 10 วินาทีครับ

ตัว ClickOnce เราสามารถส่ง Commandline argument (parameter) ไปได้ด้วยครับ แต่ขอข้ามไปก่อนละกัน

ทีนี้ถ้าเป็น Win App ที่ไม่ใช่ ClickOnce ก่อนอื่นเลยจะมีข้อจำกัดดังนี้

Win App นั้นต้อง Install ที่เครื่อง Client แล้ว และเราต้องรู้ Path ที่แน่นอน
ต้องกำหนด Security Option ของ IE ในเครื่อง Client ด้วย ที่ผมทำคือไปกำหนด Trust Site ครับ เพราะเป็น Intranet อยู่แล้วก็ไม่มีปัญหา เพราะเราต้องใช้ WScript ในการสั่ง Shell application ที่ต้องการนั่นเอง

ดังนั้นวิธีนี้เหมาะกับเครื่องภายในเท่านั้นครับ

โค้ดส่วน HTML ซึ่งเก็บ hidden field ไว้สองตัวนั่นคือ User name กับ password อย่าลืมเข้ารหัสด้วยนะครับ


<body>
     <form id="form1">
          <div>
               <input type=hidden id='hdnExeCommand' name='hdnExeCommand' value='<%=strExeCommand%>'>
               <input type=hidden id='hdnWinAppLocation' name='hdnWinAppLocation' value='<%=strWinAppLocation %>'>
          </div>
     </form>
</body>

จะเห็นว่ามีการเอาค่าตัวแปรมาใส่ใน hidden field ด้วย ค่าตัวแปรที่ได้นี้มาจากคำสั่งถอดรหัสในฝั่ง Code Behind ครับ ทีนี้มาดู vbscript กัน (จริงๆจะใช้ javascript ก็ได้และดีกว่าด้วย แต่ผมอยากลอง vbscript ครับ)


<script language="vbscript">
dim WshShell, strExe, fso, strCommand
set WshShell = CreateObject("WScript.Shell")
set fso = CreateObject("Scripting.FileSystemObject")
strExe = document.all("hdnWinAppLocation").value
strCommand = document.all("hdnExeCommand").value
if fso.FileExists(strexe) then
     WshShell.Run strCommand ,1, false
else
     msgbox "File not found.",vbOKOnly+vbInformation,"TG Application Portal"
end if
set fso = nothing
set WshShell = nothing
window.close()
<script>

ส่วนเรื่องการส่ง command line argument กับ Encrypt&Decrpyt ถ้ามีเวลาจะกลับมาเขียนเพิ่มครับ

.NET Framework 4.0

2009-11-16T20:43:00.000+07:00

วันก่อนเจอคุณมี่ (MVP, GreatFriends Leader) ที่งานอบรมที่ไมโครซอฟท์ เลยมีโอกาสถามเรื่อง .NET Framework 4.0 ครับ เพราะผมไม่ค่อยได้ติดตาม .NET Framework 4.0 และ VS 2010 เลย (ทั้งที่มีแต่คนบอกว่า VS2010 สุดยอดให้ลองโหลดมาเล่น)

คำถามแรกคือ .NET Framework 4.0 ยังใช้ Core เดียวกันกับ .NET 2.0, 3.0 และ 3.5 หรือไม่
คำตอบคือ ทาง MS พัฒนาขึ้นมาใหม่เป็น Core ตัวใหม่เลย แต่ไม่ต้องห่วงครับ (ยังไม่ได้ถาม และยังไม่ได้ห่วงเลย คุณมี่รีบตอบให้เสร็จ - สงสัยกลัว VS2010 จะขายได้น้อย 555) เพราะ VS2010 สนับสนุนเรื่อง Target Framework เหมือนเดิม ดังนั้นเราสามารถเลือกพัฒนา .NET เวอร์ชัน 2.0,3.0, 3.5 หรือ 4.0 ก็ได้

อะ ก็ฟังดูดี แต่ว่าพอผมเอา VS2008 ไปเปิด Solution ที่พัฒนาด้วย VS2005 มันจะบังคับให้ Convert ยันเตเลย มันเปิดแล้วเลือก Target Framework เป็น 2.0 อัตโนมัติไม่ได้เหรอ แล้ว VS2010 จะทำได้มั๊ยเนี่ย ไม่อยาก Convert น่ะ (ตอนนั้นยังไม่ได้ห่วง ก็เลยลืมถามคำถามนี้ เซ็งเลยตรู แต่ตอนนี้ยังเป็น Beta ดังนั้นก็ต้องรอดูเวอร์ชันจริงอีกที)

คำถามที่สองก็คือ แล้ว .NET Framework 4.0 มันใหญ่มั๊ย เพราะว่า .NET Framework 2.0 Redis. มันแค่ 22.4 MB เอง พอใช้ Click Once แล้วต้อง Deploy ตัว .NET Framework ไปด้วย มันไม่ใหญ่เลยทำได้สะดวกครับ แต่ว่าพอมาใช้ .NET Framework 3.5 SP1 มันตั้ง 231 MB แนะวุ้ย ใหญ่มากกกกกกกกกกกกกกก

คำตอบคือไม่ใหญ่ครับ เพราะพัฒนาขึ้นใหม่ (จบ สั้นๆได้ใจความ)

ผมเลยลองไปดูในหน้าดาวน์โหลดของ MSDN ถ้าเลือกเป็น .NET Framework 4.0 X86 มันแค่ 37.7 MB เอง ถือว่าขนาดโอเคครับ ถ้าเป็น x64 ก็ 54.6 MB

ในหน้า MSDN มี Visual Studio Express 2010 Beta ให้โหลดมาลองด้วยครับ ถ้าใครกลัวโหลด VS2010 ตัว Profession หรือ Team Suit มาใช้แล้วติดใจต้องเสียเงินซื้อ ลองใช้ Express เวอร์ชันก็ได้นะครับ พอใช้รับงาน freelance หากินได้ ยกเว้นเรืองออกรายงานที่ต้องใช้ rdlc หรือไม่ก็ PrintDocument ที่ต้องถึกหน่อยครับ

อีกเรื่องที่สำคัญ คนที่มีลิขสิทธิ์ VS2008 แล้วอยากจะ upgrade ไปใช้ VS2010 ลองติดต่อคุณมี่ดูครับ เพราะเหมือนว่าจะมีโปรโมชันสำหรับคนต้องการ Upgrade ในราคาพิเศษนะ แต่ผมฟังไม่ถนัดเพราะว่าที่ทำงานผมมี Enterprise Agreement อยู่แล้ว มัน upgrade ฟรี (เพราะเสียเงินค่า EA ไปแล้ว)เลยไม่ได้สนใจมาก ที่สำคัญอีกอย่างคือผมกำลังกินขนมกับกาแฟอยู่น่ะครับ ถ้ายังไงคนที่สนใจ VS2010 ลองติดต่อคุณมี่ดูครับ ผมไม่ได้ขออนุญาตเลยไม่กล้าลงอีเมลล์ไว้ ลอง search หาดู หรือไม่ก็แวะไปคุยกับคุณมี่ที่ GreatFriends ครับ

Javascript - สร้าง TextBox เพื่อ filter รายการใน DropDownList

2009-11-12T21:34:00.005+07:00

ผมได้รับ requirement ใหม่จาก user เจ้ากรรมอีกแล้ว นั่นคือมี DropDownList ตัวหนึ่งใน ASP.NET ที่มีรายการมากกว่า 100 รายการ (อันนี้กรองมาแล้วนะครับ) ซึ่ง option มันเยอะมาก ดังนั้น user ต้องการให้โปรแกรมสามารถ filter รายการใน DropDownList นี้ได้ครับ ทีนี้จะเขียนโปรแกรมที่ฝั่ง server ก็สามารถทำได้ แต่มันจะทำให้มีการ postback ไปหา ซึ่งไม่ค่อยดีเท่าไหร่ ดังนั้นผมเลยใช้ javascript สำหรับ filter แทนครับ

วิธีก็คือผมสร้าง Textbox ขึ้นมาหนึ่งตัว สำหรับให้ user พิมพ์ข้อความที่ต้องการกรอง และสร้าง drop-down list อีกหนึ่งตัวโดยให้ visibility=hidden คือซ่อนไม่ให้ user เห็น สำหรับเก็บ option ทั้งหมดที่ไม่ได้ทำการกรองครับ ลองมาดูโค้ดกัน

เริ่มจาก WebControl ก่อน มี DropDownList 2 ตัว และ TextBox ครับ


<asp:DropDownList ID="ddlWorkCode" runat="server" CssClass="txtRequired"  Width="540px" AutoPostBack="True" style="height:24px"></asp:DropDownList"> 
<asp:TextBox ID="txtSearchWorkCode" runat="server" Width="421px" style="color: #000099; background-color: #afeeee;""></asp:TextBox">
<asp:DropDownList ID="ddlCache" runat="server" Width="0px" style="visibility:hidden" "></asp:DropDownList">

ในหน้า Code Behind ก็ทำการ Add Attribute ให้ txtSearchWorkCode


txtSearchWorkCode.Attributes.Add("onkeyup", "txtSearchWorkCode_OnKeyUp(this);")
txtSearchWorkCode.Attributes.Add("onblur", "txtSearchWorkCode_OnBlur();")

คราวนี้มาถึง javascript บ้าง คราวนี้เขียนสดๆไม่ได้ใช้ jQuery ครับ


        function txtSearchWorkCode_OnKeyUp(obj) {
            if (event.keyCode != 13 || event.keyCode != 9) {
                var str = obj.value.toUpperCase();
                var ddlWorkCode = $get("ddlWorkCode");
                var ddlCache = $get("ddlCache");
                var listWorkCode = ddlCache.getElementsByTagName("OPTION");

                // ถ้าไม่มี OPTION ใน cache ให้ออกจาก function
                if(listWorkCode.length==0) return false;

                //clear option ใน DropDownList
                ddlWorkCode.length = 0; 
                for (i = 0; i < listWorkCode.length; i++) {
                    if (listWorkCode[i].text.toUpperCase().indexOf(str) > -1) {
                        var o = listWorkCode[i].cloneNode(true);
                        ddlWorkCode.appendChild(o);
                    }
                }
                ddlWorkCode.selectedIndex = 0;
            }
        }

        function txtSearchWorkCode_OnBlur() {
            if ($get("txtSearchWorkCode").value == "") {
                // ถ้าไม่มีคำสั่งกรอง ให้ไปดึง OPTION ทั้งหมดจาก DropDownList2 มาใส่คืน
                                var ddlWorkCode = $get("ddlWorkCode");
                var ddlCache = $get("ddlCache");

                ddlWorkCode.lenght = 0;
                for (i = 0; i < ddlWorkCode2.options.length; i++) {
                    var o = ddlWorkCode2.options[i].cloneNode(true);
                    ddlWorkCode.appendChild(o);
                }
                ddlWorkCode.selectedIndex = 0;
            }
        }

ในส่วนคำสั่ง javascript มีสองจุดที่น่าสนใจครับ นั่นคือ
1. ผมใช้ ddlWorkCode.length=0; ในการเคลียร์ option ของ drop-down list ทิ้งครับ ถือว่าง่ายและสะดวกมาก ทีแรกผมใช้ for วนลูปเพื่อ remove element ออก ซึ่งแน่นอนว่าช้ากว่าครับ

2. ผมใช้ cloneNode method ในการ copy OPTION จาก drop-down list ตัวที่สอง (ที่เก็บข้อมูลทั้งหมดไว้) แล้วก็เอา OPTION ที่ clone ได้ไปใส่ใน drop-down list ตัวแรกด้วยคำสั่ง appendChild ทีแรกผมใช้วิธีสร้าง new Option ครับ แต่เจอคำสั่ง cloneNode ที่ www.java2s.com ใช้ได้สะดวกดีครับ และที่สำคัญพอลอง search ใน google พบว่าคำสั่ง cloneNode ทำได้เร็วกว่า New element ซะอีก

ตอนนี้ลองทดสอบโปรแกรมดู ก็ใช้งานได้ดียังไม่เจอ bug แต่เพิ่งทดสอบได้นิดเดียวคงต้องลองเล่นดูอีกสักพักครับ

ปล. สำหรับ $get() เป็น shortcut ของ ASP.NET AJAX ครับ มีค่าเท่ากับ document.getElementById()

แนะนำ jnithi.bloggang.com

2009-10-27T22:48:00.003+07:00

วันนี้กลับไปอ่าน blog เดิม (โปรแกรมมั่ว พ่อลูกอ่อน) ที่เขียนไว้ที่ jnithi.bloggang.com ครับ ก็เลยนึกขึ้นได้ว่ายังไม่ได้ทำ link ที่ bloggang มาที่ blogger นี่เลย จริงๆแล้วตอนที่เริ่มกลับมาเขียน blog ที่ blogger นี่ก็ไปอัพเดทที่ bloggang แต่ว่าพอกด save มันดันมี error ขึ้นมา เลยเซ็งอารมณ์ปล่อยทิ้งไว้อย่างนั้น จากนั้นก็เลยลืมไปเลยครับ 5555

ทีแรกตั้งใจว่าจะเขียนเรื่องเกี่ยวกับการพัฒนาโปรแกรมที่ blogger ส่วนที่ bloggang จะเขียนเรื่องลูกสาวอย่างเดียว ปรากฏว่าเพื่อนๆบอกว่าอยากให้ไปเขียนเรื่องน้องแพร์ที่ hi5 กับ facebook แทน แต่ด้วยความขี้เกียจก็เลยไม่ได้อัพเดททั้ง bloggang, hi5 และ facebook (จริงๆแล้วผมเล่น hi5 กับ facebook ไม่เป็นอะ เข้าไปแล้วมันงงๆๆๆ)

พอกลับไปอ่าน โปรแกรมมั่ว พ่อลูกอ่อน blog ก็เลยนึกขึ้นได้ว่าอาจจะมีประโยชน์สำหรับชาวโปรแกรมมั่วอีกหลายท่านครับ ก็เลยมาเขียน blog แนะนำที่นี่อีกทีครับ

รู้สึกว่าที่ bloggang คนจะเข้ามา comment เยอะกว่านะ ทั้งๆที่ดูจาก PageView แล้วยังน้อยกว่าคนที่เข้า blog นี้ซะอีก สงสัยว่าคนเข้า blog นี้จะรีบเข้ามาหาวิธีเขียนโปรแกรมเพราะส่วนมากมาจาก Search Engine เลยมาเร็ว อ่านเร็ว ไปเร็ว เพราะต้องรีบกลับไปปั่นงาน 5555 (เป็นเหมือนกัน) แต่ตอนนี้คนที่เข้าซ้ำประจำก็เริ่มมีหลายคนนะครับ

ASP.NET รวม Crystal Report 2 รายงานเป็น pdf ด้วย iTexSharp

2009-10-22T12:19:00.001+07:00

คราวนี้เป็นตอนที่ 3 สำหรับ iTextSharp ครับ เราจะสร้าง pdf file จาก Crystal Report (ต่อจากนี้จะเรียกย่อๆว่า CR) 2 ไฟล์ มารวมกันให้เป็นไฟล์เดียว ในการทดสอบผมใช้ CR ตัวเดียว แต่สร้างเป็น 2 report สำหรับเอามารวมกันเป็น pdf ลองดูโค้ดกันครับ


Imports CrystalDecisions.CrystalReports.Engine
Imports XXEntity = jnithi.CLASS.XX.Entity
Imports XXManager = jnithi.CLASS.XXManager

Partial Class frmTestITextSharp
    Inherits System.Web.UI.Page

    Private Sub CreateReport()
        'สร้าง CR1
        Dim myReport1 As New ReportDocument()
        Dim rpt1Data = XXManager.XXOutStandingManager.GetXXOutStandings(0, Nothing, Nothing, "R00939", "")
        myReport1.FileName = Server.MapPath("~/Reports/XX/rptXXOutstanding.rpt")
        myReport1.SetDataSource(rpt1Data)
        myReport1.SetParameterValue(0, Date.Today.ToString("dd-MMM-yyyy"))
        myReport1.SetParameterValue(1, "")
        myReport1.SetParameterValue(2, "Client")

        ' สร้าง CR2
        Dim myReport2 As New ReportDocument
        Dim rpt2Data = XXManager.XXOutStandingManager.GetXXOutStandings(0, Nothing, Nothing, "A01032", "")
        myReport2.FileName = Server.MapPath("~/Reports/XX/rptXXOutstanding.rpt")
        myReport2.SetDataSource(rpt2Data)
        myReport2.SetParameterValue(0, Date.Today.ToString("dd-MMM-yyyy"))
        myReport2.SetParameterValue(1, "")
        myReport2.SetParameterValue(2, "Client")

        ' สร้าง pdfReader1 ชื่อ reader1 โดย export stream จาก CR1
        Dim s1 As System.IO.Stream = myReport1.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat)
        Dim reader1 As New iTextSharp.text.pdf.PdfReader(s1)

        ' สร้าง pdfReader2 ชื่อ reader2 โดย export stream จาก CR2
        Dim s2 As System.IO.Stream = myReport2.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat)
        Dim reader2 As New iTextSharp.text.pdf.PdfReader(s2)

        ' สร้าง pdfCopy โดยกำหนด os เป็น output FileStream เพื่อสร้าง File ชื่อ rptMerge.pdf
        Dim pdfDoc As New iTextSharp.text.Document()
        Dim os As New System.IO.FileStream(Server.MapPath("~/rptMerge.pdf"), IO.FileMode.Create)
        Dim pdfCopy As New iTextSharp.text.pdf.PdfCopy(pdfDoc, os)

        pdfDoc.Open() ' เปิด pdf Document เพื่อเริ่มการ copy

        ' วนลูปอ่าน reader1 เพื่อ copy ทีละหน้า
                For iPage As Integer = 1 To reader1.NumberOfPages
            pdfCopy.AddPage(pdfCopy.GetImportedPage(reader1, iPage))
        Next

        ' วนลูปอ่าน reader2 เพื่อ copy ทีละหน้า
                For iPage As Integer = 1 To reader2.NumberOfPages
            pdfCopy.AddPage(pdfCopy.GetImportedPage(reader2, iPage))
        Next

        ' Clear Memory
        pdfDoc.Close()
        pdfCopy.Close()
        reader1.Close()
        reader2.Close()
        os.Close()
        os.Dispose()
        s1.Close()
        s1.Dispose()
        s2.Close()
        s2.Dispose()

        Response.Redirect("~/rptMerge.pdf")

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        CreateReport()
    End Sub
End Class

เมื่อเราใช้ iTextSharp สร้าง pdf ไฟล์เสร็จก็สั่ง redirect เพื่อเปิดไฟล์ที่ browser ครับ ทีแรกผมทดสอบให้ iTextSharp สร้าง pdf เป็น MemoryStream แล้วลองใช้ Response.BinaryWrite กับ Response.OutputStream.Write เพื่อสร้าง HTTPResponse แต่ไม่สามารถทำได้ครับ พอเปิดไฟล์ Browser จะฟ้องว่าไฟล์เสีย ลอง search ใน google ดูหลายๆคนพบปัญหาเดียวกัน เลยแก้ด้วยการใช้ FileStream เพื่อสร้าง temp file แทนตามตัวอย่างด้านบนครับ

ลองดูโค้ด MemoryStream ที่มีปัญหาดู เผื่อมีคนแก้ได้ครับ


' โค้ดด้านบนเหมือนเดิม เริ่มเปลี่ยนตั้งแต่ Dim os ลงมา
' เปลี่ยนจาก FileStream เป็น MemoryStream
'Dim os As New System.IO.FileStream(Server.MapPath("~/rptMerge.pdf"), IO.FileMode.Create)
Dim os As New System.IO.MemoryStream()

Dim pdfCopy As New iTextSharp.text.pdf.PdfCopy(pdfDoc, os)
pdfDoc.Open() ' เปิด pdf Document เพื่อเริ่มการ copy

' วนลูปอ่าน reader1 เพื่อ copy ทีละหน้า
For iPage As Integer = 1 To reader1.NumberOfPages
    pdfCopy.AddPage(pdfCopy.GetImportedPage(reader1, iPage))
Next

' วนลูปอ่าน reader2 เพื่อ copy ทีละหน้า
For iPage As Integer = 1 To reader2.NumberOfPages
    pdfCopy.AddPage(pdfCopy.GetImportedPage(reader2, iPage))
Next

Response.Clear()
Response.ContentType = "application/pdf"
Response.AddHeader("content-disposition", "attachment;filename=Export.pdf")
Response.BinaryWrite(os.ToArray)

' Clear Memory
pdfDoc.Close()
pdfCopy.Close()
reader1.Close()
reader2.Close()
os.Close()
os.Dispose()
s1.Close()
s1.Dispose()
s2.Close()
s2.Dispose()
Response.End()

blog ก่อนหน้านี้มีคนบอกอยากให้ comment ด้วย คราวนี้ก็เลยใส่ comment มา แต่ไม่แน่ใจว่าจะละเอียดพอหรือเปล่าครับ

บทความก่อนหน้า
เขียนโปรแกรมจัดการเอกสาร pdf ด้วย iTextSharp
การจัดการเอกสาร pdf ด้วย iTextSharp(2)

VBScript อ่านค่า User Account เพื่อเปิด Website อัตโนมัติ

2009-10-16T23:28:00.000+07:00

ผมได้รับคำสั่งให้ทำอย่างไรก็ได้ เมื่อ user ทำการ log in เข้า Windows แล้วให้ตรวจสอบว่าเป็น user ที่อยู่ในกลุ่มพิเศษหรือไม่ ถ้าใช่ให้เปิด Web Application ขี้นมา เพื่อแสดงสถานะงานคงค้าง (เรื่องสำคัญมากคือการทวงหนี้ลูกค้า)

ไปนั่งคิดนอนคิดก็เลยคิดว่าน่าจะเขียน Log on script ด้วย VBScript มาทำงานนี้ครับ เริ่มแรกผมเก็บข้อมูลรายชื่อ user ไว้ใน database ก่อน แล้วพอ Log on script ทำงานจะไปตรวจสอบว่า User นั้นตรงกับที่อยู่ใน database หรือไม่ ทีนี้เราต้องใช้ Windows Scripting Host (WScript) มาร่วมด้วยครับ


ON ERROR RESUME NEXT

'*******************************************************
'// GET LOGON USER ACCOUNT
'*******************************************************
Dim WSHNetwork 
Set WSHNetwork = CreateObject("Wscript.Network")

Dim userAccount 
userAccount = WSHNetwork.UserDomain & "\" & WSHNetwork.UserName
Set WSHNetwork = nothing

'*******************************************************
'// VALIDATE USER 
'*******************************************************

Set cnn = CreateObject("adodb.connection")
Set rstUser = CreateObject("adodb.recordset")

cnn.connectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=xxxx;Password=yyyy;Initial Catalog=UserList;Data Source=xxSQLServer"

cnn.open

Dim strSQL
strSQL = "select employeeid from dbo.tblUser a where aduser = '" & userAccount  "'"
rstUser.open strsql, cnn

If not rstUser.eof Then
 '// If valid user, execute IE 
 Dim WSHShell
 Set WSHShell = CreateObject("WScript.Shell")
 WSHShell.Run "iexplore.exe -new http://myHost/myApplication"
 Set WSHShell = nothing
End If


rstUser.close
cnn.close

Set rstUser = Nothing
Set cnn = Nothing

ทดสอบการทำงานก็ได้ผลโอเคครับ แต่โดน Network Admin ติงมานิดหน่อยว่าไม่อยากให้ไปติดต่อ database เพราะมันช้า และต้องใช้ traffic ของ network เนื่องจาก SQLServer กับ AD อยู่คนละ Server กัน ดังนั้นเลยเปลี่ยนเอา list ของ user มาเก็บเป็น Text file แทนครับ ลองดูโค้ดเฉพาะตรงนี้กัน ส่วนหา user log on ก็เหมือนโค้ดด้านบน


const ForReading = 1, TristateTrue = -1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("\\myserver\netlogon\UserList.txt", ForReading, false, TristateTrue)

Dim user
Dim isFound
isFound = 0

Do Until objFile.AtEndOfStream
    user = trim(objFile.ReadLine)
 If lcase(user) = lcase(useraccount) Then
  isFound = 1
  'msgbox isFound
  Exit Do
 End If 
Loop

objFile.Close
Set objFile = Nothing
Set objFSO = Nothing

If isFound = 1 Then
 '// If valid user, execute IE 
 Dim WSHShell
 Set WSHShell = CreateObject("WScript.Shell")
 WSHShell.Run "iexplore.exe -new http://myHost/myApplication"
 Set WSHShell = nothing
End If

ลองสร้าง Extension Method ให้ Enum

2009-10-12T21:49:00.000+07:00

คราวก่อนตอนที่ผมต้องการหาชื่อของ Enum ได้ลองทำการสร้าง Extension Method ชื่อ ToDictionary ไว้ ตามชื่อเลยครับ Method นี้จะไปสร้าง Dictionary สำหรับเก็บชื่อ (Key) และค่า (Value) ของ Enum ที่ต้องการ


Public Module EnumExtension
    <System.Runtime.CompilerServices.Extension()> _
    Public Function ToDictionary(ByVal en As System.Enum) As Dictionary(Of String, Integer)
        Dim result As New Dictionary(Of String, Integer)
        For Each v As Integer In System.Enum.GetValues(en.GetType)
            result.Add(System.Enum.GetName(en.GetType, v), v)
        Next
        Return result
    End Function

End Module

เนื่องจากผมใช้กับ ASP.NET ดังนั้น Module นี้ ผมเอาไปไว้ที่ App_Code folder ครับ ทีแรกเอาไปใส่ใน BLL ซึ่งอยู่คนละ project ก็เลยเรียกใช้ใน ASP.NET ไม่ได้ งงตั้งนานเหมือนกัน ลองทดสอบดูก็น่าพอใจครับ ถือว่าเป็นการทดสอบการสร้าง Extension Method ละกัน

ASP.NET ส่ง array จาก Code Behind Page ไปที่ javascript

2009-10-07T20:01:00.002+07:00

ปกติเวลาเราเขียน javascript ที่หน้า aspx บางครั้งเราอาจจะต้องการข้อมูลที่อยู่ใน Code Behind Page เช่น clientId (ค่อนข้างใช้บ่อย ถ้ามีการใช้ MasterPage) เช่น


<script type="text/javascript" id="MainScript">
// <![CDATA[
    var employeeTextBoxId = "<%=txtEmployee.ClientId%>";
    var movementCount = "<%=EmploteeMovements.Count%>";
// ]]>
</script>

แต่ทีนี้ถ้าต้องการข้อมูลที่เป็น Array ละ ก็ไม่ยากครับ สร้าง Function ที่ฝั่ง Code Behind Page ขึ้นมาเพื่อเอา array มาต่อกันเป็น string โดยให้มีตัว separate (ในตัวอย่างใช้ ;) จากนั้นฝั่ง javascript ก็ไปสั่ง split อีกที


Public employeeName(5) As String

Protected Function GetEmployees() As String

    Dim sb As New StringBuilder

    For i As Integer = 0 To employeeName.Length - 1
        sb.Append(employeeName(i) & ";")
    Next

    sb.Remove(sb.Length - 1, 1)
    Return sb.ToString

End Function

 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    employeeName(0) = "Nithi"
    employeeName(1) = "Paetree"
    employeeName(2) = "Ple"
    employeeName(3) = "Suvimol"
    employeeName(4) = "Weekit"
    employeeName(5) = "Sasawin"

End Sub


<script type="text/javascript" id="MainScript">

// <![CDATA[
    var a = "<%=GetEmployees()%>";
    var empArray = a.split(";");
// ]]>

</script>

เท่าที่ลองดูหลายๆแบบ วิธีนี้ง่ายสุดครับ (แต่อาจไม่ดีสุดนะ)

ASP.NET AJAX 4.0 Preview 5

2009-09-22T21:11:00.000+07:00

ตอนนี้ที่ Codeplex ได้มีการ release ASP.NET AJAX 4.0 Preview 5 แล้วครับ (อัพเดทล่าสุดวันที่ 14 กันยายน แต่ผมเพิ่งเห็น) ที่จริงว่าจะลองโหลดมาเล่นตั้งแต่ Preview ก่อนหน้านี้แล้ว เพราะว่า banpote_tt MVP หนุ่มหล่อจาก GreatFriends ได้ MSN มาคุย (โม้ติเวท) บรรยายถึงสรรพคุณถึง Microsoft Ajax Template ให้ฟังจนเคลิ้ม แต่ติดว่าช่วงนี้ยุ่งมากเลยไม่มีเวลาโหลดมาลองเล่นครับ คิดว่าอีก 2 อาทิตย์น่าจะว่างแล้ว คงได้ลองดาวน์โหลดมาเล่นดูบ้าง

วันก่อนเข้าไปอ่าน ScottGu's Blog
พบ entry หนึ่งน่าสนใจ (จริงๆก็น่าสนใจทุกอันแหละครับ) นั่นคือ Announcing the Microsoft AJAX CDN ถือว่าเป็นไอเดียที่ดีมากครับ

แต่สงสัยอย่างหนึ่ง ถ้า MS ทำการ update libraries ใน CDN ใหม่ จะมั่นใจได้ไงว่าจะไม่กระทบกับ App เดิมที่เราใช้งานอยู่เนี่ย เช่นอาจเกิด link ตาย หรือว่า library ตัวใหม่ไม่ compat กับของเก่า เราจะเจอ library hell หรือเปล่านะ

VB.NET ICloneable

2009-09-15T22:11:00.003+07:00

วันนี้ (15 ก.ย. 2552) ได้เข้าไปอ่านกระทู้ที่ GreatFriends เจอคำถามหนึ่งน่าสนใจครับ

การให้ค่ากับ object
http://greatfriends.biz/?113627

คำถามมีดังนี้ครับ

ผมสร้าง class Node กับ Variable

ซึ่ง class Node ก็ประกอบไปด้วยตัวแปรต่าง
และก็มี Variable
ส่วน class Variable ก็ประกอบไปด้วยตัวแปรต่าง

เมื่อผมต้องการกำหนดค่าให้กับ Node ก็สร้าง Node node = new Node;
Variable variable = new Variable;
variable. = .....;ก็กำหนดค่าให้

แล้วก็ node.Variable = variable;

ที่นี้พอผมเปลี่ยนค่า ใน
variable variable. = .....;

ที่นี้node.Variable ก็เลยเปลียนตามไปด้วย
แต่ผมไม่ต้องการให้เปลี่ยน
ผมเลยอยากทราบว่าต้องเซตค่าnode.Variable =
variableยังไงถึงค่าในnode.Variable กับ variable
แยกออกจากกันไม่สัมพันธ์กันอ่ะครับ

ลักษณะนี้ก็คือ เราต้องการให้ Variable Object ที่ถูกกำหนดค่าให้ Node Object เป็นคนละตัวกับ Variable Object ที่เราสร้างไว้แต่แรก ผมเลยเสนอให้ใช้ ICloneable Interface ครับ ก็เลยคิดว่าน่าจะลองเขียนทดสอบเล่นๆดู มาลองดูโค้ดกันครับ

ส่วนของ Variable Class ที่เราทำการ Implement ICloneable ครับ


Public Class Variable
    Implements ICloneable

    Private _variableName As String
    Private _value As String

    Public Property Value() As String
        Get
            Return _value
        End Get
        Set(ByVal value As String)
            _value = value
        End Set
    End Property

    Public Property VariableName() As String
        Get
            Return _variableName
        End Get
        Set(ByVal value As String)
            _variableName = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Return TryCast(MemberwiseClone(), Variable)
    End Function

End Class

ส่วนของ Node Class


Public Class Node

    Private _nodeId As Integer
    Private _nodeName As String
    Private _variable1 As Variable
    Private _variable2 As Variable

    Public Property Variable2() As Variable
        Get
            Return _variable2
        End Get
        Set(ByVal value As Variable)
            _variable2 = value
        End Set
    End Property

    Public Property Variable1() As Variable
        Get
            Return _variable1
        End Get
        Set(ByVal value As Variable)
            _variable1 = value
        End Set
    End Property

    Public Property NodeName() As String
        Get
            Return _nodeName
        End Get
        Set(ByVal value As String)
            _nodeName = value
        End Set
    End Property

    Public Property NodeId() As Integer
        Get
            Return _nodeId
        End Get
        Set(ByVal value As Integer)
            _nodeId = value
        End Set
    End Property

End Class

และทีนี้ก็มาทดสอบกัน


        Dim myNode As New Node
        Dim myVar1 As New Variable
        Dim myVar2 As New Variable

        myNode.NodeId = 1
        myNode.NodeName = "Test"
        myVar1.VariableName = "EmployeeName"
        myVar1.Value = "Nithi"

        myVar2.Value = "EmployeeSurname"
        myVar2.Value = "Juabsamai"

        myNode.Variable1 = myVar1.Clone
        myNode.Variable2 = myVar2

        Debug.Print("{0} - {1} {2}", myNode.NodeName, myNode.Variable1.Value, myNode.Variable2.Value)

        myVar1.Value = "Wanwimon"
        myVar2.Value = "Permpanit"

        Debug.Print("{0} - {1} {2}", myNode.NodeName, myNode.Variable1.Value, myNode.Variable2.Value)

        myNode.Variable1.Value = "Nithi"
        myNode.Variable2.Value = "Juabsamai"
        Debug.Print("{0} - {1} {2}", myNode.NodeName, myNode.Variable1.Value, myNode.Variable2.Value)
        Debug.Print("Variable2 = " & myVar2.Value)

ที่น่าสนใจคือ .NET ได้เตรียม MemberwiseClone Function มาให้เราเรียบร้อยแล้ว ไม่ต้องเขียนเอง สะดวกดีครับ หลังจากทดสอบดูแล้ว คิดว่าน่าจะตรงกับที่เจ้าของกระทู้ที่ GreatFriends ต้องการนะครับ

VB.NET กับ ENUM

2009-09-13T12:46:00.001+07:00

วันก่อนเขียนโปรแกรมเพื่อไป Execute StoreProcedure ตัวหนึ่ง ซึ่งใน SP ตัวนี้จะมีการ Return Value กลับมาให้ด้วยเพื่อบอกสถานะของการทำงาน ดังนั้นในส่วนของ VB.NET ผมก็เลยสร้าง Enum ขึ้นมาเพื่อใช้ระบุสถานะดังกล่าว


 Public Class abcManager

    Public Enum xxxResult
        Success = 0
        BillNotFound = 100
        NoOutstandingAmount = 200
        SQLException = 300
        UnknownException = 900
    End Enum

    Public Shared Function xyz() as xxxResult
    Public Shared Function .......

End Class

ทีนี้ตอนฝั่ง UI (Presentation Layer) เรียก xyz function มาใช้งานก็ได้ xxxResult กลับมา ทีนี้ตอนจะแสดงผลลัพธ์ให้ user เห็น ถ้าเป็นตัวเลขก็คงไม่ได้ ก็ต้องแสดงเป็นข้อความ ความคิดแรกคือ ใช้ Select Case ในการตรวจสอบ xxxResult เพื่อแสดงข้อความ แต่คิดอีกทีมันไม่ยืดหยุ่นแฮะ ดังนั้นคิดอีกที เอาชื่อของ Enum มาโชว์เลยก็น่าจะได้ ทีแรกผมเขียนแบบนี้ครับ


Dim result As xyzBLL.abcManager.xxxResult
result = xyzBLL.abcManager.xyz()
MsgBox("Error - " & [Enum].GetName(result.GetType, result), MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, My.Application.Info.ProductName)

ซักพักนึกขึ้นมาได้เลยว่าน่าจะทำ Overrides Function ToString ของ Enum แต่อยากรู้ว่า default มันได้ค่าอะไร เลยลองทดสอบ result.ToString เอ่อ ปรากฎได้ผลเหมือนกัน เพิ่งรู้นะเนียว่า ToString ของ Enum มันคืนค่าเป็น Name อุตสาห์ไปใช้ GetName Function เฮ้อ เข้าใจคำว่า ฉลาดเรื่องโง่ๆ ละ

-*-"

เคยได้ยินมาว่าคนเก่งมักเรียนรู้จากประสบการณ์ตนเอง ส่วนคนฉลาด มักเรียนรู้จากประสบการณ์คนอื่น
เลยเอาเรื่องนี้มาเขียน blog จะได้มีคนฉลาดเยอะๆ ^_^

VB.NET จัด format ตัวอักษรใน PrintDocument

2009-09-10T21:28:00.001+07:00

ช่วง 1-2 ปีมานี้ จะมีน้องๆนักศึกษาเข้ามาถามเรื่อง PrintDocument ใน VB.NET หลายคนทีเดียวครับ สังเกตุอย่างหนึ่งคือการเขียนใช้สไตล์เดียวกัน ดังนั้นเลยเดาว่าคงใช้หนังสือภาษาไทยเล่มเดียวกันในการศึกษา คำถามหนึ่งที่พบบ่อยคืออยากจัดตัวอักษรชิดขวาหรือกึ่งกลางทำอย่างไรดี

ในโค้ดที่แนบมาให้ดู จะมี AnyString Sub ในการวาดตัวอักษรลงบน PrintDocument ครับ ซึ่ง Sub นี้มันจะวาดตัวอักษรชิดซ้ายตลอด ดังนั้นผมเลยเสนอให้สร้าง Sub ที่สามารถกำหนด StringFormat ได้ว่าจะให้ชิดซ้าย ชิดขวา หรือกึ่งกลาง


Public Sub FormatString(ByVal g As Graphics, ByVal printString As String, ByVal xPos As Integer, ByVal yPos As Integer, ByVal align As StringAlignment)

     Dim f As New StringFormat
     f.Alignment = align
     g.DrawString(printString, useFont, Brushes.Black, xPos, yPos, f)

End Sub

สังเกตุว่าจะมีการใช้ตัวแปรชื่อ useFont ด้วยครับ ซึ่ง useFont ก็ต้องถูกประกาศในระดับ Page และกำหนด Font ที่ต้องการใช้วาด PrintDocument ที่ต้องการ

เวลาเรียกใช้ให้จัดชิดขวาก็

FormatString(e.Graphics, "test123", 100, currentYPosition, StringAlignment.Far)

ถ้าต้องการให้อยู่ตรงกลางก็

FormatString(e.Graphics, "test123", 100, currentYPosition, StringAlignment.Center)

VB.NET เคลียร์ Excel ไม่ให้เหลือซาก

2009-09-08T21:58:00.002+07:00

ปกติเวลาผมเขียนโปรแกรมเพื่อออกรายงานมักใช้ Crystal Report เป็นหลัก เพราะว่าสามารถให้ user preview ได้ รวมถึง export เป็น PDF, Excel, word ได้สะดวกดีครับ โดยเฉพาะเมื่อ Export เป็น Excel ผมพบว่ามันทำงานได้เร็วกว่าการสั่งเปิด Excel เพื่อใส่ข้อมูลตรงๆมากครับ แต่บางครั้งก็จำเป็นจริงๆที่ต้องใช้ Excel ในการออกรายงาน

เวลาออกรายงานบน Excel ผมมักจะเขียนโค้ดประมาณนี้ครับ (ใช้ BackgroundWorker ด้วย)


    Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim wk As BackgroundWorker = DirectCast(sender, BackgroundWorker)
        Try
            isSuccess = False
            CreateExcel(wk, e)
            CreateReportByLocation(wk, e)
            CreateReportByTitle(wk, e)
            CreateReportList(wk, e)
            isSuccess = True
        Catch ex As Exception
            isSuccess = False
        Finally
            FinishCreatingReport(wk, e)
        End Try
    End Sub

คำสั่ง CreateExcel จะเป็นการ New Excel.Application รวมถึงสร้าง WorkBook สำหรับเริ่มต้นการออกรายงาน
ส่วน CreatReportXXX จะเป็นการสร้างรายงานแต่ละ WorkSheet ตามต้องการครับ สุดท้ายก็ FinishCreatingReport จะเป็นการคืน memory ให้กับระบบ เราจะมาลองดู function นี้กันครับ


Private Sub FinishCreatingReport(ByVal wk As BackgroundWorker, ByRef e As DoWorkEventArgs)
   Try
       xlBook.SaveAs(fileName)
   Catch ex As Exception
       MessageBox.Show(ex.Message & vbCrLf & "Please contact ITD.", My.Application.Info.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
   Finally
       '// Release memory
       wk.ReportProgress(95)
       xlApp.Quit()
       GC.SuppressFinalize(xlSheet)
       GC.SuppressFinalize(xlBook)
       GC.SuppressFinalize(xlApp)
       GC.Collect()
       xlSheet = Nothing
       xlBook = Nothing
       xlApp = Nothing
    End Try
End Sub

พอรันโปรแกรมและเปิด Task Manager ดูพบว่า
1. พอ BackgroundWorker1_RunWorkerCompleted ทำงานเสร็จ (แน่นอนว่า เรียก FinishCreatingReport ซึ่งอยู่ใน BackgroundWorker1_DoWork แล้ว) ใน Task Manager ยังมี Excel.exe ค้างอยู่ครับ
2. ถ้ากดปุ่มเพื่อสั่งออกรายงานใหม่อีกครั้ง Excel.exe จะหายไปจาก Task Manager พอโปรแกรมสั่ง CreateExcel ถึงจะสร้างขึ้นมาใหม่
3. เมื่อ BackgroundWorker ทำงานเสร็จ ออกรายงานเรียบร้อย Excel.exe ยังคงอยู่ ถ้าผมปิด form นี้ Excel.exe จะหายไปจาก Task Manager แต่ถ้าผม stop debugging ใน Visual Studio หรือโปรแกรมที่เขียนมี bug และ shutdown ไป Excel.exe จะยังคงค้างอยู่ใน Task Manager

ทีนี้ผมลองเพิ่มคำสั่ง ReleaseComObject ครับ


Private Sub FinishCreatingReport(ByVal wk As BackgroundWorker, ByRef e As DoWorkEventArgs)
   Try
       xlBook.SaveAs(fileName)
   Catch ex As Exception
       MessageBox.Show(ex.Message & vbCrLf & "Please contact ITD.", My.Application.Info.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
   Finally
       '// Release memory
       wk.ReportProgress(95)
       xlApp.Quit()
       System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
       System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
       System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
       GC.SuppressFinalize(xlSheet)
       GC.SuppressFinalize(xlBook)
       GC.SuppressFinalize(xlApp)
       GC.Collect()
       xlSheet = Nothing
       xlBook = Nothing
       xlApp = Nothing
    End Try
End Sub

ลองรันโปรแกรมดู พบว่าเมื่อ BackgroundWorker ทำงานเสร็จ Excel.exe จะถูกลบทิ้งไปทันที ไม่เหลือใน Task Manager แล้ว (พอไล่ดูอย่างละเอียด พบว่า Excel.exe จะหายไป ก่อน BackgroundWorker1_RunWorkerCompleted จะทำงานเสร็จครับ)

ดังนั้นนอกจากจะใช้งาน Excel แล้ว ถ้าเรามีการทำ COM Marshal (InterOp) กรุณาเรียกใช้ System.Runtime.InteropServices.Marshal.ReleaseComObject เพื่อจะได้มั่นใจว่า Unmanaged Memory ได้ถูก Release จริงๆครับ

BlueprintCSS

2009-09-04T21:28:00.000+07:00

วันนี้ได้อ่าน forum ต่างประเทศ เจอคำถามโลกแตกที่ว่าทำไมตอน design เวบ แล้วทดสอบใน IE7 ก็ดูดีแต่พอดูด้วย browser อื่นมันเละไปหมด ซึ่งปัญหานี้คาดว่าคงเจอกันหลายคน แต่โชคดีครับที่ผมทำ Web Application สำหรับใช้ภายในบริษัท ดังนั้นจึงสามารถบอกให้พนักงานใช้เฉพาะ IE เท่านั้นได้ เลยไม่ค่อยเจอปัญหานี้ มีบ้างที่ IE6 กับ IE7 ไม่เหมือนกัน เป็นเพราะว่า IE7 นั้นทาง Microsoft เริ่มกลับมาใช้มาตรฐานสากลแล้ว ซึ่ง IE ก่อนหน้านี้ใช้มาตรฐานของ Microsoft (คือเมื่อก่อนใช้กติกูเป็นหลัก)

หลายๆคนแก้ปัญหานี้โดยการใช้เทคนิคที่เรียกว่า CSS Hacked (สำหรับภาษาไทยศึกษาเพิ่มเติมได้ที่ www.divland.com ครับ) หรืออาจจะเขียน javascript สำหรับโหลด CSS โดยตรวจสอบ browser ก่อนว่าเป็นเวอร์ชันไหน แล้วก็ไปอ่านข้อมูล CSS ที่เขียนสำหรับเวอร์ชันนั้นๆมาใส่ใน webpage ซึ่งแน่นอนว่ามันต้องถึกพอดู และก็ต้องทดสอบหลายๆครั้ง เพื่อให้มั่นใจว่าการแสดงผลถูกต้องตามต้องการ

พอดีเจอคำตอบหนึ่งแนะนำให้ลอง BlueprintCSS ซึ๋งเป็น CSS Framework ตัวหนึ่งที่นอกจากจะช่วยแก้ปัญหานี้ยังมีความสามารถอื่นๆอีกเพียบ ผมก็ลองดาวน์โหลดมาทดสอบตามระเบียบครับ ไว้มีโอกาสจะมาลองเขียน blog เพิ่ม สำหรับผู้สนใจลองไปศึกษาหรือดาวน์โหลดได้ที่ http://www.blueprintcss.org/
มีทั้ง Demo, Wiki, Discussion และอื่นๆครบถ้วน น่าสนใจจริงๆครับ

LINQ To SQL Group by multiple columns

2009-08-21T23:13:00.001+07:00

วันนี้จะเขียน Linq To SQL เพื่อให้ทำคำสั่งเหมือน

SELECT cocode, arbook, batchdate, batchno,count(*)
FROM arpendingbill
WHERE cocode = 'TGIP' AND arbook = 'NEWAR'
GROUP BY cocode, arbook, batchdate, batchno

โดยให้นำข้อมูลไปใส่ Class ชื่อ ARPendingBatch เขียนเป็น LINQ ดังนี้ครับ


Dim b = From pb In dc.ARPendingBills _
        Where pb.COCode = coCode AndAlso pb.ARBook = arBook _
        Group By key = New With {pb.COCode, pb.ARBook, pb.BatchDate, pb.BatchNo} _
        Into pbGroup = Group _
        Select New ARPendingBatch With {.ARBook = key.ARBook, _ 
                  .CoCode = key.COCode, .BatchDate = key.BatchDate, _
                  .BatchNo = key.BatchNo, .BillCount = pbGroup.Count( _
                             Function(c) c.BatchDate = key.BatchDate AndAlso _ 
                                         c.BatchNo = key.BatchNo)}

พอลอง debug เพื่อดู SQLCommand ที่มันสร้างขึ้นมาได้แบบนี้ครับ

SELECT ( SELECT COUNT(*) FROM [dbo].[ARPendingBill] AS [t2] WHERE ([t2].[BatchDate] = [t1].[BatchDate]) AND ([t2].[BatchNo] = [t1].[BatchNo]) AND ([t1].[COCode] = [t2].[COCode]) AND ([t1].[ARBook] = [t2].[ARBook]) AND ([t1].[BatchDate] = [t2].[BatchDate]) AND ([t1].[BatchNo] = [t2].[BatchNo]) AND ([t2].[COCode] = @p0) AND ([t2].[ARBook] = @p1) ) AS [BillCount], [t1].[BatchDate], [t1].[BatchNo], [t1].[ARBook], [t1].[COCode] AS [CoCode] FROM ( SELECT [t0].[COCode], [t0].[ARBook], [t0].[BatchDate], [t0].[BatchNo] FROM [dbo].[ARPendingBill] AS [t0] WHERE ([t0].[COCode] = @p0) AND ([t0].[ARBook] = @p1) GROUP BY [t0].[COCode], [t0].[ARBook], [t0].[BatchDate], [t0].[BatchNo] ) AS [t1]

รู้สึกว่ามันช่างเข้าใจยากพิกล ส่วนหนึ่งเป็นเพราะยังไม่ชินด้วยครับ และควรจะต้องไปจัด Layout ใหม่ให้อ่านง่ายๆก่อน แต่ผลลัพท์ได้ออกมาเหมือนกัน

ลองเขียนโดยใช้ Lambda Expression ครับ


Dim b = dc.ARPendingBills.Where( _
        Function(a) a.COCode = coCode AndAlso a.ARBook = arBook).GroupBy( _
        Function(g) New With {.coCode = g.COCode, .arBook = g.ARBook, _
                    .batchDate = g.BatchDate, .batchNo = g.BatchNo}).Select( _
        Function(c) New ARPendingBatch With {.ARBook = c.Key.arBook, _ 
                    .CoCode = c.Key.coCode, .BatchDate = c.Key.batchDate, _ 
                    .BatchNo = c.Key.batchNo, .BillCount = c.Count( _
                    Function(k) k.BatchDate = c.Key.batchDate AndAlso _ 
                              k.BatchNo = c.Key.batchNo)})

ได้ผลลัพท์เหมือนกันครับ (ก็แหงละ ลอง debug ดู SQLCommand ก็เหมือนกับที่เขียนด้านบน)

รู้สึกขัดใจกับ SQLCommand ที่ Linq To SQL สร้างให้ ดังนั้นเลยเปลี่ยนมา ExecuteQuery ตรงๆแทน


Dim b = dc.ExecuteQuery(Of ARPendingBatch)( _
        "SELECT cocode, arbook, batchdate, batchno, " & _ 
        "BillCount=count(billRecId) " & _
        "FROM arpendingbill & _ 
        "WHERE cocode = '" & coCode & "' and arbook = '" & arBook & "' " & _
        "GROUP BY cocode, arbook, batchdate, batchno")

มันไม่ Typed Save ครับ แต่ก็มีข้อดีคือ ผมไม่ต้องใช้เวลาเป็นชั่วโมงในการลองเขียน LINQ To SQl แล้ว debug ได้ SQLCommand ที่อ่านยาก และก็ต้อง Test เยอะเพื่อความมั่นใจ ดังนั้นช่วงนี้ถ้าเจอกรณีแบบนี้ก็จะใช้ ExecuteQuery ไปก่อน แล้วพอมีเวลาหัดให้คล่องๆแล้วค่อยกลับมาแก้ครับ (แต่มันก็อ่านยากเหมือนกันนะ programmer ที่ต้องมาแก้โค้ดนี้ภายหลัง ไม่แน่ใจว่าจะชอบแบบไหน ดังนั้นผมเลย Comment เก็บไว้ทั้ง 3 แบบเลย)

ว่าแต่โค้ด Linq To SQL ด้านบน สามารถเขียนได้ง่ายกว่านี้มั๊ยนะ

สร้าง DIV เพื่อบัง WebPage ขณะใช้งาน AJAX

2009-08-19T21:09:00.000+07:00

ปกติเวลาพัฒนา Web Application ด้วย ASP.NET ผมมักจะใช้ ASP.NET AJAX ร่วมด้วยเสมอ และเมื่อมีการ PostBack หรือเรียกใช้ WebServices ก็จำเป็นต้องเขียน javascript เพื่อโชว์รูปว่ากำลัง Update และ disable controls ต่างๆ

พอดีได้เข้าไปดูเวบไหนจำไม่ได้แล้วครับ เค้าน่าจะสร้าง Div ที่กำหนด OPACITY ไว้เพื่อให้เป็นกรอบจางๆสำหรับบังหน้าเวบขณะ process งาน ก็สะดวกดีนะครับ เพราะว่าถ้าในหน้ามี control หลายๆตัว จะไปนั่งไล่ disable ทีละตัวก็จะถึกไปหน่อย ยิ่งถ้าใช้พวก asp:menu หรือ Master Page ด้วยแล้ว เสียเวลาน่าดูชม สร้าง Div มาบังมันซะเลย เร็วและได้ผลลัพท์ไม่แตกต่างกัน (อาจจะดีกว่าด้วยครับ) เลยมาลองทำดูบ้างครับ


<div id="divProgress">
   <div id="divBackground"style="z-index:999; position:absolute;top:0px;left:0px; background-color:#eeeeee;filter:alpha(opacity=40); opacity:0.4;-moz-opacity:0.4"></div>
   <div id="divImg" style="z-index:1000;position:absolute;border: 1px solid #800000; top:340px;left:200px;width:300px;text-align:center;background-color:#FFDECE">
       <img alt="Processing" src="../Images/loading.gif" /><asp:label ID="lblLoading" CssClass ="textNormal" Text="Preparing reports..." runat="server"></asp:label>
   </div>
<div>

โดยปกติก็จะกำหนด visibility เป็น hidden ไว้ก่อน พอมีการเรียกใช้ AJAX ก็จะเปลี่ยนเป็น visible มาดูโค้ดกันครับ


<script type="text/javascript" id="MSAJAX">
    var prm = Sys.WebForms.PageRequestManager.getInstance();
    prm.add_beginRequest(onBeginRequest);
    prm.add_endRequest(onEndRequest);

    function onBeginRequest(sender, e) {
        ShowProgress(true);
    }

    function onEndRequest(sender, e) {
        ShowProgress(false);
    }
        function ShowProgress(isShow) {
        if(isShow == true){
           $get("divProgress").style.visibility = "visible";
           var dv = $get("divBackground")
           dv.style.width = "1200px";
           dv.style.height = "1000px";
        }else{
           $get("divProgress").style.visibility = "hidden";
        }
    }
</script>

เนื่องจากผมใช้ PageRequestManager ของ ASP.NET AJAX เป็นตัวสั่ง ShowProgress ดังนั้น Script นี้ต้องวางไว้ข้างล่าง ScriptManager control นะครับ

VB.NET สร้างรายงานด้วย .rdlc (Client Report Definition File)

2009-08-16T23:59:00.000+07:00

ช่วงนี้ดึกๆหามรุ่งหามค่ำนั่งโม่โปรแกรมอยู่ (เล่นปังยา 2 ชั่วโมง เขียนโปรแกรม ครึ่งชั่วโมง) พอจะสร้างรายงาน ปรากฏว่าตัว Visual Studio 2008 ที่ลงไว้ไม่มี Crystal Report มาด้วย (กรรม หาแผ่นก็ไม่เจอ) ก่อนหน้านี้เคยใช้ Print Document รู้สึกว่ามันถึกมาก (เหมือนใช้ VSPrint ใน VB6 เลย) มานั่งทบทวนจำได้ว่าเคยอ่านบทความเรื่อง rdlc กับ Report Viewer ผ่านตา เลยไปลองใช้บริการอากู๋ดูครับ

ได้ข้อมูลมาเยอะมาก อ่านผ่านๆไม่ค่อยรู้เรื่อง ก็ลงมือลองเขียนเลยครับ ปรากฏว่าไม่ยากเท่าไหร่ ติดที่ว่าไม่ถนัดครับ แต่ก็พอถูๆไถๆไปได้ ลองเขียน Daily Report ใช้เวลาคลำประมาณครึ่งชั่วโมงก็เสร็จครับ ไว้ถ้ามีเวลาจะศึกษาเพิ่ม แล้วจะมาลงวิธีการสร้างรายงานอีกที

พอสร้างรายงานเสร็จก็เขียนโค้ดสำหรับ Preview Report ครับ ก็ใช้ ReportViewer Control นั่นแหละ ก่อนอื่นสร้าง form สำหรับ query ข้อมูลก่อน แล้วพอ user กด print ก็ไปเปิด form ที่มี ReportViewer ขึ้นมาแสดง


    Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click

        Dim reports As List(Of Entity.ReportDailySummary) = ReportManager.GetDailySummaryReport(Me.dtpWorkingDate.Value)

        If reports Is Nothing OrElse reports.Count = 0 Then
            MsgBox("ไม่พบข้อมูล", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, My.Application.Info.Description)
        Else
            Dim ds As New Microsoft.Reporting.WinForms.ReportDataSource("ReportDailySummary", reports)
            Dim params As New List(Of Microsoft.Reporting.WinForms.ReportParameter)
            params.Add(New Microsoft.Reporting.WinForms.ReportParameter("WorkingDate", Me.dtpWorkingDate.Value.ToString("dd MMMM yyyy")))
            frmPreview.ReportViewer1.LocalReport.ReportPath = "rptDailySummary.rdlc"
            frmPreview.ReportViewer1.LocalReport.DataSources.Add(ds)
            frmPreview.ReportViewer1.LocalReport.SetParameters(params)
            frmPreview.ReportViewer1.RefreshReport()
            frmPreview.Text = "รายงานสรุปยอดขายประจำวัน"
            frmPreview.ShowDialog()
        End If

    End Sub

เนื่องจากขี้เกียจ และต้องรีบไปออกรอบ ดังนั้นลงแค่ code พอ เผื่อว่าวันหลังลืมวิธี Preview Report จะได้มาค้นดูได้

ปล. วันนี้ตอนอยู่ที่ทำงานจะเขียนคำสั่งสำหรับ sort list ว่าจะใช้ Lamda Expression แต่นึกไม่ออก ลองเขียนแล้วก็รันไม่ผ่าน ยังดีที่ได้เอาโค้ดมาลง blog ไว้ เลยมาเปิดหาดู สะดวกดีครับ ดีกว่าไปเปิดโปรเจคเก่าๆมาหามากมายก่ายกอง

VB.NET อ่านข้อมูลภาษาไทยจากไฟล์

2009-08-14T23:13:00.006+07:00

วันก่อนมีโอกาสเขียนโปรแกรมสำหรับทำการอ่านข้อมูลจาก text file แล้วตัดเอาข้อมูลไปเก็บใน database เพื่อประมวลผล จริงๆก็ไม่ยากครับ แต่ปรากฏว่าข้อมูลภาษาไทยมันกลายเป็นอักษรต่างดาว สาเหตุก็คือ text file ที่ว่าเป็น daily report ที่ได้จากการ export มาจากโปรแกรม POS (Point of Sale) และมันถูก encode ด้วย ANSI (ASCII) ไม่ใช่เป็น UNICODE พอเขียน VB.NET สั่งอ่านไฟล์ตรงๆมันเลย encode ไม่ถูกครับ เพราะว่า .NET ใช้ Unicode (UTF-16) เป็น default encoder

ดังนั้นตอนใช้ StreamReader ก็กำหนด Encode ไปด้วยแค่นี้เอง (งมตั้งนาน - จริงๆแล้วพอคิดไม่ออก เลยไปเล่นเกมส์ พอเล่นเสร็จ ง่วงแล้วก็เลยรีบนอน 5555) ทีนี้ก็มีให้เลือกว่าจะใช้ Windows-874 หรือว่า TIS-620 ผมก็เลือกใช้ Windows-874 เพราะว่า text file โดน export มาจากโปรแกรมที่เขียนบน Windows ซึ่งเขียนมานานพอสมควร ดังนั้นก็เลยเลือกใช้ Windows-874 ซะเลย (ยังไม่ได้ลอง TIS-620 เลย เพราะขี้เกียจ)

ลองดูโค้ดกัน ผมสร้าง Singleton Class ชื่อ DBImportManager ขึ้นมา มี Sub อยู่ 1 ตัว สังเกตุว่ามี BackGroundWorker เป็นพารามิเตอร์ด้วย


Public Sub ImportData(ByVal bk As System.ComponentModel.BackgroundWorker, ByVal fileName As String, ByVal fileImporter As IFileImporter)

  If Not FileIO.FileSystem.FileExists(fileName) Then Exit Sub
  Dim iLines As Integer
  Try
      Dim fs As New System.IO.StreamReader(fileName, System.Text.Encoding.GetEncoding(874))
      Do While Not fs.EndOfStream
          fileImporter.ParseLine(fs.ReadLine)
          bk.ReportProgress(10, "Reading: " & iLines)
      Loop
      fileImporter.Update()
  Catch exIO As IO.IOException
      bk.ReportProgress(0, exIO.Message)
  Catch ex As Exception
      bk.ReportProgress(0, ex.Message)
  End Try

End Sub

และพารามิเตอร์ตัวสุดท้ายก็เป็น IFlieImporter เนื่องจากว่าเรามีไฟล์หลายตัวที่ต้องทำการ import ข้อมูล ซึ่งแต่ละไฟล์ก็จะมีเงื่อนไขในการตัดไม่เหมือนกัน ผมเลยสร้าง Interface ตัวนี้ขึ้นมาครับ และก็ไปสร้าง FileImporter สำหรับไฟล์แต่ละแบบ เช่น รายงานประจำวัน รายงานลูกค้าใหม่ รายงานรับสินค้าเข้า ฯลฯ ดังนั้นเวลาเปลี่ยน logic ในการตัดไฟล์ เราก็ไปทำการแก้ไขเฉพาะ FileImporter Class ที่เราสร้างขึ้น โดยจะไม่กระทบกับ Class ตัวนี้เลย

ลองรันทดสอบดู เรียบร้อยครับ ผลลัพธ์ถูกต้อง

วิเคราะห์ WebSite ด้วย Google Analytics

2009-08-09T09:55:00.003+07:00

หลังจากเขียน Blog มาซักพัก เริ่มอยากรู้ว่ามีคนเข้าชมเยอะสักแค่ไหนครับ ก่อนหน้านี้เขียนที่ Bloggang.com จะมีตัวนับสถิติมาให้ (แต่ข้อมูลผิดบ่อยๆนะ) เลยลอง search ในเนตหาตัวนับสถิติฟรี (เน้น) มาลองใช้ครับ ก็เลยมาสะดุดที่ Google Analytics ครับ รู้สึกว่าเครื่องมือทันสมัยแถมมีเยอะมากมายครับ

ลองเข้าไปลงทะเบียนที่ http://www.google.co.th/analytics

ข้อมูลเพิ่มเติม ละเอียดน่าสนใจครับ (ภาษาไทย)
Google Analytics คืออะไร, Tung's Blog
มารู้จัก Google Analytics กันเถิด [ตอนที่ 1], โลกของคนไอที

ตอนนี้ยังใช้งานไม่ค่อยเป็น ต้องลองศึกษาอีกซักพักครับ หวังว่าคงมีคนเข้ามาชม blog เยอะๆ จะได้มีข้อมูลมาลองศึกษาเยอะๆตามไปด้วยครับ

jQuery ลอง Selectors หลายๆแบบ

2009-08-06T23:44:00.001+07:00

วันก่อนคุณ Nine ได้ post ถามเรื่องการใช้ jQuery สำหรับค้นหาข้อมูลเพื่อซ่อน table โดยหน้า html ได้มาจาก MS SharePoint ครับ ทีแรกผมเข้าใจว่า html จะมี form เป็น pattern เดียวกัน คือมีจำนวนแถวและคอลัมภ์เท่ากันเสมอ ดังนั้นผมจึงเขียนโค้ดดังนี้ครับ


var isCompleted = $("table.ms-formtable tr:eq(11) td:eq(1)").html();
if (isCompleted!=null&&isCompleted.indexOf("1 ")>-1) {
     $('table.ms-toolbar').hide();
}

คือใช้ Selectors แบบ ancestor descendant ร่วมกับ Filters หรืออธิบายคือ สั่งให้ jQuery ไปหา element ที่ class =table.ms-formtable (ซึ่งเป็น table) จากนั้นก็ไปที่ row ที่ 12 (index=11) ของตารางนี้ และไปที่ column ที่ 2 (index=1) แล้วไปดึงเอา innerHTML ออกมาซะ เพื่อตรวจสอบเงื่อนไขสำหรับ hide ตาราง

แต่ปรากฎว่าแต่ละหน้า อาจมี row ไม่เท่ากันก็ได้ ดังนั้นคุณ Nine จึงสั่งไปที่ table เดียวกัน (class =table.ms-formtable) แล้วใช้ jQuery Object Accessors ที่ชื่อว่า each ในการวนลูปทีละแถว เพื่อตรวจสอบข้อมูลทุกแถวครับ


$(document).ready(function($) {
     var rows = $('table.ms-formtable tr').each(function() {
          var row = $(this);
          var columns = row.children('td');
          if(columns.eq(1).html().indexOf('ProcessCompleted')>-1 && columns.eq(1).html().indexOf('1 ')>-1)
               $('table.ms-toolbar').hide();
     });
});

จริงๆแล้ว เราควรจะใช้ ID เป็น Selector จะได้ง่าย แต่เพราะว่า MS SharePoint มันดันสร้าง ID ซ้ำกันเยอะแยะนั่นสิ ทำให้เวลาเราใช้ ID Selector แล้วมันจะได้เฉพาะ element แรกเท่านั้นนั่นเอง (เพราะ ID ควรมีแค่ 1 ID ต่อ 1 page)
ใครสนใจจะดูโค้ดเต็มๆลองไปดูที่

jQuery ค้นหาค่า และซ่อน table ช่วยหน่อยคร้าบ
http://greatfriends.biz/?110667

VB.NET Coding Convention

2009-08-03T21:14:00.001+07:00

ผมได้เข้าไปค้นหาข้อมูลใน msdn ก็เลยเจอหัวข้อ VB.NET Coding Convention อยู่ภายใน VS2008 พออ่านๆดูก็พบว่ามีหลายอย่างที่ไม่ได้ทำตาม Convention ของ MS ครับ ก่อนอื่นมาดูก่อนว่าถ้าเราเขียนโค้ดตาม guide line นี้จะมีข้อดีอะไรบ้าง

Coding conventions create a consistent look to the code, so that readers can focus on content, not layout.

Conventions let the readers understand the code more quickly, because it allows them to make assumptions based on previous experience.

Conventions make copying, changing, and maintaining the code easier.

Conventions demonstrate Visual Basic "best practices."

ทีนี้มาลองดูหัวข้อที่น่าสนใจครับ

Naming Convention

Do not use "My" or "my" as part of a variable name. This creates confusion with the My objects. ข้อนี้ผิดบ่อยครับ บางทีคิดไม่ออกชอบตั้งชื่อตัวแปรมี My นำหน้า

Layout Convention

Use only one statement per line. Do not use the Visual Basic line continuation character (:). ข้อนี้ก็ทำบ้าง แต่ส่วนใหญ่จะใช้กับ 2 statements สั้นๆ โดยเฉพาะอย่างยิ่งเขียนใน SELECT CASE หรือ IF THEN STATEMENT และพอทำแล้วผมว่าโค้ดอ่านง่ายนะ

Use only one declaration per line.

Add at least one blank line between method and property definitions. ผมทำตามนี้อยู่แล้ว เห็นโค้ดบางคนไม่เว้นบรรทัด อ่านแล้วลายตาครับ

Language Guidelines
String Data Type

Use & to concatenate strings: เมื่อก่อนก็เขียนแบบนี้ แต่ตอนหลังเปลี่ยนมาใช้ String.Concat() นะ ว่าแต่ใช้แบบไหนดีเนี่ย

For appending strings in loops, use the StringBuilder object: อันนี้แน่นอน ใช้ StringBuilder ดีกว่าเห็นๆ

Type Inference

Take advantage of type inference for local variables: สำหรับผมกำหนด Type ไปเลยอ่านง่ายกว่า Type inference นะ อันนี้ขอไม่เปลี่ยน

Use Type Inference for Loop Variables in For or For Each Statements
Allow type inference to determine the type of the loop range variable. เหมือนข้อเมื่อกี้ ส่วนตัวไม่ชอบ Type inference (แต่ก็ใช้บ้าง) ถ้าเป็นไปได้จะหลีกเลี่ยง มันเหมือนคนพูดสั้นๆให้เข้าใจเอาเอง

Unsigned Data Type

Use Integer rather than unsigned types unless memory is at a premium. อันนี้รวมถึงไม่ควรใช้ Int16, Int64, Short, Long ด้วย

Use the MsgBox Function

Use MsgBox instead of MessageBox.Show or Console.WriteLine. In environments that do not support the MsgBox function, such as Silverlight, use an appropriate alternative. อืม เคยอ่านมาว่าให้ใช้ MessageBox.Show แต่จริงๆชอบ MsgBox มากกว่า แบบนี้ก็กลับมาใช้แบบเดิมดีกว่าครับ

New Keyword

Use short instantiation:

Use object initializers for new objects instead of the parameterless constructor:

ยังมีอีกพอสมควรครับ สำหรับคนที่สนใจเข้าไปศึกษาได้ที่ http://msdn.microsoft.com/en-us/library/h63fsef3.aspx ครับ

jQuery กับการกำหนด Mouse Hover ใน GridView

2009-08-01T01:10:00.002+07:00

อ้างอิงจากคำถามที่ GreatFriends ครับ
ขอคำแนะนำเรื่อง GridView กับ Jquey จ้า
http://greatfriends.biz?110946

เจ้าของกระทู้ต้องการทำ Highlight สีของแถวใน GridView เมื่อเอา mouse ไปชี้ที่แถวนั้นๆครับ และพอกด Select ใน GridView ก็ให้นำข้อมูลมาใส่ textbox

จริงๆแล้วถ้าข้อมูลที่จะใส่ TextBox อยู่ใน GridView ทั้งหมด เราสามารถใช้ jQuery ดึงข้อมูลของแถวมาใช้ได้เลย แต่ผมสมมติว่าเราต้องการข้อมูลอื่นๆ โดยอ้างจาก Id ของข้อมูลที่เลือกละกันครับ ดังนั้นผมก็ต้อง Post back กลับไปเพื่อหาค่ามาใส่ใน textbox ก็เลยทำหน้า page มาลองทดสอบดูครับ

โค้ดส่วน Head ครับ Style ผม copy มาจากเจ้าของกระทู้เลย ส่วน jQuery ผมใช้ที่อาจารย์สุเทพแก้ไขให้ นำมาแยกออกจาก $document.ready() เป็น LoadHandle function ครับ


<head runat="server">
    <title>Test</title>
    <style>
        .trMouseClick {
            background-color:  Transparent;
            color: #A4D1A1 !important;
            text-decoration: none;
        }

    .trMouseOver {
            background-color: #F2FEF2 !important;
            color: #A4D1A1 !important;
            text-decoration: none;
        }

    .trMouseOver a  {
            background-color: #F2FEF2 !important;
            color: #A4D1A1 !important;
        }
    </style>
    <script type="text/javascript" src="../Scripts/jquery-1.3.2-vsdoc.js"></script>
    <script type="text/jscript">

        $(document).ready(LoadHandle);
    
        function LoadHandle() {
            $("tr:gt{0}").hover(function() {
                $(this).addClass("trMouseOver");
                }, function() {
                $(this).removeClass("trMouseOver");
            });
            $("tr:gt{0}").click(function() {
                $(this).addClass("trMouseClick").siblings().removeClass("trMouseClick");
            });
        }

    </script>
</head>

โค้ดส่วน Form tag (ใน Body)


<asp:ScriptManager ID="ScriptManager1" runat="server">:
</asp:ScriptManager>:
<div id = "main" style="height:700px;z-index:-10">:
    <div id="text" style="position:absolute">:
        <asp:UpdatePanel ID ="UpdatePanel1" runat="server" UpdateMode="Conditional" RenderMode="Block">:
            <ContentTemplate>:
                <div id="Update" style="position:absolute;top:50px; width:700px">:
                   <asp:GridView ID="gvInvoice" runat="server" AllowPaging="True"
                        AutoGenerateColumns="False" BorderColor="Gainsboro" BorderStyle="None"
                        BorderWidth="1px" CellPadding="0" GridLines="Horizontal"
                        AutoGenerateSelectButton="True" DataKeyNames="ItemId">:
                        <Columns>:
                            <asp:TemplateField SortExpression="ITEMID">:
                                <ItemStyle Width="0px">:</ItemStyle>:
                                <ItemTemplate>:
                                    <asp:HiddenField id="hdnRecId" runat="server" Value='<%# Bind("ITEMID") %>:'>:</asp:HiddenField>:
                                </ItemTemplate>:
                            </asp:TemplateField>:
                            <asp:TemplateField HeaderText="Item No">:
                                <HeaderStyle Width="40px" HorizontalAlign="center">:</HeaderStyle>:
                                <ItemStyle HorizontalAlign="center" />:
                                <ItemTemplate>:
                                    <asp:Label id="lblItemNo" runat="server" Text='<%# Eval("ORDERNO") %>:' >:</asp:Label>:
                                </ItemTemplate>:
                            </asp:TemplateField>:
                            <asp:TemplateField HeaderText="Invoice Date">:
                                <ItemStyle Width="100px">:</ItemStyle>:
                                <HeaderStyle HorizontalAlign="Center">:</HeaderStyle>:
                                <ItemTemplate>:
                                    <asp:Label style="TEXT-ALIGN: center" id="Label2" runat="server" Width="80px" Text='<%# Bind("InvoiceDate", "{0:dd/MM/yyyy}") %>:'>:</asp:Label>:
                                </ItemTemplate>:
                            </asp:TemplateField>:
                            <asp:TemplateField HeaderText="Product Code">:
                                <ItemStyle Width="60px">:</ItemStyle>:
                                <HeaderStyle HorizontalAlign="Center">:</HeaderStyle>:
                                <ItemTemplate>:
                                     <asp:Label style="TEXT-ALIGN: center" id="Label3" runat="server" Width="50px" Text='<%# Bind("ProductCode") %>:'>:</asp:Label>:
                                </ItemTemplate>:
                            </asp:TemplateField>:
                            <asp:TemplateField HeaderText="Amount (THB)">:
                                <ItemStyle Width="80px">:</ItemStyle>:
                                <HeaderStyle HorizontalAlign="Center">:</HeaderStyle>:
                                <ItemTemplate>:
                                   <asp:Label style="TEXT-ALIGN: right" id="Label5" runat="server"  Width="70px" Text='<%# Bind("Amount","{0:#,##0.00}") %>:'>:</asp:Label>:
                                </ItemTemplate>:
                            </asp:TemplateField>:
                            <asp:TemplateField ShowHeader="False">:
                                <ItemStyle Width="40px">:</ItemStyle>:
                                <ItemTemplate>:
                                    <asp:ImageButton ID="btnEdit" runat="server" CommandName="Select" ImageUrl="~/Images/icon_edit.gif" ToolTip="Edit" />:
                            </ItemTemplate>:
                            </asp:TemplateField>:
                        </Columns>:
                        <RowStyle >:</RowStyle>:
                        <SelectedRowStyle>:</SelectedRowStyle>:
                        <PagerStyle HorizontalAlign="Right" VerticalAlign="Top">:</PagerStyle>:
                        <HeaderStyle >:</HeaderStyle>:
                        <AlternatingRowStyle >:</AlternatingRowStyle>:
                    </asp:GridView>:
                </div>:     
                <div id="dvContent" style="position:absolute;top:400px">:
                        <asp:TextBox ID="txtId" runat="server" style="width:100px" MaxLength="6">:</asp:TextBox>:
                        <asp:TextBox ID="txtDescription" runat="server" style="width:250px">:</asp:TextBox>:
                        <asp:TextBox ID="txtAmount" runat="server" style="width:250px">:</asp:TextBox>:
                </div>:              
            </ContentTemplate>:              
        </asp:UpdatePanel>:
    </div>:
</div>:

โค้ดส่วน Code Behind ครับ


Imports jnithi.Class.Invoice

Partial Class InvoiceTest
    Inherits System.Web.UI.Page
#Region "Local fields"

    Private _inv As List(Of Entity.Invoice) = Nothing

#End Region

    Private Sub GetInvoiceByInvoiceNo()
        If _inv IsNot Nothing Then
            _inv.Clear()
            _inv = Nothing
        End If
        _inv = Manager.Invoice.GetInvoiceByInvoiceNo("Test1")
        Session("Invoice") = _inv
    End Sub

    Private Sub BindGridView()
        gvInvoice.DataSource = _inv
        gvInvoice.DataBind()
    End Sub

    Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load

        If Not IsPostBack Then
            GetInvoiceByInvoiceNo()
        Else
            _inv = Session("Invoice")
        End If
        BindGridView()
    End Sub

    Protected Sub gvInvoice_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvInvoice.SelectedIndexChanged
        Dim id As Integer = CType(gvInvoice.SelectedValue, Integer)
        Dim item As Entity.Invoice = _inv.Find(Function(i) i.ItemID = id)
        Me.txtId.Text = id
        Me.txtDescription.Text = item.ItemWorkDesc
        Me.txtAmount.Text = item.LCCost.ToString("#,##0.00")
        ScriptManager.RegisterStartupScript(Page, Page.GetType, "GVDataBound", "LoadHandle();", True)
    End Sub

ผลการทดสอบครับ

สรุป
1. ผมแยก LoadHandle Function ออกมาจาก $document.ready() เพื่อที่ว่าให้ function นี้เป็น Event Handler เมื่อทำการ Load ข้อมูลฝั่ง client เสร็จครับ
2. ใน GridView_SelectedIndexChanged ผมทำการ register script เพื่อให้เรียก LoadHandle functionให้ทำงาน เมื่อ UpdatePanel ทำการ Update ข้อมูลเสร็จแล้ว
3. ถ้าไม่ใช้ ScriptManager.RegisterStartupScript ซึ่งเป็นการสั่งที่ฝั่ง Server เราสามารถใช้ PageRequestManager (เขียน javascript) แทนได้ครับ

ลองสร้าง Extension Method ใน VB9

2009-07-28T22:22:00.002+07:00

ถ้าพูดถึง Visual Studio 2008 แล้ว พระเอกที่มีคนกล่าวขวัญถึงมากที่สุดไม่น่าจะมี feature ไหนเกิน LINQ ไปได้ครับ หลายๆคนคงได้นำ LINQ ไปใช้ในงานจริงกันบ้างแล้ว ส่วนตัวผมเองตอนที่ VS2008 ยังอยู่ในช่วง Beta และ CTP ก็มีคนพูดถึง LINQ ให้ฟังหลายคน แต่ไม่ค่อยได้สนใจครับ แต่พอมาลองใช้งานดูแล้วต้องบอกว่าเยี่ยมมากครับ

สำหรับเบื้องหลังของ LINQ นั้น เทคโนโลยีสำคัญอย่างหนึ่งก็คือ Extension Method นั่นเองครับ เพราะด้วย Extension Method ทำให้เราสามารถใช้ LINQ ได้ โดยที่ runtime ยังเป็น v2.0.50727 เหมือนเดิม ที่เป็นแบบนี้เพราะว่า Extension Method นั้นทำให้เราสามารถเพิ่ม behavior ให้กับ Type ของเราได้โดยไม่จำเป็นต้องมี source code เดิมครับ

สมมติผมต้องการเพิ่มความสามารถให้กับ String Type สำหรับงาน Web Application ถ้าเป็นเมื่อก่อนก็อาจจะสร้าง sealed class ขึ้นมาโดยให้มี static method ที่ต้องการ (เพื่อที่ว่าจะได้ไม่ต้อง new object เวลาใช้งาน) ลองดูตัวอย่างครับ


Public NotInheritable Class MyExtension
    Public Shared Function ApplyStyle(ByVal s As String) As String
        Return String.Format("<span style='FONT-WEIGHT: bold;font-family:Verdana;color:red;'>{0}</span>", s)
    End Function

    Public Shared Function WriteLine(ByVal s As String) As String
        Return String.Format("{0:#,##0}
", s)
    End Function
End Class

แต่ถ้าเราสร้าง Extension Method ใน VB.NET นั้น เราจำเป็นต้องสร้างใน Module ครับ (C# จะสร้างใน Static Class ได้เลย แต่ VB.NET ไม่มี Static Class ครับ คือไม่สามารถใส่ "shared" keyword หน้า Class) และก็ใส่ Extension Attribute ด้วยครับ ลองมาดูโค้ดกัน


Public Module MyExtension2
    <System.Runtime.CompilerServices.Extension()> _
    Public Function EXApplyStyle(ByVal s As String) As String
        Return String.Format("<span style='color:Red;font-weight:bold;font-family:Verdana'>{0}</span>", s)
    End Function

    <System.Runtime.CompilerServices.Extension()>
    Public Function EXWriteLine(ByVal s As String) As String
        Return String.Format("{0:#,##0} <br />", s)
    End Function
End Module

คราวนี้มาดูเวลาการใช้งานกันครับ


Partial Class ModuleDisbursement_DBItemTest
    Inherits System.Web.UI.Page

    Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
        Dim str As String = "Hello world."
        Response.Write(MyExtension.WriteLine(MyExtension.ApplyStyle(str)))
        Response.Write(str.EXApplyStyle().EXWriteLine())
    End Sub

End Class

Reponse.Write บรรทัดแรก ใช้ Static Method ส่วนบรรทัดที่สองใช้ Extension Method ครับ สังเกตุได้ว่าเมื่อเราใช้ Extension Method แล้วเราจะเห็นว่า String Type ของเรามี method เพิ่มขึ้นมาอีก 2 ตัวครับ สะดวกดีจริงๆเลย

ปล. จากการ search ใน google พบว่า

มี developer คนหนึ่งต้องการเพิ่ม method ใน BitMap Type แต่ทำไม่ได้ เพราะเป็น Sealed Class ครับ บางคนแนะนำให้สร้าง BitMap Type ของตัวเอง (ซึ่งเสียเวลาและต้องตามไปแก้โค้ดอีกเยอะเลย) และก็มีคนแนะนำให้ใช้ Extension Method มาแก้ปัญหานี้ครับ

Microsoft MVP ชาวต่างชาติคนหนึ่งเขียนใน blog ว่า Module นี่ไง Static Class ของ VB.NET

Microsoft MVP อีกคนเขียนอีก blog ว่า อยากให้มี Static Class ใน VB10 เพราะว่า Module มันยังไม่ใช่ Static Class จริงๆ (เค้าอธิบายว่ามันไม่เหมือนกันเพราะ Reflection - อืมม ยังไม่ค่อยเข้าใจครับ)

เพิ่มเติมมีคุยกันเรื่องนี้ที่ greatfreinds ครับ
มีวิธีที่จะใช้ Extension method โดยไม่ผ่าน Module ไหมครับ

parseInt ทำงานผิดพลาด

2009-07-24T21:09:00.000+07:00

วันนี้ user โทรมาแจ้งว่ามี bug เกิดขึ้น คือเมื่อเลือกวันที่จากปฏิทินแล้วกลายเป็นวันอื่นไป ลองไปไล่โค้ดดูปรากฏว่าผมไปกำหนด onblur event ของ textbox ให้ไปตรวจสอบวันที่และทำการจัด format เป็น dd/MM/yyyy

ปรากฏว่าโค้ดส่วนที่มี bug คือคำสั่ง parseInt ครับ


function DMY2Date(dmyStr) {
 var splitDateStr=dmyStr.split('/');
 return new Date(splitDateStr[2],String(parseInt(splitDateStr[1])-1),splitDateStr[0]);
} //end function

คือผมสั่ง parseInt(splitDateStr[1]) เพื่อหาค่าเดือนเป็น Integer แต่ปรากฏว่า พอ split data string ออกมา มันได้ค่า "08" ซึ่งใน parseInt function มันมีเงื่อนไขว่าถ้าขึ้นต้นด้วย 0 แปลว่าเป็นเลขฐาน 8 ครับ พอลอง debug ดูปรากฏว่า parseInt("08") ได้ผลลัพธ์เป็น 0 เพราะเลขสูงสุดของเลขฐาน 8 คือ 7 ครับ ถ้า parseInt("010") ถึงจะได้ค่า 8

ลองดู Reference ที่ www.w3schools.com กันครับ

Syntax
parseInt(string, radix)

If the radix parameter is omitted, JavaScript assumes the following:

If the string begins with "0x", the radix is 16 (hexadecimal)

If the string begins with "0", the radix is 8 (octal). This feature is deprecated
If the string begins with any other value, the radix is 10 (decimal)

ก็เลยไปแก้โดยกำหนด radix = 10 เข้าไปด้วย เพื่อบอกว่าเราต้องการ parseInt แบบเลขฐาน 10 ไม่ใช่เลขฐาน 8 นะเฟ้ย


function DMY2Date(dmyStr) {
 var splitDateStr=dmyStr.split('/');
 return new Date(splitDateStr[2],String(parseInt(splitDateStr[1],10)-1),splitDateStr[0]);
} //end function

เสร็จแล้วก็เลยต้องไปไล่นั่งตรวจสอบดูว่ามีการใช้ parseInt function ตรงไหนบ้าง เพื่อที่จะไปใส่ radix ให้หมดเพื่อป้องกันปัญหาครับ

javascript กำหนด textbox ให้รับค่า time (hh:mm)

2009-07-20T22:19:00.004+07:00

สมมติผมมี textbox id="txtTime" และต้องการให้ user สามารถคืย์ข้อมูลเฉพาะเวลา โดยให้ format = hh:mm (23:59) ครับ
ก่อนอื่นก็ต้อง register event handler ให้กับ textbox ก่อน


        $(function() {
            $("#txtTime").keypress(function(e) {txtTime_OnKeyPress(this,e)});
            $("#txtTime").blur(function() { ValidateTime(this) });
        });

จะเห็นว่าผมสร้าง function สำหรับจัดการ keypress event กับ blur event ให้ textbox ครับ สำหรับ txtTime_OnKeyPress สำหรับกำหนดให้ user สามารถคีย์เฉพาะ d(2).d(2) คือตัวเลขสองตัว ตามด้วยจุดและตัวเลขอีกสองตัว ส่วน ValidateTime สำหรับตรวจสอบว่าค่าที่คีย์ตรงกับ format ที่ต้องการหรือเปล่า


        function txtTime_OnKeyPress(sender, e) {
            var myTime = sender.value;
            if(myTime.length>4) {
                event.keyCode = 0;
                return false;
            }
            var charCode = (e.which) ? e.which : e.keyCode
            switch (myTime.length) {
                case 0:
                    if (charCode < 48 || charCode > 50) event.keyCode = 0;
                    break;
                case 1:
                    if (charCode<48||(myTime == 2&&charCode > 51)) event.keyCode = 0; 
                    break;
                case 2:
                    if (charCode != 46)  event.keyCode = 0; 
                    break;
                case 3:
                    if (charCode<48||charCode > 53) event.keyCode = 0; 
                    break;
                default:
                    if (charCode < 48 || charCode > 57) event.keyCode = 0;                 
            }     
        }

        function ValidateTime(sender) {
            if (sender.value.length == 0) return false;
            var regEx = /^(\d{2}).(\d{2})$/;
            var arrMatch = sender.value.match(regEx);
            if (arrMatch == null) {
                alert("Invalid time.");
                sender.value = "";
                return false;
            }
            var hh = arrMatch[1];
            var mm = arrMatch[2];
            if (hh >= 24 || mm >= 60) {
                alert("Invalid time.");
                sender.value = "";
                return false;
            }
            return true;
        }

ทดสอบกับ IE ได้ผล OK ครับ ใครจะนำไปใช้ก็ทดสอบกันก่อนนะ ว่างๆผมจะมาแก้ function ให้สามารถกำหนด format ของเวลาได้ เผื่อบางทีต้องใช้แบบ 11:59 A.M. แต่ตอนนี้ใช้แค่นี้ก่อนละกันครับ

Visual Studio 2008 Samples

2009-07-18T22:41:00.000+07:00

ผมลองคุยกับหลายๆคน ส่วนใหญ่ไม่ทราบว่าทาง Microsoft ได้ทำการเผยแพร่ "Visual Studio 2008 Samples" ให้ดาวน์โหลดมาลองกันครับ ผมเองได้ลองดาวน์โหลด Visual Studio 2008 RTM Samples มาลองดูตัวอย่าง (โดยเฉพาะ LINQ เปิดอ่านดูบ่อยพอสมควร)

นอกจาก VS2008 Samples แล้วยังมี Code Samples อื่นๆเลือกให้ลองดาวน์โหลดมาศึกษาเยอะแยะมากครับ

สนใจเข้าไปดาวน์โหลดได้ที่ Visual Studio 2008 Samples

VBScript ดึงชื่อและอีเมลล์จาก Active Directory

2009-07-17T22:08:00.002+07:00

เมื่อหลายวันก่อนผมต้องทำการดึง ชื่อพนักงาน และ email address ที่เก็บไว้ใน AD ออกมาเพื่อตรวจสอบ และ Import เข้า Database สำหรับไว้ใช้ในการทำ mailling list ใช้ภายในครับ ลอง search ดูใน google ก็พบว่ามีหลายวิธี และที่ปิ๊งที่สุดก็คือการเขียน VBScript เพื่อไปดึงข้อมูลจาก LDAP มาเขียนใส่ text file ครับ


 Dim FileSystem
 'Initialize global variables
 Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
 Set OutPutFile = FileSystem.CreateTextFile("email.txt", True)
 Set oContainer=GetObject("LDAP://OU=Department Users,DC=MyDomainName,DC=com")
 'Enumerate Container
 EnumerateUsers oContainer
 'Clean up
 OutPutFile.Close
 Set FileSystem = Nothing
 Set oContainer = Nothing
 WScript.Echo "Finished"
 WScript.Quit(0)

 Sub EnumerateUsers(oCont)
  Dim oUser
 For Each oUser In oCont
 Select Case LCase(oUser.Class)
   Case "user"
   OutPutFile.WriteLine oUser.givenname & " " & oUser.sn & vbtab & oUser.mail
   Case "organizationalunit" , "container"
    EnumerateUsers oUser
   End Select
 Next
 End Sub

ถ้าอยากรู้ว่า oUser (User Class) มี property อะไรบ้าง ดูตามนี้เลยครับ ไม่แน่ใจว่าครบหรือเปล่านะ


'// User Property
'SamAccountName = oUser.samAccountName 
'Cn = oUser.CN 
'FirstName = oUser.GivenName 
'LastName = oUser.sn 
'initials = oUser.initials 
'Descrip = oUser.description 
'Office = oUser.physicalDeliveryOfficeName 
'Telephone = oUser.telephonenumber 
'EmailAddr = oUser.mail 
'WebPage = oUser.wwwHomePage 
'Addr1 = oUser.streetAddress 
'City = oUser.l 
'State = oUser.st 
'ZipCode = oUser.postalCode 
'Title = oUser.Title 
'Department = oUser.Department 
'Company = oUser.Company 
'Manager = oUser.Manager 
'Profile = oUser.profilePath 
'LoginScript = oUser.scriptpath 
'HomeDirectory = oUser.HomeDirectory 
'HomeDrive = oUser.homeDrive 
'AdsPath = oUser.Adspath 
'LastLogin = oUser.LastLogin

jQuery ทำ highlight ขัอมูลใน GridView

2009-07-15T22:02:00.002+07:00

ผมเคยทำโปรแกรมค้นหาข้อมูลจากไฟล์เอกสารที่เก็บไว้ใน File Server โดย user สามารถใส่ key word ได้หลายตัว จากนั้นโปรแกรมจะไปค้นหาว่ามีไฟล์ไหนบ้างที่มีคำหรือประโยคตรงกับเงื่อนไขที่ต้องการ แล้วนำข้อมูลรวมถึง url มาใส่ใน GridView
ทีนี้ user ก็ต้องการให้โปรแกรมสามารถ highlight คำหรือประโยคใน GridView ที่ตรงกับ key word ด้วย ซึ่งก่อนหน้านี้ผมก็เขียน javascript วนลูปเพื่อทำ highlight ซึ่งโค้ดก็ยาวพอสมควร วันนี้จะลองมา modify โดยใช้ jQuery มาช่วยครับ โดยผมจะเพิ่ม Custom Attribute ให้กับ Control ที่ต้องการจะไปทำ highlight ครับ ซึ่งในแต่ละแถวของ GridView จะให้ไป highlight ที่ label 2 ตัว


<asp:TemplateField HeaderText="Title" HeaderStyle-Width="400px" HeaderStyle-HorizontalAlign="Left"> 
     <ItemTemplate>
          <asp:Label ID="lblDocTitle" runat="server"    ForeColor="Blue" style="font-size: 10pt" Highlight="true"  Font-Bold="False"><%# eval("DocTitle") %></asp:Label>
     </ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Abstract" HeaderStyle-Width="300px" HeaderStyle-HorizontalAlign="Left">
     <ItemTemplate>
          <asp:Label ID="lblAbstract" runat="server"  Highlight="true" ><%# eval("Abstract") %></asp:Label>
     </ItemTemplate>
</asp:TemplateField>

เนื่องจากผมใช้ ScriptManager และ UpdatePanel ด้วย จากบทความเก่าผมใช้วิธีเขียนคำสั่ง jQuery ที่ code behind แล้วสั่ง ScriptManager ให้ Register Script ให้ ตามตำราเรียกวิธีนี้ว่าเป็น Server-centric แต่คราวนี้เราจะมาลองทำ Client-centric ดูบ้าง แทนที่เราจะใช้ UpdateProgress Control ผมก็จะมาใช้ PageRequestManager ในการแสดงรูปภาพแทน รวมถึงทำการ register event handler function ครับ


<asp:ScriptManager ID="ScriptManager1" runat="server"></asp:ScriptManager>

<script type="text/javascript" id="MSAjax">
     var prm = Sys.WebForms.PageRequestManager.getInstance();
     prm.add_beginRequest(beginRequest);
     prm.add_pageLoaded(pageLoaded);

     function beginRequest(sender, args) {
         $("#divProgress").show();
         $("#MainGridView").html("");
     }

     function pageLoaded(sender, args) {
         //Add elements'event handler.
         $("txtFreeText").keypress(function(e) { txtFreeText_OnKeyPress(e); });
         $("btnSearch").click(function() { ValidateSearch(); });
         $("#divProgress").hide();
                
         HighlightSearch();
    } 
</script>

คราวนี้มาลองดูโค้ดที่สำหรับทำ Highlight กันครับ


    <style type="text/css">
        .highlight{font-weight: bold; font-size: 16px; color: blue; background-color: papayawhip};
    </style>
    <script type="text/javascript" src="Scripts/jquery-1.3.2-vsdoc.js"></script>

  
    <script type ="text/javascript" id="MainScript">
       
        function trim(str) {
            return str.replace(/^\s*|\s*$/g, "");
        }  
          
        function HighlightSearch(){
            var strSearch = $("#txtFreeText").val();
            if (trim(strSearch)=="") return false;
       
            strSearch = strSearch.replace(/\"/gi,"");
            strSearch = strSearch.replace(/\s*and\s*/gi, " ");
            strSearch = strSearch.replace(/\s*or\s*/gi," ");
            var arrSearch = strSearch.split(" ");

            $("[Highlight=true]").each(function() {
            var elm = $(this);
            var strAbstarct = elm.html();
            for (var i = 0; i < arrSearch.length; i++) {
                var RE = new RegExp(arrSearch[i], "gi");
                strAbstarct = strAbstarct.replace(RE, "<span class='highlight'>" + arrSearch[i] + "</span>");
            }
            elm.html(strAbstarct) 
            });
        }

    </script>

จากโค้ดด้านบน ผมใช้ Attribute Selector ในการเลือก element ที้ต้องการทำ Highlight มาจากนั้นมาวนลูปด้วย jQuery.each() ครับ แล้วก็ไปแก้ไข้ html ของ element ให้เพิ่ม span เพิ่อทำ highlight คำที่ต้องการ ลองรันดูได้ผลลัพธ์ตามต้องการครับ

IComparer กับ IComparable ใช้งานอย่างไร

2009-07-12T22:37:00.002+07:00

วันก่อนมีกระทู้ฮอตที่ greatfriends ครับ
BLOG - Generic Function - MAX(Of T As IComparable(Of T))

สรุปคือมีการสับสนระหว่าง IComparer กับ IComparable ครับ ซึ่งไม่ใช่เรื่องแปลกเพราะว่าในเวบต่างประเทศเอง ก็มีคำถามเรื่องนี้บ่อยๆ

อาจารย์สุเทพสรุปดังนี้
IComparer ใช้สำหรับ
1. ไม่ต้องการ implement เข้าไปในคลาส เช่น มีรูปแบบการเปรียบเทียบไม่แน่นอน
2. ไม่สามารถ implement เข้าไปในคลาสได้ เช่น ไม่มี source code

ผมขอเพิ่มตามความเข้าใจนะครับ IComparable เป็น Interface สำหรับ Class ที่เราต้องการให้สามารถเปรียบเทียบได้ โดยมีลักษณะที่แน่นอน นั่นคือ Object ที่สร้างจาก class นี้ จะไปเปรียบเทียบกับ object อื่นที่สร้างจาก Class เดียวกัน


Public Class Employee
    Implements IComparable(Of Employee)
    ...
End Class

ส่วน IComparer ชื่อก็ค่อนข้างสื่ออยู่แล้ว คือใช้สำหรับสร้าง Comparer Class หมายความว่าเราต้องการ Class สำหรับ Compare Object สรุปคือเป็น third party ที่ใช้เปรียบเทียบ object ที่1 และ object ที่2 ครับ


Public Class EmployeeComparer
    Implements IComparer(Of Employee)

    Public Enum compareField
        age
        hiredDate
        joinedDate
    End Enum

Private _compareField As compareField = compareField.age
Private _sortDirection As System.ComponentModel.ListSortDirection = System.ComponentModel.ListSortDirection.Ascending

Public Function Compare(ByVal x As [Class].Center.Employee, ByVal y As [Class].Center.Employee) As Integer Implements System.Collections.Generic.IComparer(Of [Class].Center.Employee).Compare

     If _sortDirection = ComponentModel.ListSortDirection.Ascending Then
        .....
     Else
        .....
     End If

End Function

End Class

จากกระทู้มีการคุยกันถึงการใช้ Linq และการใช้ Lamda Expression ในการ Sort หรือเปรียบเทียบ Object ซึ่งจะสะดวกขึ้นมาก ลองเข้าไปอ่านกันดูครับ


 Dim employees As New List(Of BAS.Class.Center.Employee)
employees.Add(New BAS.Class.Center.Employee With {.EmployeeID = "100", .NameEng = "tabd"})
employees.Add(New BAS.Class.Center.Employee With {.EmployeeID = "200", .NameEng = "dss"})
employees.Add(New BAS.Class.Center.Employee With {.EmployeeID = "300", .NameEng = "xxx"})
employees.Add(New BAS.Class.Center.Employee With {.EmployeeID = "400", .NameEng = "yyy"})
 
employees.Sort(Function(x, y) String.Compare(x.NameEng, y.NameEng)) '// Sort ascending 
employees.Sort(Function(x, y) String.Compare(y.NameEng, x.NameEng)) '// Sort descending

การจัดการเอกสาร pdf ด้วย iTextSharp (2)

2009-07-09T21:00:00.003+07:00

หลังจากที่ผมได้นำโปรแกรมไปให้ user ทดสอบ ก็เลยได้ requirement เพิ่มเติมมาอีกครับ คือ user บางกลุ่มจะไม่สามารถ print pdf ออกไปที่ printer ได้ และห้าม save ด้วย

หลังจากเข้าไปอ่านเอกสารของ iTextSharp ก็พบว่ามันสามารถทำได้ครับ โดยตัว pdf เองนั้นเราสามารถทำการกำหนด permission ได้ และ iTextSharp มี class ชื่อ PdfWriter ซึ่งเราสามารถทำการ Set Encryption เพื่อกำหนด permission ของ pdf ได้ ดังนั้นจากโค้ดเดิมที่ทำไว้ ผมก็ไปเพิ่มคำสั่ง setEncryption ก่อนสั่ง document.open ครับ

เนื่องจากโค้ดเดิมผมใช้ PdfCopy object สำหรับสร้างเอกสาร pdf ใหม่ แต่ว่า PdfCopy มันไม่มีคำสั่ง setEncryption ครับ พอลองไป view object browser ดูก็พบว่าตัว PdfCopy นั้นมัน inherit มาจาก PdfWriter อีกที ดังนั้นเราสามารถ Casting ไปเป็น PdfWriter ได้ครับ จากนั้นก็สั่ง SetEncryption เพื่อกำหนด permission ว่าจะให้ print ได้หรือไม่ และก็สั่งซ่อน menu bar และ toolbar เพื่อที่ว่า user จะได้สั่ง save ไม่ได้ครับ


Dim writer As PdfWriter = TryCast(copy, PdfWriter)
'writer.SetEncryption(PdfWriter.STANDARD_ENCRYPTION_128, Nothing, Nothing, PdfWriter.ALLOW_SCREENREADERS) '// CANNOT PRINT
writer.SetEncryption(PdfWriter.STANDARD_ENCRYPTION_128, Nothing, Nothing, PdfWriter.ALLOW_PRINTING) '// CAN PRINT
writer.ViewerPreferences = PdfWriter.HideMenubar + PdfWriter.HideToolbar + PdfWriter.HideWindowUI

document.Open()
For i As Integer = 1 To reader.NumberOfPages
     Dim ipage As Integer = i
     If intIgnorePages Is Nothing OrElse intIgnorePages.Find(Function(c) c = ipage) = 0 Then
          copy.AddPage(copy.GetImportedPage(reader, ipage))
     End If
Next

document.Close()
reader.Close()
copy.Close()
fs.Close()
fs.Dispose()

เรียบร้อยครับ แหมมันช่างเยี่ยมยอดจริงๆ

เขียนโปรแกรมจัดการเอกสาร pdf ด้วย iTextSharp

2009-07-08T22:31:00.000+07:00

เมื่อไม่นานไม่นี้ผมได้รับ requirement ให้โปรแกรมที่พัฒนาขึ้นสามารถค้นหาและแสดงเอกสาร pdf โดยมีฟังก์ชันพิเศษ นั่นคือให้สามารถตัดหน้าบางหน้าของเอกสาร pdf ออก สำหรับ user บางกลุ่ม เช่นตัดหน้าสุดท้ายออก ถ้า user เป็นพนักงานของแผนก xxx ทำให้ผมต้องไปพึ่งบริการของ google ซึ่งพบว่ามี free .net-Pdf library ตัวหนึ่งน่าสนใจมากนั่นคือ iTextSharp ครับ

หลังจาก download มาลงที่เครื่องเรียบร้อยก็ลองทดสอบกันเลย เริ่มจาก Add Reference ใน ASP.net โปรเจคก่อน และทำการ Import Namespace ให้เรียบร้อย ขั้นตอนการทำงานก็คือ ผมสร้าง Web Form ขึ้นมาโดยให้รับค่า Location ของ pdf file ที่จะทำการเปิดให้ user ผ่าน QueryString จากนั้นก็ไปตรวจสอบสิทธิ์ของ user ว่าจะให้ซ่อนหน้าไหนบ้าง แล้วจึงใช้ iTextSharp.PdfCopy ทำการสร้างเอกสาร pdf ขึ้นมาใหม่ และ copy หน้าที่ user มีสิทธิเห็นไปใส่ในเอกสารใหม่ลองดูโค้ดกันครับ


Public intIgnorePages As List(Of Integer)

Protected Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles frmMain.Load

     Dim strLocation As String = Server.UrlDecode(Request("Location"))
     Dim fileName As String = "OUTPUT/" & _userCredential.EmployeeID & "/" & fileInfo.Name
     Dim reader As New PdfReader(strLocation)
     Dim document As New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1))
     Dim fs As New FileStream(Server.MapPath(fileName), FileMode.Create)
     Dim page As PdfImportedPage = Nothing
     Dim copy As New PdfCopy(document, fs)

     If File.Exists(fileName) Then File.Delete(fileName)
     intIgnorePages = ValidateUserPermission
     document.Open()
     For i As Integer = 1 To reader.NumberOfPages
          Dim ipage As Integer = i
          If intIgnorePages Is Nothing OrElse intIgnorePages.Find(Function(c) c = ipage) = 0 Then
               copy.AddPage(copy.GetImportedPage(reader, ipage))
          End If
     Next
     document.Close()
     reader.Close()
     copy.Close()
     fs.Close()
     fs.Dispose()
     Response.Redirect(fileName)

End Sub

สำหรับโค้ดด้านบนเป็นโค้ดที่ผมใช้ทดสอบโปรแกรมยังไม่ใช่โค้ดที่ใช้งานจริง แต่สำหรับผลลัพธ์เป็นที่น่าพอใจมาก สุดยอดจริงๆครับ

Reference:
iTextSharpby blowagie, geraldhenson, psoares33

jQuery อ้างถึง Control ใน gridview

2009-07-07T22:42:00.002+07:00

วันก่อนเข้าไป http://www.blogger.com/www.greatfriends.biz พบคำถามนี้ในบอร์ดพอดีครับ เป็นคำถามที่น่าสนใจทีเดียว ผมตอบไว้แบบนี้ครับ
ผมสมมติว่า เมื่อผมคลิ๊กที่ column ของ gridview ผมจะให้โปรแกรม alert ค่าทั้งหมดของแถวที่คลิ๊ก และแสดงค่าของ column ที่คลิ๊ก
เนื่องจากผมใช้ MSAjax และเอา Gridview ไปใส่ใน UpdatePanel ดังนั้น แทนที่ผมจะใช้ $(document).ready(function(){}); ผมจะไป register click event ที่ gvDBItem_DataBound แทนครับ

และก็ใน click(function(){}); แทนที่ผมจะเขียนโค้ดไปโดยตรง ผมเปลี่ยนให้ไปเรียก function ใช้งานแทน เพื่อที่ว่าตอน debug จะได้ง่ายครับ

โค้ดส่วน Code Behind


Protected Sub gvDBItem_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvDBItem.DataBound

Dim sbScript As New Text.StringBuilder

    sbScript.Append("$('#" & gvDBItem.ClientID & " tr').click(function(e){gv_RowClick(this,e);});")

    ScriptManager.RegisterStartupScript(Page, Page.GetType, "GVDataBound", sbScript.ToString, True)

End Sub

โค้ดส่วน javascript


<script type="text/javascript" >

    function gv_RowClick(sender, e) {

        alert(sender.innerText);

        alert(e.srcElement.innerHTML);

    }

</script>

ในตัวอย่างผมใช้ gridview id กับ tr เป็น selector แต่ว่าถ้าเราต้องการรู้ ID ของแถวที่กด หรือต้องการเอาค่าใน column ที่ต้องการเท่านั้น ก็สามารถเปลี่ยน selector ได้ครับ

อีกวิธีที่เพิ่งนึกออก คือเราสามารถใช้ attribute เป็น selector ได้ ดังนั้นเราก็เพิ่ม custom attribute ให้ column ที่เราต้องการเช่น


<asp:TemplateField HeaderText="Item No">

     <ItemTemplate>

          <asp:Label id="lblItemNo" runat="server" RowIndex="true" Text='<%# Eval("ORDERNO") %>' ></asp:Label>

     </ItemTemplate>

</asp:TemplateField>

แล้วใน jQuery เราก็กำหนด selector


<script type="text/javascript" >

     $(document).ready(function() {

     $("#gvDBItem [RowIndex='true']").click(function(e) { gv_RowIndexClick(this, e); });

});

     function gv_RowClick(sender, e) {

          alert(sender.innerText);

          alert(e.srcElement.innerHTML);

     }

</script>

อันนี้เป็นตัวอย่างแบบไม่ได้ใช้ UpdatePanel ครับ ผมเลยใช้ $(document).ready()

ลองอ่านกระทู้เต็มๆได้ที่นี่ครับ
jQuery อ้างถึง Control ใน GridView อย่างไรครับ
http://greatfriends.biz/?109412

jQuery กับการเรียก ASP.net Web Service

2009-07-06T22:57:00.004+07:00

ต่อเนื่องจากบทความที่แล้ว เราได้ใช้ ScriptManager ในการ add Service Reference เพื่อที่จะให้ VS ทำการสร้าง Proxy สำหรับเรียกใช้ Web Service ซึ่งก็สะดวกดีครับ แต่ทีนี้ตัว jquery เองมีความสามารถของ ajax มาด้วย เราจะมาลองเขียน jQuery สำหรับเรียก Web Service โดยตรง ไม่ต้องผ่าน ScriptManager ดูครับ

วิธีการก็ไม่ยาก แค่เราเรียกใช้ $.ajax(option) แค่นี้เอง ส่วน option นั้นเรากำหนดค่าในรูปแบบของ json ซึ่งมี member อะไรที่กำหนดได้บ้างนั้น ไปดูได้จาก document ของ jQuery ครับ ดังนั้นเราลอง comment โค้ดเดิมที่เรียก proxy ของ Web Service แล้วมาเขียนคำสั่งของ jQuery ดู


        function txtEmpName_OnKeyUp(e) {
            if (e.keyCode != 13 || e.keyCode != 9) {
                $("#txtEmpId").val("");
                var empName = $("#txtEmpName").val();
                if (empName.length > 2) {
                    //BAS.Web.Services.wsFiling.GetStaffsByKeyword(empName, GetStaffSuccess);
                    $.ajax({
                        type: "POST",
                        url: "../wsFiling.asmx/GetStaffsByKeyword",
                        data: "{keyWord:'" + empName + "'}",
                        contentType: "application/json; charset=utf-8",
                        dataType: "json",
                        success: function(data) { GetStaffSuccess(data.d, "", "") }
                    });
                } else {
                    $("#divStaff").hide();
                }
            }       
        }

ก็ไม่ยากอย่างที่คิดครับ ตรง success เราก็ไปเรียก GetStaffSuccess function ตัวเดิมนั่นแหละ ส่วน error ผมไม่ได้ใส่ไว้เหมือนเดิม และในการใช้งานจริงก็ควรสร้าง OnError function ไว้ด้วยครับ

แต่โดยส่วนตัวขอใช้ผ่าน ScriptManager เหมือนเดิมครับ

Reference:
Using jQuery with ASP.NET Web Services and JSON, www.prettycode.org
Using jQuery to Consume ASP.NET JSON Web Services, www.encosia.com

jQuery กับการทำ Multi Column Autocomplete

2009-07-03T15:55:00.010+07:00

พอดีได้รับ requirement ให้ทำ auto complete function ครับ สมมติว่า user คีย์ชื่อพนักงาน ให้โปรแกรมไปดึงรายชื่อพนักงานทั้งหมดที่ใกล้เคียงมาแสดง พอ user เลือกพนักงานที่ต้องการจากใน list ก็ให้ไปแสดงข้อมูลอื่นๆของพนักงานใน field อื่นๆด้วย เช่นรหัสพนักงาน ชื่อ นามสกุล แผนก วันเริ่มงาน เป็นต้นครับ
ทีนี้ลอง search ดูพวก autocomplete จาก google พบว่าส่วนใหญ่มันเป็นแบบ single field คือใช้กับ textbox ตัวเดียวครับ เลยต้องเขียน javascript เพื่อไปดึงข้อมูลจาก Web Service มาให้ user เลือก แล้วพอเลือกแล้วก็เขียน javascript ให้ไปตัดข้อมูลลงใน element ต่างๆ
รู้สึกว่าการเขียน javascript เองนี่มันยาวพอสมควรครับ พอมีเวลาว่างก็เลยมาลองใช้ jQuery ดูว่ามันจะง่ายและดีสมคำร่ำลือหรือเปล่า ผมเลยสร้าง web page สำหรับทดสอบดู เอาเป็นว่ามีแค่ 2 field คือ ID กับ ชื่อนามสกุลก็พอครับ
ก่อนอื่นมาดูโค้ดหน้าเวบกันก่อน


<body>
    <form id="form1" runat="server">
    <asp:ScriptManager ID="ScriptManager1" runat="server">
        <Services>
            <asp:ServiceReference Path="~/Employee.asmx" />
        </Services>
    </asp:ScriptManager>
    <div>   
        <asp:TextBox ID="txtEmpId" runat="server" style="width:100px" MaxLength="6"></asp:TextBox>
        <asp:TextBox ID="txtEmpName" runat="server" style="width:250px"></asp:TextBox>
    </div>
    </form>
</body>

จะเห็นว่ามี textbox แค่สองอัน และมีการใช้ ScriptManager เพื่อไปเรียก WebService ครับ
โค้ดส่วน WebService ขอไม่เขียนนะครับ เพราะไม่ยาก โดยตัว WebService จะคืน Employee Object มาให้ในรูปของ JSON (ตาม default ครับ)
ทีนี้มาดูโค้ดส่วน javascript กันบ้าง


    <script type="text/javascript" src="../Scripts/jquery-1.3.2-vsdoc.js"></script>
    <script type = "text/javascript">
        $(function() {
            $("#txtEmpName").keyup(function(event) {txtEmpName_OnKeyUp(event)});
        });

        function txtEmpName_OnKeyUp(e) {
            if (e.keyCode != 13 || e.keyCode != 9) {
                $("#txtEmpId").val("");
                var empName = $("#txtEmpName").val();
                if (empName.length > 2) {
                    jnithi.Employee.GetStaffsByKeyword(empName, GetStaffSuccess);
                } else {
                $("#divStaff").hide();
                  
                }
            }       
        }

        function GetStaffSuccess(result, methodName, context) {
            if ($("#divStaff").length == 0) {
                var txtEmpName = $("#txtEmpName");
                var pos = txtEmpName.position();
                var divStyle = {'position':'absolute','top': pos.top + txtEmpName.outerHeight() + 'px','left': pos.left + 'px','width':  txtEmpName.outerWidth() +'px','border':'1px solid #666666' };
                $(document.createElement("div")).attr("id", "divStaff").css(divStyle).appendTo("body");                 
            }
            var divStaff=$("#divStaff");
            divStaff.empty();
            
            if (typeof (result) != "undefinded" && result.length > 0) {
                $(document.createElement("dl")).width(divStaff.width()).appendTo("#divStaff");
                var i;
                for (i = 0; i < result.length; i++) {
                    var employee = result[i];               
                    var html = "<dt><a class='search' href='#' onclick='dtStaff_OnClick(this);' >" + employee.NewEmployeeId + ":" + employee.NameEng + "</a></dt>";
                    $("dl").append(html);
                }
                if (i > 0) {
                    divStaff.show();
                }
            } else {
                divStaff.hide();
            }
        }
        function dtStaff_OnClick(obj) {
            result = obj.innerHTML.split(":");
            $("#txtEmpId").val(result[0]);
            $("#txtEmpName").val(result[1]);
            $("#divStaff").hide();
        } 
    </script>

เริ่มต้นก็ไปกำหนด Event Handler ให้กับ keyup event ของ txtEmpName ครับ
$(function() {
$("#txtEmpName").keyup(function(event) {txtEmpName_OnKeyUp(event)});
});

โดยปกติตัวอย่างของ jQuery จะเขียน function ไปเลย แต่ปรากฎว่า Visual Studio มัน debug ลำบาก ผมเลยแยกมาเขียน function ต่างหากครับ โดยมี window.event เป็น parameter หรือเราใช้ MSAjax อยู่แล้วอาจจะพิจารณาใช้ $addHandler() ของ MSAjax แทนก็ได้ครับ เมื่อเกิด keyup event มันก็จะไปเรียก txtEmpName_OnKeyUp ให้ทำงาน โดยจะไปเรียก WebService และกำหนด succeed callback function ไปที่ GetStaffSuccess ครับ (จริงๆควรจะกำหนด onFailed callback function ด้วยนะครับ)

ใน GetStaffSuccess function ผมให้มันทำการสร้าง div ที่บรรจุ dl element ไว้ครับ เพื่อเป็น list ให้ user เลือก สังเกตุว่าใน function นี้ผมทดลองทำการ creat element ไว้ 2 แบบ แบบแรกคือใช้ $(document.createElement(element)).appendTo(element) กับอีกแบบคือ $(element).append(html) แล้วก็ต้องกำหนด onclick event ด้วย เพื่อที่ว่าเมื่อ user เลือกรายชือพนักงานแล้ว จะได้ไปทำ dtStaff_OnClick ซึ่งจะทำการตัดข้อมูลไปใส่ใน textbox ทั้ง 2 ตัวครับ

ลองเอาโค้ดที่เขียน javascript เอง กับที่เขียนด้วย jQuery เห็นได้ว่าโค้ดสั้นลงประมาณ 30% เพราะใช้ประโยชน์ของ Chainability นั่นเองครับ

jQuery กับ Visual Studio 2008

2009-07-03T12:16:00.006+07:00

ผมเคยลองเข้าไปด้อมๆมอง www.jquery.com มาตั้งนาน เพราะได้ยินกิตติศัพท์ว่าเป็นสุดยอด javascript framework ตัวหนึ่ง แต่เนื่องจากไม่ค่อยมีเวลาและขี้เกียจเลยไม่ได้สนใจมากนักครับ ลองอ่าน document ดูก็รู้สึกไม่ค่อยเข้าหัว แต่พอได้ข่าวจาก blognone ว่าตอนนี้ MS สนับสนุน jQuery แล้วเลยรู้สึกสนใจมากขึ้นครับ

พอดีเมื่อ 3 วันก่อน มี requirement จาก user ให้เพิ่ม function ใหม่ ก็เลยเขียน javascript เพื่อไปติดต่อกับ Webservice รู้สึกว่าโค้ดยาวพอสมควร เลยนึกถึง jquery ขึ้นมาครับ ในที่สุดก็มีโอกาสได้ศึกษาอย่างจริงๆจังๆซะที เริ่มต้นก็เลยไป download jQuery เวอร์ชันล่าสุด (1.3.2) มาก่อนครับ และก็ไม่ลืมที่จะ download ไฟล์ jquery-1.3.2-vsdoc2.js สำหรับให้ Visual Studio เพิ่ม IntelliSense ของ jQuery เข้าไป จะได้สะดวกเวลาพัฒนาโปรแกรม

ตอนแรกๆที่ลองเขียน jQuery ดูก็จะมี IntelliSense ขึ้นมาตามปกติครับ แต่พอใช้ไปประมาณ 1 ชั่วโมงตัว IntelliSense ของ jQuery ก็หายไป ผมนึกว่าเป็น bug ของ VS2008 (อีกแล้ว) ก็เลยลองปิดโปรแกรมแล้วเปิดใหม่ก็ไม่หาย ลอง restart Windows ก็ไม่หายครับ เลยไปลอง search ใน google ดู ก็พบว่า Scout Gu บอกให้ลง hot fix ตัวนี้ครับ “VS90SP1-KB958502-x86.exe” (อ่านจากชื่อ ผมเข้าใจว่าเป็น Service Pack1 ของ VS2008 นะ) ลงแล้วก็ยังไม่หายครับ สุดท้ายไปเจอใน blog หนึงบอกว่าให้ลบเลข 2 ออกจากไฟล์ vsdoc แล้วลองใหม่ ก็เลยลองทำตามครับ แก้ไฟล์เป็น jquery-1.3.2-vsdoc.js ทีนี้ก็ใช้งานได้ตามปกติ IntelliSense มาแล้วครับ ลองเล่นมา 3 วันก็ยังใช้ได้ ถ้าใครเจอปัญหาเดียวกันก็ลองวิธีนี้ดูครับ

Tips: ถ้าต้องการบังคับให้ Visual Studio 2008 ทำการ update JScript IntelliSense สามารถทำได้โดยกด Ctrl+Shift+j ครับ

ทดสอบ Syntax Highlighter

2009-07-02T22:31:00.000+07:00

ผมได้ลองเขียน blog เกี่ยวกับการเขียนโปรแกรมหลายๆที่ พบว่าปัญหาสำคัญอย่างหนึ่งคือการเขียน source code บน blog ซึ่งมันจัดยากมากครับ เพราะต้องเขียน html tag แล้วถ้าอยากให้มีสีสรรก็ต้องกำหนด style ให้มันอีกค่อนข้างเสียเวลาทีเดียวครับ หรือบางทีขี้เกียจก็ copy เป็นรูปมาแต่ว่ามันทำให้ copy source code ไม่ได้นี่สิ ทำให้รู้สึกไม่ค่อย work เลยหยุดเขียน blog เกี่ยวกับการเขียนโปรแกรมไปดื้อๆ

คราวนี้ได้มา search เจอ Syntax Highlighter ซึ่งพัฒนาด้วย javascript ที่ code.google.com น่าสนใจมากครับ ก็เลยเอามาลองที่ blogger ซะเลย แต่ว่าลองใช้เวอร์ชัน 2.x.x แล้วยังไม่ได้ เลยมาลองใช้เวอร์ชันยอดฮิตคือ 1.5.1 ครับ

ก่อนอื่นก็ไปตั้งค่ารูปแบบ (template) ซะก่อน โดยไปที่ รูปแบบ --> แก้ไข HTML และไปเพิ่ม tag ก่อน </head>ดังนี้ครับ


<b:skin>
<link href='http://alexgorbatchev.com/pub/sh/1.5.1/styles/SyntaxHighlighter.css' rel='stylesheet' type='text/css'/>
<script class='javascript' src='http://alexgorbatchev.com/pub/sh/1.5.1/scripts/shCore.js' type='text/javascript'/>
<script class='javascript' src='http://alexgorbatchev.com/pub/sh/1.5.1/scripts/shBrushCSharp.js' type='text/javascript'/>
<script class='javascript' src='http://alexgorbatchev.com/pub/sh/1.5.1/scripts/shBrushJScript.js' type='text/javascript'/>
<script class='javascript' src='http://alexgorbatchev.com/pub/sh/1.5.1/scripts/shBrushVb.js' type='text/javascript'/>
<script class='javascript' src='http://alexgorbatchev.com/pub/sh/1.5.1/scripts/shBrushSql.js' type='text/javascript'/>
<script class='javascript' src='http://alexgorbatchev.com/pub/sh/1.5.1/scripts/shBrushCss.js' type='text/javascript'/>
<script class='javascript' src='http://alexgorbatchev.com/pub/sh/1.5.1/scripts/shBrushXml.js' type='text/javascript'/>
</head>
<body>

และเพิ่ม script tag ก่อน </body> ครับ


<script class='javascript'>
//<![CDATA[
dp.SyntaxHighlighter.ClipboardSwf = 'http://alexgorbatchev.com/pub/sh/1.5.1/scripts/clipboard.swf';
dp.SyntaxHighlighter.BloggerMode();
dp.SyntaxHighlighter.HighlightAll('code');
//]]>
</script>
</body>

สังเกตุว่ามีการเรียกใช้ dp.SyntaxHighlighter.BloggerMode(); ซึ่งเป็น function สำหรับตัด <BR /> ของ Blogger โดยเฉพาะครับ ลอง comment บรรทัดนี้เพื่อดูความแตกต่างก็ได้ครับ

วิธีการใช้งานก็คือ ตอนเราเขียน blog ให้ไปที่ แก้ไข Html แล้วไปสร้าง pre tag คลุมโค้ดที่ต้องการครับ


<pre class="html" name="code">
     เขียนโค้ดช่วงนี้ครับ
</pre>

โดยใน pre tag ให้กำหนด name attribute = "code" ครับ ส่วน class นั้น กำหนดตามประเภทโค้ดที่เราต้องการแสดง ถ้าอยากรู้ว่าต้องใส่ class เป็นอะไร ไปดูได้ที่ SyntaxHighlighter Wiki ครับ แต่ว่าเราต้องไปกำหนด <script src=...> ให้ครบนะครับ จากตัวอย่างด้านบนผมใช้แค่บางตัวเท่านั้นเอง

คราวนี้ลองทดสอบ javascript มั่ง


<script type="text/javascript">
     alert('Hello world');
</script>

แหม มันเยี่ยมจริงๆครับ

โค้ด Restore Database สำหรับ SQL Server

2007-10-25T13:06:00.000+07:00

จากบทความที่แล้วเราสามารถทำการ backup database ออกมาเป็น file ทีนี้ถ้าเราต้องการทำ restore ละ ก็ใช้ T-SQL เหมือนเดิม ลองดู syntax กันก่อนครับ

RESTORE DATABASE { database_name @database_name_var }
[ FROM <> [ ,...n ] ]
[ WITH
[ RESTRICTED_USER ]
[ [ , ] FILE = { file_number @file_number } ]
[ [ , ] PASSWORD = { password @password_variable } ]
[ [ , ] MEDIANAME = { media_name @media_name_variable } ]
[ [ , ] MEDIAPASSWORD = { mediapassword @mediapassword_variable } ]
[ [ , ] MOVE 'logical_file_name' TO 'operating_system_file_name' ]
[ ,...n ]
[ [ , ] KEEP_REPLICATION ]
[ [ , ] { NORECOVERY RECOVERY STANDBY = undo_file_name } ]
[ [ , ] { NOREWIND REWIND } ]
[ [ , ] { NOUNLOAD UNLOAD } ]
[ [ , ] REPLACE ]
[ [ , ] RESTART ]
[ [ , ] STATS [ = percentage ] ]
]

จะเห็นว่ามันมี option เยอะแยะเลย รายละเอียดของ option ไปดูใน Online book นะครับ

ในตัวอย่างผมจะทำการ Full Recovery ไป

สำหรับการ Restore มันมีจุดสำคัญคือ ต้องไม่มี user ใช้งาน datbase ครับ
ดังนั้นก่อนจะทำการ restore ให้บอก user ที่ใช้งานให้ออกไปก่อน (เราสามารถใช้ store procedure ดูรายชื่อคนที่ใช้งาน database อยู่ครับ แล้วจะให้ดีในโค้ดเราควรจะเตะ user ที่ใช้งานอยู่ออกไปด้วยเพื่อความปลอดภัย

ก่อนอื่นผมจะไปสร้าง table ใหม่ใน Northwind ก่อน สมมติชื่อ table1 จากนั้นก็ backup เป็นไฟล์ชื่อ mybackup.bak

เมื่อ backup เสร็จแล้วก็ทำการ drop table1 ทิ้งไปครับ เดี๋ยวเราจะลอง restore database ถ้าผ่าน table1 ก็จะกลับมาหาเราอีกครั้ง เอาละ หายไปเรียบร้อยแล้วครับ

คราวนี้มาดูโค้ดกันบ้าง จากบทความที่แล้วเราได้สร้างปุ่มเผื่อไว้แล้วชื่อ btnRestore

Private Sub btnRestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestore.Click

Dim strSQL As String
Dim strCon As String

strCon = "Data Source=NITHI;Initial Catalog=master;Integrated Security=True"

Dim cmdRestore As SqlClient.SqlCommand = New SqlClient.SqlCommand

sqlConnection1.ConnectionString = strCon
SqlConnection1.Open()
cmdRestore.Connection = SqlConnection1
Cursor = Cursors.WaitCursor
Try
strSQL = "ALTER DATABASE Northwind SET SINGLE_USER"
cmdRestore.CommandText = strSQL
cmdRestore.ExecuteNonQuery()
strSQL = "RESTORE DATABASE Northwind FROM DISK = 'C:\mybackup.bak' "
cmdRestore.CommandText = strSQL
cmdRestore.ExecuteNonQuery()
MsgBox("finish")
Catch ex As Exception
MsgBox("Error")
Finally
strSQL = "ALTER DATABASE Northwind SET MULTI_USER"
cmdRestore.CommandText = strSQL
cmdRestore.ExecuteNonQuery()
End Try

Cursor = Cursors.Arrow
SqlConnection1.Close()
cmdRestore.Dispose()
cmdRestore = Nothing

End Sub

จุดสังเกตุ
1. ใน Connection String ผมกำหนด Initial Catalog เป็น master (คือจริงๆเป็น database ตัวไหนก็ได้ที่ไม่ใช่ตัวที่เราต้องการ restore) ถ้าเรากำหนด Initial Catalog เป็น Northwind ก็เท่ากับว่าเรากำลังล๊อก database ด้วยตัวเองครับ (ผมก็เป็น กว่าจะรู้ตัว error ไปแล้ว)
2. ผมเลือกใช้คำสั่ง ALTER TABLE เพื่อ SET SINGLE_USER เพื่อกัน user อื่นออกจาก database
3. รันคำสั่ง Restore เสร็จแล้วก็อย่าลืม SET กลับเป็น MULTI_USER นะครับ
4. เนื่องจากบางครั้งกระบวนการ restore มันจะนานก็เลยสั่งให้เปลี่ยน cursor จะได้บอกให้ user รู้ว่ายังทำงานไม่เสร็จนะจ๊ะ

ลองรันโค้ดดูครับ

จะเห็นว่าระหว่างทำงาน Database จะเปลี่ยน mode เป็น Single User

เสร็จการ restore

Table1 กลับมาแล้ว การ restore ประสบผลสำเร็จ

Note: อยากให้ไปศึกษา option ต่างๆของการ restore เพิ่มนะครับ เพราะมันทำได้หลายอย่างมาก

โค้ด Backup Database สำหรับ SQLServer

2007-10-24T17:20:00.000+07:00

โดยปกติแล้วการ Backup หรือ Restore รวมทั้งการ Maintenance RDBMS อย่าง SQLServer หรือ Oracle ควรให้ DBA ทำที่ตัว RDBMS เอง แต่ในบางกรณีเราอาจอยากให้ admin ของ application ที่เราพัฒนาขึ้นสามารถ backup/restore database จากหน้า form ที่เราสร้างขึ้น

กรณีนี้เราสามารถใช้คำสั่ง T-SQL (Transact SQL) ได้ครับ เรามาดู syntax ของคำสั่งก่อนครับ

BACKUP DATABASE { database_name @database_name_var }

TO <> [ ,...n ]

[ WITH

[ BLOCKSIZE = { blocksize @blocksize_variable } ]

[ [ , ] DESCRIPTION = { 'text' @text_variable } ]

[ [ , ] DIFFERENTIAL ]

[ [ , ] EXPIREDATE = { date @date_var }

RETAINDAYS = { days @days_var } ]

[ [ , ] PASSWORD = { password @password_variable } ]

[ [ , ] FORMAT NOFORMAT ]

[ [ , ] { INIT NOINIT } ]

[ [ , ] MEDIADESCRIPTION = { 'text' @text_variable } ]

[ [ , ] MEDIANAME = { media_name @media_name_variable } ]

[ [ , ] MEDIAPASSWORD = { mediapassword @mediapassword_variable } ]

[ [ , ] NAME = { backup_set_name @backup_set_name_var } ]

[ [ , ] { NOSKIP SKIP } ]

[ [ , ] { NOREWIND REWIND } ]

[ [ , ] { NOUNLOAD UNLOAD } ]

[ [ , ] RESTART ]

[ [ , ] STATS [ = percentage ] ] ]

สำหรับรายละเอียดลองดูใน Online Book ของ SQLServer นะครับ

สมมติว่าเราต้องการ backup database ลงใน folder ที่ต้องการ คำสั่งจะประมาณนี้ครับ

BACKUP DATABASE Northwind

TO DISK 'C:\Northwind.bak'

WITH FORMAT, NAME = 'NorthwindBackup'

คราวนี้เราลองมาดูการเขียนโปรแกรมเลยครับ สมมติว่า ผมสร้าง Form มา 1 ฟอร์ม สร้าง ปุ่มชื่อ btnBackup ขึ้นมา 1 ปุ่ม
แล้วก็สร้าง sqlConnection ชื่อ sqlConnection1 สำหรับ Form นี้ด้วยครับ

ทีนี้ก็มาดูโค้ด

Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBackup.Click

Dim strSQL As String

Dim strCon As StringstrCon = "Data Source=NITHI;Initial Catalog=master;Integrated Security=True"
Dim cmdBackup As SqlClient.SqlCommand = New sqlClient.SqlCommandSqlConnection1.ConnectionString = strConSqlConnection1.Open()
Cursor = Cursors.WaitCursor
Try

strSQL = "BACKUP DATABASE Northwind "

strSQL &= "TO DISK = 'C:\mybackup.bak' "

strSQL &= "WITH FORMAT, "

strSQL &= "NAME = 'myBackup'"
cmdBackup.Connection = SqlConnection1

cmdBackup.CommandText = strSQL

cmdBackup.ExecuteNonQuery()
MsgBox("finish")
Catch ex As Exception
MsgBox("Error")
End Try

Cursor = Cursors.Arrow
SqlConnection1.Close()cmdBackup.Dispose()cmdBackup = Nothing

End Sub

ลองรันดูครับ
เมื่อรันเสร็จ จะมี message box บอกว่า Finish แล้วไปดูที่ C: จะพบว่ามีไฟล์ mybackup.bak

ก็เป็นอันเสร็จเรียบร้อยครับ

ถ้าเราตัองการเก็บไฟล์ backup เป็นหลายๆไฟล์ เราก็อาจจะเขียนโปรแกรมให้สร้างชื่อตามวันที่ก็ได้ครับ เช่น myBackup20070311.bak เป็นต้น

ASP.Net Site Navigation

2007-10-24T17:13:00.000+07:00

เมื่อวันก่อนมีคนมาถามที่ http://www.greatfriends.biz เรื่อง Response.Redirect กับ
Server.Transfer ว่าต่างกันอย่างไร ผมเห็นเรื่องนี้มีถามกันบ่อยพอสมควร แม้แต่ใน webboard
ต่างประเทศก็มีถามกันบ่อยๆ เลยถือโอกาสนี้เอามาลงบล๊อกซะเลยครับ

เรื่องนี้ถือว่าเป็นเรื่องสำคัญเรื่องหนึ่ง จนหนังสือ MCTS 70-528
Microsoft .Net Framework 2.0 Web-based Client Development Book เขียนเป็นหัวข้อสำคัญบทหนึ่งทีเดียว นั่นคือเรื่อง Site Navigation ในหนังสือกล่าวว่า การทำ Navigate Pages หรือการเปลี่ยนหน้า
page นั้นสามารถทำได้ 4 วิธีครับ ได้แก่

1. สร้าง client-side code หรือ markup สำหรับ request page ใหม่
2. ทำ Cross-page
3. สั่ง client-side browser redirect
4. สั่ง server-side transfer

สำหรับวิธีที่1 ได้แก่การเขียนคำสั่ง javascript เช่น

<script language="javascript" type="text/jscript">
function Button1_OnClick(){
document="Page2.aspx";
}
</script>

หรือจะกำหนดที่ tag ของ Control ก็ได้ เช่น
<asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="~/test.aspx">HyperLink<asp:HyperLink>

สำหรับวิธีที่2 การทำ Cross-paging หมายถึงการที่มีการใส่ข้อมูลที่
page ที่หนึ่ง และทำการ process ข้อมูลที่ page ที่สอง ซึ่งในกรณีนี้ page ที่สองจะมี
property ชื่อ ProviousPage สำหรับเก็บ object ของ page ที่หนึ่ง เพื่อที่ page
ที่สองจะสามารถเข้าถึง property และ object ต่างๆใน page ที่หนึ่งได้ เช่นการไปเอาข้อมูลจาก
web control เป็นต้น

การทำ Cross-paging ได้แก่การกำหนด PostbackURL เพื่อไปเรียกใช้ page ปลายทางเช่น

<asp:LinkButton ID="LinkButton1" runat="server" PostBackUrl="test.aspx"> LinkButton asp:LinkButton>

สำหรับวิธีที่ 3 ก็คือการสั่ง Response.Redirect นั่นเอง ตามชื่อหัวข้อ
client-side browser redirect ก็บอกอยู่แล้วครับ ว่าเป็นวิธีที่เกิดขึ้นที่ client-side
หรือ browser นั่นเอง การทำงานวิธีนี้ก็คือ เมื่อเราเขียนโค้ด Response.Redirect ที่
Server-side script ทาง Web Server ซึ่งก็คือ IIS จะทำการส่ง response กลับไปยัง browser
ซึ่งจะระบุ location ของ page ใหม่ไปให้ เมื่อ browser ได้รับ response แล้ว browser
ที่สนับสนุน Redirect (ซึ่งก็ทุกยี่ห้อนั่นแหละ) จะทำการส่ง Request กลับมาที่ Web Server
เพื่อขอข้อมูลของ page ใหม่ที่ต้องการ ทาง Web Server ก็จะ process แล้วส่ง response
ซึ่งก็คือ Page ใหม่ไปให้ ดังนั้นเราจะเห็นได้ว่าวิธีนี้จะเกิด round-trip คือจะมีการรับส่ง
request-response ระหว่าง browser กับ Web Server หลายเที่ยว ทำให้กิน resource ของ network

ทีนี้เราลองมาดูคำสั่ง Response.Redirect จะพบว่ามันมี 2 overload ครับ
คือ

Response.Redirect(url As String) กับ

Response.Redirect(url As String, endResponse as Boolean)

โดย default ถ้าเราไม่กำหนด endResponse มันจะมีค่าเป็น false ครับ หมายความว่าทาง
Web Server จะต้องทำการ Process Response รวมถึงงานต่างๆให้เสร็จก่อน ถึงจะส่ง Reponse.Redirect
กลับไปยัง Server ถ้าเรากำหนดเป็น True ทาง Web Server จะทำการยกเลิกงานอื่นๆทันที หมายความว่าโค้ดใดๆก็ตามที่คุณเขียนหลังบรรทัดนี้จะไม่ถูก
process ครับ Web Server จะส่ง Response กลับไปที่ Browser ทันที

ทีนี้การใช้ Response.Redirect มีจุดหนึ่งที่ต้องระวังครับ คือ ปกติการส่ง
Response กลับไปยัง browser นอกจากคำสั่ง redirect แล้วยังอาจจะมีข้อมูลอื่นๆส่งไปด้วย
ดังนั้นถ้ามี data อื่นๆส่งไปแล้ว browser ทำการ process ก่อนที่จะทำการ redirect จะทำให้เกิด
HttpException ทันที (แม้แต่ส่ง HTTP header ไปก็ไม่ได้ครับ) เพื่อป้องกันการเกิด Error
เราจึงควรกำหนด Response.BufferOutput เป็น True ไว้ด้วยครับ

Response.BufferOutput = True

Response.Redirect("test2.aspx")

สำหรับกรณีที่คุณใช้ MS Ajax เพื่อไม่ให้เกิด Exception คุณต้องกำหนด
endResponse เป็น True ไปด้วยเสมอ เพื่อให้แน่ใจว่า WebServer ส่งแค่ Redirect อย่างเดียวไม่ส่ง
data อย่างอื่นพ่วงไปด้วยครับ

Response.BufferOutput = True

Response.Redirect("test2.aspx", True)

เมื่อ Response.Redirect ทำงานเสร็จสมบูรณ์ Web Server จะส่ง Response code
302 ไปให้ browser พร้อมทั้ง URL ของ page ใหม่ ดังนั้นที่ browser ตรงช่อง address
คุณจะเห็น URL ของ page เปลี่ยนไปเป็น page ปัจจุบัน

การที่คุณใช้ Response.Redirect คุณจะไม่สามารถใช้ Previous Page Property ได้ครับ

สำหรับวิธีที่ 4 ก็คือการสั่ง Server.Transfer
การใช้ Server.Transfer จะต่างจากการใช้ Response.Redirect เนื่องจาก
Server.Transfer จะเป็นการทำงานที่ Web Server คือเมื่อมีการ Postback กลับมาที่ Web
Server แล้ว ทาง Web Server จะทำการ process งานตามลำดับจนเมื่อเจอคำสั่ง Server.Transfer
แล้ว Web Server จะทำการไปเรียกใช้งาน Page ใหม่ทันที ดังนั้นข้อดีก็คือจะไม่มี round-trip
เกิดขึ้น เป็นการประหยัด network traffic ไปในตัวครับ แต่มีข้อเสียคือ
Server.Transfer สามารถสั่งเรียก page เฉพาะใน Server เท่านั้น ไม่สามารถ Transfer ไปที่
Web Server ตัวอื่นได้ (ไม่เหมือน Response.Redirect คุณสามารถ redirect ไปที่ web ไหนก็ได้
server ตัวไหนก็ได้ครับ)

คำสั่ง Server.Transfer ก็มี 3 overload เหมือนกันครับ ลองไปศึกษาเพิ่มเอง
แต่มี parameter ตัวหนึ่งน่าสนใจคือ preserveForm ถ้าคุณกำหนดเป็น True ค่าของ page แรกจะถูกเก็บไว้ใน PreviousPage Property ของ Page ปลายทางครับ นั่นคือมันจะทำ Cross-paging ให้ด้วยในตัว
ดังนั้นที่ page ปลายทาง คุณสามารถสั่ง PreviousPage.FindControl
เพื่อไป get control ของ Page แรกได้ครับ