ALTER TABLE IF NOT EXISTS สร้าง/แทรก ฟิล์ดใหม่ ถ้าไม่มีฟิล์ดนี้ในตาราง

ALTER TABLE myTableName ADD IF NOT EXISTS myFieldName CHAR(1) DEFAULT 0 NOT
NULL;

วิธีแก้ปัญหาต่อ Wifi ได้แต่ต่อเน็ตไม่ได้

วิธีแก้ไขปัญหาไม่สามารถเชื่อมต่ออินเตอร์เน็ตได้

บางทีต่อ Wifi ได้แต่ต่ออินเตอร์เน็ตไม่ได้ ไม่มีสัญญาณอินเตอร์เน็ต

วิธีที่ 1

ทำตามขั้นตอนต่อไปนี้เพื่อเรียกใช้หน้าต่างในตัวแก้ไขปัญหา:

a) พิมพ์คำว่า Troubleshooting   ในช่องค้นหาและกด Enter

b) คลิกที่แท็บ Troubleshooting

c) คลิกที่ view all   ที่มุมบนซ้าย

d) คลิกตัวเลือก Network Adaptor จากรายการ

e) คลิก Next  เพื่อเรียกใช้เครื่องมือแก้ปัญหา

วิธีที่ 2

เปิดโปรแกรม Notepad แล้วคัดลอกข้อความด้านล่างภายใน ------ ไปวางไว้ จากนั้นบันทึกเป็นชื่อไฟล์ Fixnetwork.cmd  จากนั้นคลิกขวาที่ชื่อไฟล์ แล้วเลือก Run as Administrator เสร็จแล้ว รีสตาร์ทเครื่อง

----------------------------------------

netsh int tcp set heuristics disabled

netsh int tcp set global autotuninglevel=disabled

netsh int tcp show global

----------------------------------------

สำรองข้อมูล Wordpress ด้วย ปลั๊กอินสุดเทพ

ใช้ปลั๊กอิน ชื่อ All in one WP Migration ครับ 
การดาวน์โหลดเก็บไว้ในเครื่องเรา คลิกที่
All in one WP Migration > Export 

การเรียกคืนคลิกที่
All in one WP Migration> Inport

หรือจะสำรองโดยคลิกที่ 
All in one WP Migration > Backup

รายละเอียดวิธีใช้เพิ่มเติมตามเว็บไปครับ >> https://padveewebschool.com/wordpress-backup/

อยากส่ง Line โดย PHP

เว็บนี้เลย
https://developers.line.me/messaging-api/getting-started
https://github.com/line/line-bot-sdk-php

Relative FieldName FieldType And Data From Table vb.net นำข้อมูลออกมาแสดงทั้งชื่อฟิลด์ประเภทและข้อมูลในตาราง

นำข้อมูลออกมาแสดงทั้ง ชื่อฟิลด์ ประเภท และข้อมูลในตาราง

 Private Sub Fill( )  'ดึงข้อมูลในตารางออกมาแสดงโดยการเลือกตามชื่อ Field
        Try
           Dim ConnetionString As String
           ConnetionString = "Server=localhost;Database=DbName;User Id=Sa;Pwd=1234;"
            Dim con As New SqlConnection(ConnetionString)
            Dim cmd As New SqlCommand("select * from TableName", con)
            Dim ds As New DataSet()
            Dim myData As New SqlDataAdapter(cmd)
            ds.Clear()
            myData.Fill(ds)
            'DataGridView1.DataSource = ds.Tables(0)
            For Each table As DataTable In ds.Tables
                For Each row As DataRow In table.Rows
                    For Each column In table.Columns
                        'MsgBox("ColumnName: " & column.ColumnName & _
                        '         vbNewLine & _
                        '        "Type     : " & column.DataType.ToString & column.ColumnName)
                        MsgBox(row(column.ColumnName).ToString())
                    Next
                Next
            Next
            con.Close()
        Catch ex As Exception
        End Try
    End Sub

แก้ปัญหาภาษาไทยใน Windows 10 สระเอเพี้ยน

เคยเจอใหมครับ Windows 10 เมื่ออับเดทแล้วภาษาไทยจะมีอาการเพี้ยนขึ้นมา เกิดจากปัญหาฟ้อนชื่อ Microsoft Sans Serif เพี้ยนไปครับ สระ เอ จะเพี้ยนเป็น ~ เรามีวิธีแก้มาฝากครับ
วิธีที่ 1.
ดาวน์โหลดและติดตั้ง Patch Update :  http://www.catalog.update.microsoft.com/Search.aspx?q=KB4020102

วิธีที่ 2:
แก้ไข Registery ดังนี้ (ก็อปข้อความข้างล่างไปวางไว้ใน Notepad แล้วเซฟเป็นไฟล์นามสกุล reg เช่น Patch.reg แล้วดับเบิลคลิกไฟล์เพื่อให้ปรับปรุง Registery โดยอัตโนมัติเลย จากนั้นรีสตาร์ทเครื่อง)


Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts]

"MS Sans Serif 8,10,12,14,18,24"="SSERIFEG.FON"
"MS Sans Serif 8,10,12,14,18,24 (120)"="SSERIFFG.FON"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes]

"MS Sans Serif Greek"="Microsoft Sans Serif"
"MS Sans Serif"="Microsoft Sans Serif"

ทฤษฎีธนาคารน้ำใต้ดิน

ทฤษฎีธนาคารน้ำใต้ดิน  คือการขุดบ่อ/ฝายกักเก็บน้ำ ให้ลึกถึงชั้นน้ำใต้ดิน

เพื่อเก็บน้ำในฤดูฝนและกระจายน้ำผ่านธารน้ำใต้ดินเหมือนกับมีท่อประปาส่งน้ำนั่นเอง

ข้อดี:
ในฤดูฝน น้ำไม่ท่วม เพราะน้ำจะไหลผ่านธารน้ำใต้ดินมาเก็บไว้ที่บ่อธนาคารน้ำ
ในฤดูแล้งก็จะมีน้ำใช้โดยน้ำจะส่งผ่านธารน้ำใต้ดินไปยังบ่อบาดาล

แก้ไขปัญหาเชื่อมต่อ 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]

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

แก้ปัญหาลง 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 ออก

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

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

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

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

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

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

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

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