พีเอ็ม คอม

แก้ปัญหา bootstrap 5 เมนูไม่สามารถซ่อน/แสดงได้

2022-10-19T11:07:00.003+07:00

แก้ตามนี้เลยครับ

bootstrap 4 ใช้ตัวนี้

data-toggle="collapse" data-target="#menu_id"

bootstrap 5 ใช้ตัวนี้ ครับ

data-bs-toggle="collapse" data-bs-target="#menu_id"

(เพิ่ม bs มาด้วยในเวอร์ชั่น 5)

โค้ดเต็มๆ

<button class="navbar-toggler" type="button"

data-bs-toggle="collapse"

data-bs-target="#navbarSupportedContent"

aria-controls="navbarSupportedContent" aria-expanded="false" aria-label="Toggle navigation">

</button>

</li>

</ul>

</div>

Drivers Harddisk for Acer TravelMate P214-53 for Install Windows 10

2022-02-18T11:23:00.005+07:00

Drivers Harddisk for Acer TravelMate P214-53

Download Here

เอาเว็บไซต์สำหรับคนอยากอับเกรด CPU มาฝาก

2020-06-22T10:35:00.001+07:00

เมื่อเราอยากอับเกรด CPU แต่ไม่รู้ว่าเมนบอร์ดของเราจะรองรับไหม
เข้าไปตรวจสอบได้ที่เว็บไซต์นี้เลยครบ https://www.cpu-upgrade.com/

วิธีรีเซ็ตดรัมปริ้นเตอร์ Brother MFC-L2770DW

2020-06-22T10:21:00.004+07:00

เมื่อ Brother  MFC-L2770DW ขึ้นข้อความว่า ! Supplies
----------------------------------------------------------------
วิธี Reset Drum Brother  MFC-L2770DW
1. ตรวจสอบว่าตัวเครื่อง เปิดใช้งานอยู่
2. ปิดฝาด้านหน้าเครื่อง
3. กด  x  (ยกเลิก)
4. กดปุ่มค้างที่ [] (Toner) ประมาณ 5 วินาที
5. กดที่ Drum
6. กด Yes

Nikon Camera Error "This memory card cannot be used. Card may be damaged Insert another card." RESOLVED

2019-10-28T15:48:00.000+07:00

Nikon Camera: How do I format an SD card on my computer?

Format as FAT32

Enter the folder name DCIM.

Open DCIM folder and Create folder

หากแก้ไขไม่ได้มีอีกวิธีคือ

1. ปิดกล้อง

2.ถอด Memory Card ออก

3. เปิดกล้อง

4. ใส่ Memory Card กลับเข้าไปใหม่

** การใส่ Memory Card ขณะที่เปิดกล้องอยู่จะทำให้ กล้องรับข้อมูล Memory Card เพื่อให้เริ่มต้นใช้งานได้อีกครั้ง **

Install Line Error: Canot find MSVCP120.dll Please Re-Install this Application. Resolve

2019-03-27T10:22:00.001+07:00

คุณจำเป็นต้องดาวน์โหลดและติดตั้ง VC++2013 เพื่อแก้ไขปัญหานี้

Download

Visual C++ Redistributable Packages for Visual Studio 2013

and Install

Download URL: https://www.microsoft.com/en-us/download/details.aspx?id=40784

หมายเหตุ: วิธีตรวจสอบว่าคอมพิวเตอร์ของคุณเป็น Windows 32 bit หรือ Windows 64 bit ให้กดปุ่ม Windows + Pause จากนั้นมองหาในบรรทัด System type:

วิธีแก้ปัญหา กรณีที่ Android Studio Virtual Device ไม่ทำงานครับ

2019-01-24T13:34:00.000+07:00

How to fix Emulator in Android Studio doesn't start.
How to fix Android Studio Virtual Device Not work.

1. Reboot Pc to BIOS (Press Dell or F12 Key).
2. Look for "Intel Virtualization Technology"
Make it "Enable"

1. บู๊ตไปที่ Bios (กดปุ่ม Dell หรือ F12 แล้วแต่รุ่นเครื่องครับ).
2. มองหา "Intel Virtualization Technology"
แก้ไขเป็น "Enable"

แก้ปัญหา upsilon 2000 usb not communicating with ups

2018-08-27T15:17:00.001+07:00

สวัสดีครับ สำหรับวันนี้ Admin จะมารีวิวติดตั้งโปรแกรม UPSilon 2000 ครับ

พอดี Admin ซื้อเครื่องสำรองไฟ 1000VA Advice SMART มาสองตัวแต่เกิดปัญหาว่าติดตั้งแล้ว โปรแกรม UPSilon 2000 ที่แถมมาออก Error มาว่า usb not communicating with ups ครับ

มีวิธีแก้ดังนี้ครับ

สามารถปรับแก้โดยไปที่ Setting > General >Communication Type: จากนั้นเลือกให้ตรงกับเครื่องของคุณ (หากไม่รู้ก็เดาเอาจนกว่าจะได้ก็แล้วคัน ^_^) ในที่นี้ผมเลือก Demo

จากนั้น คลิก OK

ผลที่ได้ดังนี้ครับ สังเกตุเปอร์เซ็นต์แบ็ตเตอรี่จะขึ้นมาให้เห็นชัดเจนครับ

password login Brother MFC-7860dw, MFC-7360N Remote Setup application?

2018-03-07T09:28:00.003+07:00

What is the password for starting the Remote Setup application?

The default password is "access".

รหัสผ่านสำหรับการ remote config เครื่องปริ้นเตอร์ Brother MFC-7860dw และ MFC-7360N

รหัสผ่านคือ: access ครับ

username: admin
password: access

วันที่ภาษาไทยใน Crystal Report (PrintDate) Thai พร้อมด้วยเลข พ.ศ.

2018-01-30T18:13:00.002+07:00

ฟังก์ชั่นในการแปลงวันที่พิมพ์เอกสารเป็น วันเดือนปี ที่มีเลข พ.ศ.
แบบที่ 1

ToText(PrintDate,"dd/MM/") + totext(if(Year(PrintDate)<2500 else="" p="" rintdate="" then="" year="">

แบบที่ 2 (แบบยาว)

ToText(PrintDate,"d")+" "+ (
if ToText(PrintDate,"MM")="01" then "มกราคม" else
if ToText(PrintDate,"MM")="02" then "กุมภาพันธ์" else
if ToText(PrintDate,"MM")="03" then "มีนาคม" else
if ToText(PrintDate,"MM")="04" then "เมษายน" else
if ToText(PrintDate,"MM")="05" then "พฤษภาคม" else
if ToText(PrintDate,"MM")="06" then "มิถุนายน" else
if ToText(PrintDate,"MM")="07" then "กรกฎาคม" else
if ToText(PrintDate,"MM")="08" then "สิงหาคม" else
if ToText(PrintDate,"MM")="09" then "กันยายน" else
if ToText(PrintDate,"MM")="10" then "ตุลาคม" else
if ToText(PrintDate,"MM")="11" then "พฤศจิกายน" else
if ToText(PrintDate,"MM")="12" then "ธันวาคม" else "")+" "+totext(if(Year(PrintDate)<2500 else="" p="" rintdate="" then="" year="">
***อย่าลืมเปลี่ยนฟ้อนต์ให้เป็นฟ้อนต์ที่รองรับภาษาไทยขณะใช้งานด้วย***

คำสั่งเพิ่มฟิล์ดใน MySql พร้อมตรวจสอบ หากยังไม่มีให้เพิ่มฟิล์ดนี้

2018-01-03T15:15:00.002+07:00

#MySQL statement #Insert New Field if not exits

--------------------------------------------------------------------------------------------------------------------------
ALTER TABLE table1 ADD IF NOT EXISTS paid DECIMAL(19,4) DEFAULT 0 NOT NULL
--------------------------------------------------------------------------------------------------------------------------

วิธีกำหนดค่าการสลับแป้นพิมพ์ภาษาไทยบน Windows 10

2018-01-02T14:42:00.003+07:00

#วิธีสลับแป้นพิมพ์ภาษาไทย #แป้นพิมพ์ลัดภาษาไทย #แก้ปัญหาสลับภาษาไทยไม่ได้ #คีย์บอร์ดภาษาไทย

*** กรณีที่ไม่มีคีย์บอร์ดภาษาไทยให้ข้ามไปขั้นตอนที่ 1-3 และ 11-22 ก่อนนะครับ แล้วค่อยเริ่มต้นข้อ 1-10 อีกที ***

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

2017-12-07T11:10:00.000+07:00

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

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

2017-09-25T11:40:00.003+07:00

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

บางทีต่อ 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 ด้วย ปลั๊กอินสุดเทพ

2017-07-14T14:17:00.001+07:00

ใช้ปลั๊กอิน ชื่อ 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

2017-07-07T18:59:00.000+07:00

เว็บนี้เลย
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 นำข้อมูลออกมาแสดงทั้งชื่อฟิลด์ประเภทและข้อมูลในตาราง

2017-07-06T14:24:00.001+07:00

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

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 สระเอเพี้ยน

2017-05-29T09:07:00.001+07:00

เคยเจอใหมครับ 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"

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

2017-04-24T17:59:00.000+07:00

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

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

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

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

2017-01-24T10:27:00.002+07:00

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 ไม่ได้

2017-01-23T12:41:00.000+07:00

เครื่องแจ้งว่า 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)

2017-01-20T08:40:00.000+07:00

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

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

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

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

2017-01-18T11:33:00.002+07:00

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

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

2017-01-17T14:23:00.002+07:00

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

Pass Parameter and Formula to Crystal Report (Vb.net) Without Messagebox Resolve

2016-12-29T10:46:00.004+07:00

'Tip: Move rpt.SetParameterValue("ParamTitle", txtParameterTitle.Text) and rpt.DataDefinition.FormulaFields("Formula Title").Text = "'" & txtFormulaFields.Text & "'" After rpt.SetDataSource(dt)
-------------------------------------------------------------------------------------------

Imports CrystalDecisions.CrystalReports.Engine

Public Class Form1

    '*** TableRows (DataTable) ***'
    Function DataTableRows() As DataTable
        Dim dt As New DataTable
        Dim dr As DataRow

        '*** Column ***'
        dt.Columns.Add("id")
        dt.Columns.Add("ProductName")
        dt.Columns.Add("Units")
        dt.Columns.Add("Prices", GetType(System.Int64))
        'หากลืมใช้ GetType ให้ใช้โค้ดด้านล่างก็ได้
        'dt.Columns("Prices").DataType = System.Type.GetType("System.Int64")

        '*** Rows ***'
        dr = dt.NewRow
        dr("id") = "001"
        dr("ProductName") = "Printer Name 001"
        dr("Units") = "Box"
        dr("Prices") = "115"

        dt.Rows.Add(dr)

        '*** Rows ***'
        dr = dt.NewRow
        dr("id") = "C002"
        dr("ProductName") = "Keyboard "
        dr("Units") = "Box"
        dr("Prices") = "21"
        dt.Rows.Add(dr)

        '*** Rows ***'
        dr = dt.NewRow
        dr("id") = "C003"
        dr("ProductName") = "Mouse"
        dr("Units") = "Box"
        dr("Prices") = "6543"
        dt.Rows.Add(dr)



        Return dt '*** Return DataTable ***'

    End Function

    Private Sub btnViewReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnViewReport.Click
        Dim dt As DataTable
        dt = DataTableRows()

        Dim rpt As New ReportDocument()
        Dim directory As String = My.Application.Info.DirectoryPath
        'rpt.ReuseReportParametersOnRefresh = False
        'rpt.Load(directory & "..\..\myCrystalReport.rpt")
        rpt.Load("..\..\CrystalReport1.rpt")

        rpt.SetDataSource(dt)
        rpt.SetParameterValue("ParamTitle", txtParameterTitle.Text)

        'การส่งค่า Formula Fields ต้องมีเครื่องหมาย   ' ภายในเสมอ (ใน Crystal Report เป็น X+1 Formula Fields)
        rpt.DataDefinition.FormulaFields("Formula Title").Text = "'" & txtFormulaFields.Text & "'"

        Form2.CrystalReportViewer1.ReportSource = rpt
        Form2.CrystalReportViewer1.Refresh()
        Form2.StartPosition = FormStartPosition.CenterScreen
        Form2.WindowState = FormWindowState.Maximized
        Form2.ShowDialog()

    End Sub
End Class