ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 696|ตอบกลับ: 1

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

[คัดลอกลิงก์]

1

กระทู้

1

โพสต์

13

เครดิต

Newbie

Rank: 1

เครดิต
13

แก้ไขครั้งสุดท้ายโดย imontza เมื่อ 2019-8-16 09:20

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

ขอบคุณคราบ



VB

245

กระทู้

348

โพสต์

2881

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2881
โพสต์ 2019-8-19 11:41:13 | ดูโพสต์ทั้งหมด

สำหรับ 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. Private Sub Form_Load()
  4.     On Error GoTo ErrorHandler
  5.     ' Center screen with coding
  6.     Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  7.    
  8.     ' Open a connection.
  9.     Set ConnDB = New ADODB.Connection
  10.     ConnDB.ConnectionString = _
  11.                     " Provider=SQLOLEDB.1;" & _
  12.                     " Data Source=Thongkorn-PC\G2GNET2017; " & _
  13.                     " Initial Catalog=nwind; " & _
  14.                     " User ID=; " & _
  15.                     " Password=; " & _
  16.                     " Trusted_Connection=yes; "
  17.     ConnDB.Properties("Prompt") = adPromptAlways
  18.     ConnDB.Open
  19.    
  20.     If ConnDB.State = adStateOpen Then
  21.         ConnDB.Close
  22.         Set ConnDB = Nothing
  23.     End If
  24.     MsgBox "คุณสามารถเชื่อมต่อฐานข้อมูล MS SQL.", vbOKOnly + vbInformation, "รายงานสถานะ"
  25.         
  26. ExitProc:
  27.     Exit Sub

  28. ErrorHandler:
  29.     Select Case Err.Number
  30.         ' ดัก Trap Error ของการกดปุ่ม Cancel
  31.         Case -2147217842
  32.             End
  33.         
  34.         Case Else
  35.             MsgBox "Open Database Error : " & vbCrLf & Err.Number & " " & Err.Description
  36.             End
  37.     End Select
  38. End Sub
คัดลอกไปที่คลิปบอร์ด

MSSQLConnectVB6.jpg
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-7-12 16:03 , Processed in 0.558081 second(s), 5 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้