VB.NET Export Text file ASCII ผ่าน IO.StreamWriter ภาษาไทยไม่ได้ / ภาษาไทยเป็นต่างดาว

VB.NET Export Text file ASCII ผ่าน IO.StreamWriter  ภาษาไทยไม่ได้

Coding VB.NET

สร้าง Trigger

ค้นหาชื่อคอมลัมท์จากตารางในฐานข้อมูล (find column in table sql)

SELECT t.name AS table_name,SCHEMA_NAME(schema_id) AS schema_name,c.name AS column_name
FROM sys.tables AS t
INNER JOIN sys.columns c ON t.OBJECT_ID = c.OBJECT_ID
WHERE c.name like '%Location_Index%'
ORDER BY schema_name, table_name;

Django + Python

การเพิ่มความเร็วของการทำ Query (SQL Server Query Performance)

เราสามารถเพิ่มความเร็วของการ Query ข้อมูลได้โดยทำให้ Column ที่เป็นข้อมูลเป็น Index

ให้เลือก Column ที่มีการใช้งานที่เป็นเงื่อนไขของโปรแกรม

เช่น Order by , Where หรือ Column ที่ใช้ในการ Join กับตารางอื่น เป็นต้น

1. เลือก Table และคลิกไปที่ Design

สอนการเขียน C# (Youtube)

http://csharp-video-tutorials.blogspot.co.uk/p/free-c-video-tutorial-for-beginners.html

การ Export Table to Excel (SQL Script)

EXEC sp_configure 'Show Advanced Options', 1
RECONFIGURE
GO
 
EXEC sp_configure 'Ad Hoc Distributed Queries', 1
RECONFIGURE
GO

EXEC sp_MSSet_oledb_prop N'Microsoft.ACE.OLEDB.12.0', N'AllowInProcess', 1
GO
 
EXEC sp_MSSet_oledb_prop N'Microsoft.ACE.OLEDB.12.0', N'DynamicParameters', 1
GO

---- Export To Excel File
insert into OPENROWSET('Microsoft.ACE.OLEDB.12.0', 
    'Excel 12.0;Database=E:\_Backup\testing.xls;', 
    'SELECT * FROM [Sheet1$]') select Sku_Id,Str1 from ms_SKU

---- Insert Form Excel File
SELECT * INTO dbo.ImportedEmployeeData
FROM   OPENROWSET('Microsoft.ACE.OLEDB.12.0',
       'Excel 12.0 Xml;HDR=YES;Database=E:\_Backup\testing.xls;',
       'SELECT * FROM [Sheet1$]')
GO

อ้างอิง :: http://sqlandme.com/2013/04/15/sql-server-import-data-from-excel-using-t-sql/

Why is the ReportViewer Control not working on IIS 7 (ReportViewer ไม่ทำงาน rdlc)

ReportViewer Control toolbar appears but images do not display and JavaScript functionality is not available.

Script Import and Export Table Sql Server (Sqlserver Excel)

1. สร้างเอกสาร Exel C:\Book1.xls 2. ทดสอบตามด้านล่าง

--Query Excel 
SELECT * FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0', 
'Excel 8.0;Database=C:\Book1.xls;HDR=YES', 
'SELECT * FROM [Sheet_Name$]')


 
--Export SQL table to Excel
insert into OPENROWSET('Microsoft.Jet.OLEDB.4.0', 
'Excel 8.0;Database=C:\Book1.xls;', 
'SELECT * FROM [Sheet_Name$]') select * from Table_Name
 

--Import Excel to SQL table 
Insert into Table_Name 
Select * FROM OPENROWSET ('Microsoft.Jet.OLEDB.4.0', 
'Excel 8.0;Database=D:\Book1.xls;HDR=YES', 
'SELECT * FROM [Sheet_Name$]')

รายการ .NET Component ทั้งหมด

สถาปัตยกรรมเทียร์ (Tier)

Tier คำนี้เมื่อแปลออกมาจะแปลได้ว่า "ชั้น"
Tier ในวงการ Software ก็มีความหมายคล้ายกัน สำหรับท่านที่ยังไม่เข้าใจขอแนะนำง่ายๆ โดยให้มองว่า "ชั้น" นั้นเป็นนามธรรม เมื่อนำมาใช้ในวงการ Software แล้ว จำเป็นต้องสร้างนามธรรมนั้นเป็นภาพลักษณ์ขึ้นมา
นิยามเฉพาะเจาะจงของ Tier ก็คือ "การรับ-ส่งข้อมูลในชั้นต่างๆ" นั่นเอง มักจะใช้คำว่า Tier กับ Software ทาง Business solution ที่มีระบบเครือข่าย มี Database Server ผู้เขียนจะจำแนกสถาปัตยกรรมเทียร์เป็น 3 แบบ ให้เห็นความแตกต่างอย่างชัดเจน

1. 2 Tier
2. 3 Tier
3. Multi-tier

IIS is not a valid Win32 application (Windows x64)

การแก้ไข IIS ไม่สามารถรันเว็บได้บนเครื่อง 64 บิท x64



 ขึ้น is not a valid Win32 application

 

 

ปัญหา Debug ไม่ได้ ใน Visual Studio (เครื่อง x64 บิต)

ปัญหา Debug ไม่ได้ ใน Visual Studio
1. ไปที่ Solution ของโปรเจ็คเลือกไปที่ Configuration Manager

ผญ๋า อีสาน พฤติกรรมไม่ควรปฏิบัติ(1)

ผะหญาสุภาษิต

พฤติกรรมไม่ควรปฏิบัติ

คัดจาก กาพย์ปู่

       ï มีดน้อยฟันเข้า  เด็กอวดรู้เกินวัยï   ผู้เฒ่ากล่าวคำหาญ   เป็นคนแก่มักพูดจาคุยโวโอ้อวด

ï  ปูมหลวงบอกยาป้าง  คนป่วยบอกยารักษาโรคï   แม่ฮ้างบอกยาสะเหน   หญิงม้ายบอกยาเสน่ห์ï  คนโลเลสอนควมฮู้   คนไม่มีความรู้ไปสอนคนอื่นï   คนลบหลู่ชี้บอกทางคุณ   คนเนรคุณ ชี้นำให้คนอื่นเกี่ยวกับเรื่อบุญคุณï คนเป็นขุนบอกทางค้า  ข้าราชการแนะนำการค้าขายï  คนขี่ข้าบอกทางเงิน    คนรับใช้คนยากจนบอกแนวทางการหาเงินï  คนมั่งมีกินทานบ่ได้   คนร่ำรวย มีแต่ความเห็นแก่ตัวไม่มีการทำบุญทำทานï  คนขี้ไฮ้อวดอ้างฮ่างมี   คนจนยากไร้อวดอ้างว่าตนเองร่ำรวยï  คนเป็นชีหาเงินรับจ้าง  เป็นนักบวชพระสงฆ์หรือชีรับจ้างหาเงินï  คนอวดอ้างยกย่องว่าโตดี   คนอวดอ้างยกย่องตัวเอง  เป็นอาจารย์หากินแต่เหล้า  คนที่เป็นครูบาอาจารย์ติดสุราï  เป็นผู้เฒ่าควมฮู้บ่ถาม   เป็นคนแก่ที่สนใจในการเรียนรู้ประสบการณ์ï   เป็นสมภารลูกวัดบ่ย้าน  เป็นเจ้าอาวาสที่พระลูกวัดไม่ยำเกรง ไม่นับถือ ไม่มีความสามารถในการปกครองï 

การเขียน Connection String แบบต่างๆ เพื่อเชื่อมต่อ SQLConnection (.Net)

ในการทำให้โปรแกรมของเรา สามารถติดต่อฐานข้อมูล 
อันนึงที่มักเป็นปัญหา บ่อยๆ คือ การเขียน Connection String ผิด

คำคมขงเบ้ง

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

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

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

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

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

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

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

ใช้คำสั่ง 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()

ใส่เครื่องหมายถูกผิดใน Word หรือ Excel แบบง่ายๆ

ให้เลือก Font เป็น Wingdings 2
แล้วกด Shift+P = ถูก
ถ้ากด Shift+O = ผิด

ลองดูเล่นๆ นะครับ