24 มกราคม 2560

แก้ไขปัญหาเชื่อมต่อ Microsoft SQL SERVER จากเครื่องลูกขายไม่ได้


1. กรณีใช้ MS-SQL SERVER 2000 ให้เปิด SQL Server Client Network Utility แล้ว Enable  TCP/IP


    และ กำหนดใน Server Network Utility ด้วย


   กรณี ใช้ MS-SQL SERVER 2005 ขึ้นไป ให้ กำหนดที่ SQL Server Manager เปิด TCP/IP ขึ้นมาแล้วเลือก Enable

2. เปิด Windows Firewall And Advanced Security ขึ้นมา คลิกเข้าไปในส่วนของ Inbound Rules
จากนั้นสังเกตุฝั่งขวาสุดคลิกที่  New Rule...
RuleType = Port
Protocal And Port =  TCP (Special Local Port= 1433)
Action = Allow the Connection
Profile = Domain (โดเมน) +Private (ส่วนตัว)
              ส่วน public (สาธารณะ) ไม่ต้องติ๊ก
Name= Microsoft SQL SERVER
[Finish]







เสร็จแล้วครับ

23 มกราคม 2560

แก้ปัญหาลง MS SQL Server 2000 ไม่ได้

เครื่องแจ้งว่า You must restart the computer before runnig setup ...
แก้ปัญหาดังนี้...

Start >Run>Regedit [กด Enter]

ลบ

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager

ลบคีย์ชื่อ PendingFileRenameOperations ออก

ติดตั้งได้เลย

20 มกราคม 2560

แค็ปหน้าจอแล้วสั่งพิมพ์เว็บไซต์ให้เหมือนต้นฉบับด้วย PEARL CRESCENT (Firefox Plugin)

          สวัสดีครับ วันนี้มาแนะนำเทคนิคดีๆในการแค็ป(จับภาพ) หน้าจอเว็บไซต์ที่เราต้องการโดยใช้ส่วนเสริม (Plugin) ของ Firefox กันครับ
          เนื่องจากว่าแต่เดิมทีผมประสบปัญหาคือหน้าเว็บที่พิมพ์ออกมาหน้าตาไม่ค่อยเหมือนกับเว็บต้นฉบับบ้าง ข้อความหายบ้าง(ปัญหากับฟ้อนต์) ก็เลยมาเจอ Plugin ของ Firefox ตัวนี้ที่สามารถ Capture เว็บไซต์ได้ทั้งหน้าไม่ว่าขนาดของมันจะล้นจอขนาดใหนก็ตาม มาเริ่มกันเลยครับ





     จากนั้นก็สั่งพิมพ์ภาพของเราออกทางเครื่องปริ้นได้เลยครับ หรือว่าหากยาวไปจะตัดออก จะใส่ข้อความอะไรก็ตามใจเลยครับ
     ส่วนโปรแกรมที่ใช้ดูภาพผมแนะนำ Fastone Image Viewer : http://www.faststone.org/
ตามลิ้งค์ไปเลยครับ ^_^

18 มกราคม 2560

เอาเว็บไซต์เปรียบเทียบความสามารถ CPU มาฝาก

เว็บแรก ถามอินเทลได้โดยตรงเลย : http://ark.intel.com/th
เว็บที่สองเขาโด่งดังเรื่องนี้อยู่แล้ว : https://www.cpubenchmark.net/

17 มกราคม 2560

Check Null Value , DBNULL, If Isset IN VB.NET (แก้ไขปัญหาค่าว่าง ใน VB.NET)

If (Not (rs("GrandTotal") Is Nothing)) And rs("GrandTotal").ToString <> "" Then
          txtGrandTotal.text = Format(rs("GrandTotal"), "#,##0.00") & ""
Else
          txtGrandTotal.text = Format(0, "#,##0.00") & ""
End If