วันศุกร์ที่ 17 กุมภาพันธ์ พ.ศ. 2560

DV-vb.net Tips

วันสุดท้ายของเดือน

    Public Function GetLastDayOfMonth(ByVal CurrentDate As Date) As Date
        Dim firstDay As New Date(CurrentDate.Year, CurrentDate.Month, 1)
        Dim result As Date = firstDay.AddMonths(1).AddDays(-1)

        Return result
    End Function

บังคับใช้ ค.ศ. ในโปรแกรม

    Sub New()
        Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("en-US")
    End Sub

LINQ to SQL Timeout

dbc.CommandTimeout = 30 ' Default 30 Second
dbc.CommandTimeout = 60 ' Custom 60 Seconddbc.CommandTimeout = 0 ' Not Time Out

Empty List of Anonymous

Private Function CreateEmptyList(Of T)(ByVal unused As TAs List(Of T)
        Return New List(Of T)()
End Function

Dim lstItemCredit = Me.CreateEmptyList(New With {.Item_ID = String.Empty, .Item_Name = String.Empty})
lstItemCredit.Add(New With {.Item_ID = "", .Item_Name = ""})
lstItemCredit.AddRange((From t0 In dbc.Item_Credits 
                                          Select New With {.Item_ID = t0.Item_ID.ToString, t0.Item_Name}).ToList)

วันอังคารที่ 14 กุมภาพันธ์ พ.ศ. 2560

EQ-ลิงกับลา

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

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

วันอาทิตย์ที่ 12 กุมภาพันธ์ พ.ศ. 2560

DV-พื้นฐาน SQL Statement

คำสั่งพื้นฐาน
INSERT INTO <table> (field, field,...) VALUES (data, data,...)
เช่น 
INSERT INTO Emp VALUES (001,"Surapun")
INSERT INTO Emp(name) VALUES ("Surapun")

INSERT INTO <table> SELECT <field, field,...> FROM <table> WHERE <condition>

เช่น 
INSERT INTO faculty 
  SELECT facultyID,facultyName FROM faculty_tab 
  WHERE facultyID NOT IN (SELECT facultyID FROM faculty_test)
INSERT INTO faculty  (facultyName)
  SELECT facultyName FROM faculty_tab 
  WHERE facultyID NOT IN (SELECT facultyID FROM faculty_test)

วันเสาร์ที่ 11 กุมภาพันธ์ พ.ศ. 2560

IT-Keyboard Shortcuts ที่ใช้บ่อย OSX 10

Shortcuts ทั่วไป
cmd+option+d
Show/Hide Dock
Ctrl+F2
Focus Menu
Ctrl+F3
Focus Docked
cmd+H
Hide current Application
cmd+M
Minimize current Application
cmd+ctrl+F
Full Screen Application

Shortcuts Screen Capture
cmd+shift+3
Screen Capture
cmd+shift+4
Area Capture
cmd+shift+4+Space
Windows Capture