สอบถาม VB.6 Connect OLEDB กับ MSSql 2017-2018 การติดต่อฐานข้อมูล

imontza

การแสดงผล  
การค้นหา
insert,update,delete,select data into SQL SERVER usign vb 6.0,
how can i do this.how to connect datasourece using connection string?
ขอบคุณคราบ

thongkorn

สำหรับ VB6 ในการเชื่อมต่อกับฐานข้อมูล MSSQL SERVER เราเปลี่ยนแค่ Connection String หรือ Provider เท่านั้นครับ ที่เหลือในการ Insert/Update หรือ Delete ก็ใช้โค้ดเหมือนการใช้งานกับ MS ACCESS ได้เลย แต่อาจจะมีปรับแต่งเล็กน้อยในเรื่อง Query ครับ ...

โค้ดในการเชื่อมต่อกับ MSSQL Server ด้วย VB6 (การ Reference ใช้ ADODB 2.80 เหมือนใช้กับ MS Access)

1. Option Explicit
   
2. Dim ConnDB As New ADODB.Connection
   
3. 
   
4. Private Sub Form_Load()
   
5.     On Error GoTo ErrorHandler
   
6.     ' Center screen with coding
   
7.     Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
   
8.    
   
9.     ' Open a connection.
   
10.     Set ConnDB = New ADODB.Connection
    
11.     ConnDB.ConnectionString = _
    
12.                     " Provider=SQLOLEDB.1;" & _
    
13.                     " Data Source=Thongkorn-PC\G2GNET2017; " & _
    
14.                     " Initial Catalog=nwind; " & _
    
15.                     " User ID=; " & _
    
16.                     " Password=; " & _
    
17.                     " Trusted_Connection=yes; "
    
18.     ConnDB.Properties("Prompt") = adPromptAlways
    
19.     ConnDB.Open
    
20.    
    
21.     If ConnDB.State = adStateOpen Then
    
22.         ConnDB.Close
    
23.         Set ConnDB = Nothing
    
24.     End If
    
25.     MsgBox "คุณสามารถเชื่อมต่อฐานข้อมูล MS SQL.", vbOKOnly + vbInformation, "รายงานสถานะ"
    
26.         
    
27. ExitProc:
    
28.     Exit Sub
    
29. 
    
30. ErrorHandler:
    
31.     Select Case Err.Number
    
32.         ' ดัก Trap Error ของการกดปุ่ม Cancel
    
33.         Case -2147217842
    
34.             End
    
35.         
    
36.         Case Else
    
37.             MsgBox "Open Database Error : " & vbCrLf & Err.Number & " " & Err.Description
    
38.             End
    
39.     End Select
    
40. End Sub

คัดลอกไปที่คลิปบอร์ด