คำคมขงเบ้ง

เกียรติยศย่อมเกิดจากการกระทำที่สุจริต

ถ้าคุณหัวเสีย คุณจะเสียหัว

อย่าไล่สุนัขให้จนตรอก อย่าต้อนคนให้จนมุม

อำนาจที่ปราศจากเหตุผล คือ อำนาจของคนพาล อำนาจที่ปราศจากความเมตตา คือ อำนาจที่นำมาซึ่งความปราชัย

ถ้าคุณคิดจะเป็นใหญ่ คุณก็จะได้เป็นใหญ ถ้าคุณคิดอยากเป็นอะไร คุณก็จะได้เป็นสิ่งนั้น

เพราะแสวงหา มิใช่เพราะรอคอย เพราะเชี่ยวชาญ มิใช่เพราะโอกาส เพราะสามารถ มิใช่เพราะโชคช่วย ดังนี้แล้ว

"ลิขิตฟ้าหรือจะสู้มานะตน"

ใช้คำสั่ง Query ด้วย TEXT หรือ NVARCHAR มากกว่า 4000 (Execute Query With NVARCHAR More Than 4000 )

ใช้คำสั่ง Query ด้วย TEXT หรือ NVARCHAR ข้อดีคือสามารถรับได้ถึง 8000 ตัวอักษร

declare @sql nvarchar(4000)
declare @sql2 nvarchar(4000)
SET  @sql = 'SELECT * FROM TABLE'
SET  @sql2 = ' WHERE 1=1'
EXEC(@sql + @sql2)

สั่ง Query ด้วย NVARCHAR ( Execute Query With NVARCHAR)

ใช้คำสั่ง Query ด้วย TEXT หรือ NVARCHAR ข้อเสียคือสามารถรับได้แค่ 4000 ตัว

declare @sql nvarchar(4000)
SET  @sql = 'SELECT * FROM TABLE'
execute sp_executesql @sql

การสร้าง PrimaryKey ให้ DataTable

'-------------------------------------------------------------------------
'สร้าง PrimaryKey แบบหนึ่ง Key
Dim dtTempCal As New DataTable
dtTempCal.Columns.Add("Data", GetType(String))
dtTempCal.Columns.Add("Key_No", GetType(String))

dtTempCal.PrimaryKey = New DataColumn() {dtTempCal.Columns("Key_No")}

'การเรียกใช้งานเพื่อ update data ใน DataTable แบบหนึ่ง Key
Dim drNewrow as DataRow
drNewrow = dtTempCal.NewRow
drNewrow = dtTempCal.Rows.Find("001") 'Key_No = "001"
drNewrow.BeginEdit()
drNewrow("Data") = "Test"
drNewrow.EndEdit()

-------------------------------------------------------------------------
'สร้าง PrimaryKey แบบมากกว่าหนึ่ง Key
Dim dtTempCal2 As New DataTable
dtTempCal2.Columns.Add("Data", GetType(String))

Dim primaryKey(1) As DataColumn
primaryKey(0) = dtTempCal2.Columns.Add("Key_No1", GetType(String))
primaryKey(1) = dtTempCal2.Columns.Add("Key_No2", GetType(String))
dtTempCal2.PrimaryKey = primaryKey

'การเรียกใช้งานเพื่อ update data ใน DataTable แบบมากกว่าหนึ่ง Key
Dim oKey(1) As Object
oKey(0) = "001"
oKey(1) = "002"
drNewrow = dtTempCal2.Rows.Find(oKey) 'Key_No1 = "001",'Key_No2 = "002"
drNewrow.BeginEdit()
drNewrow("Data") = "Test"
drNewrow.EndEdit()