[VB6] แจกฟรีโค้ดโปรแกรมการเก็บบันทึกข้อมูลลูกค้าแบบ CRUD (One To One) และการพิมพ์รายงาน
http://www.g2gnet.com/webboard/images/vb6/CustomerVB6.pngสำหรับบทความนี้แอดมินจะไม่ขออธิบาย จะให้เป็นโค้ดได้นำไปศึกษากัน เพื่อศึกษาลักษณะการเขียนโปรแกรมด้วย Visual Basic 6 ติดต่อกับฐานข้อมูล MS Access ด้วยการใช้ความสัมพันธ์แบบ One To One ในลักษณะที่เราเรียกว่า CRUD (Create-Retreive-Update-Delete) หรือ การสร้าง-การค้นคืน-การปรับปรุง-การลบข้อมูล โดยปกติลำดับขั้นตอนของการเขียนโปรแกรมร่วมกับฐานข้อมูล ก็คือ การค้นหาข้อมูลมาก่อน หากหาไม่เจอก็ต้องทำการสร้างหรือเพิ่ม หากหาเจอก็เลือกเอาว่าจะแก้ไข หรือจะลบข้อมูล สุดท้ายก็ทำการปรับปรุง อนึ่งโค้ดทั้งหมดชุดนี้จะใช้วิธีการเขียนโค้ดแบบ Run Time ทั้งหมด หากท่านที่ได้โค้ดไปคุณต้องวางตำราที่มีอยู่เอาไว้ให้ห่างๆก่อน เพราะโค้ดทั้งหมดนี้ผมใช้วิธีการเรียนรู้นอกระบบ รบนอกตำรามาน่ะครับ ...
http://www.g2gnet.com/webboard/images/vb6/CustomerReportVB6.png
ดาวน์โหลดโค้ดต้นฉบับ VB6 ได้ที่นี่ ...
ขอบคุณครับผม ขอบคุณครับอาจารย์
ขอบคุณครับ แก้ไขครั้งสุดท้ายโดย my2alee เมื่อ 2019-8-23 11:51
โหลดมานานแล้ว พอดีวันนี้ว่างๆมาทดสอบหน่อย ติดปัญหา ERROR ตามนี้ครับ อ.
พอกดปุ่ม รายชื่อลูกค้า และกด debug ติดปัญหาที่บรรทัดดังกล่าวครับ
ตรง Sub SetupListView(blnSearch As Boolean)
ฟ้องตรง บรรทัด Set x = lvwCustomer.ListItems.Add(, , RS.Fields(0), 1, 1)
'// นำข้อมูลมาแสดงผลลง ListViewControl
Do While Not RS.EOF
Set x = lvwCustomer.ListItems.Add(, , RS.Fields(0), 1, 1) <== บรรทัดนี้
For i = 1 To RS.Fields.Count - 1
x.SubItems(i) = RS.Fields(i)
Next i
RS.MoveNext
Loop
ขอบคุณครับ
ตรวจสอบเวอร์ชั่น VB6 ด้วยครับ จะต้องเป็น Service Pack 6 (SP6) ...
ส่วน ListView ไม่ได้แจ้งว่าเกิด Error อะไร ผมก็ตอบให้ไม่ได้ครับ แต่ผมจะประกาศตัวแปร x ให้เป็นแบบ Variant อยู่ด้านบนของ Sub Program ด้วยน่ะครับ
ขอบคุณครับ
หน้า:
[1]