Snasui Excel Forum

Posted: **Tue Apr 20, 2021 11:18 am**

เรียน อาจารย์

ไฟล์ Excel เชื่อมต่อ Database SQL Server
อยากให้ใส่ เลข HN แล้วคลิกปุ่ม Calculate ข้อมูล Name และ DOB จะขึ้น อัตโนมัติ
ต้องปรับ Code อย่างไรครับ ขอบคุณครับ

Code: Select all

Private Sub CommandButton1_Click()
    With ActiveWorkbook.Connections("Query from HN").ODBCConnection
        .BackgroundQuery = True
        .CommandText = Array( _
        "SELECT PatientAll.Hn, PatientAll.Title, PatientAll.Fname, PatientAll.Lname, PatientAll.DOB" & Chr(13) & "" & Chr(10) & "FROM MEDTRAK_DATA.dbo.P" _
        , _
        "atientAll PatientAll" & Chr(13) & "" & Chr(10) & "where PatientAll.HN like '11-21%'" & Chr(13) & "" & Chr(10) & "order By PatientAll.HN" _
        )

    End With

    ActiveWorkbook.Connections("Query from HN").Refresh
End Sub

Posted: **Tue Apr 20, 2021 4:27 pm**

ได้แล้วครับ ขอบคุณครับ

Posted: **Tue Apr 20, 2021 5:52 pm**

wisitsakbenz wrote: Tue Apr 20, 2021 4:27 pm ได้แล้วครับ ขอบคุณครับ

หากโพสต์คำตอบมาเป็นวิทยาทานจะเป็นประโยชน์กับผู้อื่นด้วยครับ

ค่าใด ๆ ก็ตามที่ต้องการให้ผู้ใช้สามารถเปลี่ยนแปลงเองเพื่อดึงตามเงื่อนไขนั้นได้ เราจะกำหนดไว้ที่อื่นแล้วค่อยนำมาใช้ใน Code ยกตัวอย่าง กำหนดค่าไว้ในเซลล์ A1 ให้ผู้ใช้เปลี่ยนได้เองว่าจะดึงมาตามเงื่อนไขใด สามารถปรับเป็นด้านล่าง

wisitsakbenz wrote: Tue Apr 20, 2021 11:18 am
Code: Select all
& "....where PatientAll.HN like '" & [A1].Value & "%'" & Chr(13) & ...

Snasui Excel Forum

ใส่ เลข HN แล้วคลิกปุ่ม Calculate ข้อมูล Name และ DOB จะขึ้น อัตโนมัติ

ใส่ เลข HN แล้วคลิกปุ่ม Calculate ข้อมูล Name และ DOB จะขึ้น อัตโนมัติ

Re: ใส่ เลข HN แล้วคลิกปุ่ม Calculate ข้อมูล Name และ DOB จะขึ้น อัตโนมัติ

Re: ใส่ เลข HN แล้วคลิกปุ่ม Calculate ข้อมูล Name และ DOB จะขึ้น อัตโนมัติ