ผู้เขียน หัวข้อ: [VB6] การเชื่อมต่อ MS SQL Server ด้วยการใช้ Login Prompt  (อ่าน 186 ครั้ง)

ออฟไลน์ ทองก้อน ทับทิมกรอบ

  • Administrator
  • *****
  • กระทู้: 245
  • เพศ: ชาย
  • Webmaster G2GNet
[VB6] การเชื่อมต่อ MS SQL Server ด้วยการใช้ Login Prompt


การ Login แบบ Windows Authentication ก็กำหนด Trusted_Connection=yes

ก่อนที่จะเข้าสู่กระบวนการทำ Port Forwarding เพื่อสร้างระบบฐานข้อมูลกลาง สำหรับการติดต่อผ่านทางอินเทอร์เน็ต ก่อนอื่นเราก็ควรทำ Login Prompt ให้สามารถเลือก Instance (ชื่อฐานข้อมูล) และป้อนชื่อผู้ใช้ รหัสผ่านเอาไว้ก่อน ซึ่ง VB6 มันมีชุดสำเร็จติดตั้งไว้ให้มานานแล้ว หากเราศึกษาให้เข้าใจถ่องแท้ในแต่ละจุด เราก็จะสามารถนำไปต่อยอดสร้างหน้าจอระบบ Login เฉพาะงานนั้นๆได้เองครับพี่น้อง ...

*** ชุดคำสั่งนี้จะเกิดการค้นคืน (Retrieve) Instance ของ MS SQL Server ออกมาได้หมด ***

มาดูโค้ดกันเถอะ ...
โค๊ด: [Select]
' / -----------------------------------------------------------------------------------------------------------------------------------
' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
' / eMail : thongkorn@hotmail.com
' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
' / Facebook: www.facebook.com/g2gnet
' / Project: Connect MS SQL Server with login prompt.
' / Microsoft Visual Basic 6.0 Service Pack 6
' / -----------------------------------------------------------------------------------------------------------------------------------
Option Explicit
Dim ConnDB As New ADODB.Connection

Private Sub Form_Load()
    On Error GoTo ErrorHandler
    ' Center screen with coding
    Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
   
    ' Open a connection.
    Set ConnDB = New ADODB.Connection
    ConnDB.ConnectionString = _
                    " Provider=SQLOLEDB.1;" & _
                    " Data Source=local; " & _
                    " Initial Catalog=; " & _
                    " User ID=; " & _
                    " Password=; " & _
                    " Trusted_Connection=yes; "
    ' Login Prompt
    ConnDB.Properties("Prompt") = adPromptAlways
    ConnDB.Open
   
    If ConnDB.State = adStateOpen Then
        ConnDB.Close
        Set ConnDB = Nothing
    End If
    MsgBox "สามารถเชื่อมต่อฐานข้อมูล MS SQL สำเร็จ.", vbOKOnly + vbInformation, "รายงานสถานะ"
    End
       
ExitProc:
    Exit Sub

ErrorHandler:
    Select Case Err.Number
        ' Trap Error when user press Cancel button
        Case -2147217842
            End
       
        Case Else
            MsgBox "Open Database Error : " & vbCrLf & Err.Number & " " & Err.Description
            End
    End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set frmTest = Nothing
    End
End Sub

ดาวน์โหลดโค้ดต้นฉบับ VB6 ได้ที่นี่

บันทึกการเข้า
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

ออฟไลน์ dekdar

  • Newbie
  • *
  • กระทู้: 4
Re: [VB6] การเชื่อมต่อ MS SQL Server ด้วยการใช้ Login Prompt
« ตอบกลับ #1 เมื่อ: มีนาคม 27, 2016, 09:44:25 pm »
ขอบคุณครับ ป๋า

บันทึกการเข้า

ออฟไลน์ naien

  • Newbie
  • *
  • กระทู้: 36
Re: [VB6] การเชื่อมต่อ MS SQL Server ด้วยการใช้ Login Prompt
« ตอบกลับ #2 เมื่อ: มีนาคม 28, 2016, 02:58:18 pm »
ขอบคุณครับ

บันทึกการเข้า

ออฟไลน์ Mr.Den

  • Jr. Member
  • **
  • กระทู้: 73
  • เพศ: ชาย
Re: [VB6] การเชื่อมต่อ MS SQL Server ด้วยการใช้ Login Prompt
« ตอบกลับ #3 เมื่อ: มีนาคม 29, 2016, 05:04:00 pm »
Thank you ครับผม  เยี่ยม very good ครับ.

บันทึกการเข้า