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

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

[VB6] แจกฟรีโค้ดโปรแกรมติดต่อฐานข้อมูล MSSQL เพื่อเก็บบันทึกข้อมูลลูกค้า และพิมพ์รายงาน

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

308

กระทู้

498

โพสต์

5971

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
5971



แอดมินได้เขียนบทความและแจกโค้ด การเชื่อมต่อระบบฐานข้อมูล MS SQL Server (ภาคปฏิบัติ) มาตั้งแต่ปี 2551 แล้ว ก็ไม่ขอบรรยายหลักการทางทฤษฎีอะไรให้มากมาย สำหรับการใช้ VB6 เชื่อมต่อกับฐานข้อมูล MS Access และ MSSQL Server จะแตกต่างไปจาก VB.NET เพราะ VB6 เราเปลี่ยนแค่ Connection String ซึ่งการติดต่อกับฐานข้อมูลก็ยังทำผ่านทาง ADO หรือที่เราเรียกว่า RecordSet ตามเดิม ส่วน VB.NET ต้องเปลี่ยน Namespace ให้ตรงกับฐานข้อมูลที่ใช้ สำหรับเรื่องของ SQL Statement หรือการทำ Query ทั้ง VB6 และ VB.NET เราก็ยังต้องทำการปรับแต่งแก้ไขระหว่างเจ้าฐานข้อมูลทั้ง 2 แบบอยู่ดี สมาชิกทุกท่านก็ลองทำการเปรียบเทียบกันดูครับ [VB6] แจกฟรีโค้ดโปรแกรมการเก็บบันทึกข้อมูลลูกค้าแบบ CRUD (One To One) และการพิมพ์รายงาน

การ Import Data จาก MS Access เข้าสู่ MSSQL Server ...












โค้ดการเชื่อมต่อ MSSQL Server ...
  1. Option Explicit

  2. Global ConnDB As New ADODB.Connection
  3. Global RS As New ADODB.Recordset
  4. Global DS As New ADODB.Recordset
  5. Global Statement As String
  6. Global SQLStmt As String
  7. '
  8. ' กำหนดว่าเป็นการเพิ่ม หรือ แก้ไขข้อมูล
  9. Global blnNewData As Boolean
  10. ' ให้เกิดการ Update ในฟอร์มที่มีการเปลี่ยนแปลง
  11. Global FormUpdate As Boolean
  12. '
  13. ' สำหรับทำการค้นหา
  14. Global gPK As Long
  15. ' การส่งชื่อตารางข้อมูลไป
  16. Global gTable As String

  17. Public Sub ConnectMsSQL()
  18.     On Error GoTo ErrorHandler
  19.    
  20.     ' Open a connection.
  21.     Set ConnDB = New ADODB.Connection
  22.     ConnDB.ConnectionString = _
  23.                     " Provider=SQLOLEDB.1;" & _
  24.                     " Data Source=Thongkorn-PC\G2GNET2017; " & _
  25.                     " Initial Catalog=CustomerDB; " & _
  26.                     " User ID=; " & _
  27.                     " Password=; " & _
  28.                     " Trusted_Connection=yes; "
  29.     ConnDB.Properties("Prompt") = adPromptAlways
  30.     ConnDB.Open
  31.     MsgBox "คุณสามารถเชื่อมต่อฐานข้อมูล MSSQL Server.", vbOKOnly + vbInformation, "รายงานสถานะ"
  32.         
  33. ExitProc:
  34.     Exit Sub

  35. ErrorHandler:
  36.     Select Case Err.Number
  37.         ' ดัก Trap Error ของการกดปุ่ม Cancel
  38.         Case -2147217842
  39.             End
  40.         
  41.         Case Else
  42.             MsgBox "Open Database Error : " & vbCrLf & Err.Number & " " & Err.Description
  43.             End
  44.     End Select
  45. End Sub
คัดลอกไปที่คลิปบอร์ด

ส่วนโค้ดทั้งหมดสามารถดาวน์โหลดได้จากที่นี่ ...

ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

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

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

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

GMT+7, 2024-3-29 03:12 , Processed in 0.345427 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

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