ถาม password ตอน query data

[JustSayHi]

เขียน code เพื่อเปลี่ยนเงื่อนไขในการ query data ประมาณนี้ครับ
ปัญหาคือไม่อยากให้มันเด้งมาถาม password ทุกครั้ง
ต้องแก้อย่างไรครับ

Code: Select all

Sub Macro1()
    Range("A6").Select
    With ActiveWorkbook.Connections("Query from HC").ODBCConnection
        .BackgroundQuery = True
        .CommandText = Array("SELECT ... (WF_Profile.ApplicationNo='" & [B1] & "')")
        .CommandType = xlCmdSql
        .Connection = "ODBC;DRIVER=SQL Server;SERVER=172.17.9.64;UID=sa;Password=ABCD1234;APP=Microsoft Office 2013;WSID=TC001SBNB017;DATABASE=SIB"
        .RefreshOnFileOpen = False
        .SavePassword = True
        .SourceConnectionFile = ""
        .SourceDataFile = ""
	.ServerCredentialsMethod = xlCredentialsMethodNone
	'.AlwaysUseConnectionFile = False
    End With
       ActiveWorkbook.Connections("Query from HC").Refresh
        
End Sub

[snasui]

ลองเปลี่ยนวิธีการติดต่อ SQL ดูตาม Link ด้านล่างนี้ซึ่งจะต้อง Add Reference ActiveX Data Object เสียก่อน โดยทำผ่านเมนู Tools > References ในหน้าต่าง VBE ครับ

Link: http://stackoverflow.com/questions/1120 ... -excel-vba