[VB6] แจกฟรีโค้ดโปรแกรมการเก็บบันทึกข้อมูลลูกค้าแบบ CRUD (One To One) และการพิมพ์รายงาน

thongkorn

สำหรับบทความนี้แอดมินจะไม่ขออธิบาย จะให้เป็นโค้ดได้นำไปศึกษากัน เพื่อศึกษาลักษณะการเขียนโปรแกรมด้วย Visual Basic 6 ติดต่อกับฐานข้อมูล MS Access ด้วยการใช้ความสัมพันธ์แบบ One To One ในลักษณะที่เราเรียกว่า CRUD (Create-Retreive-Update-Delete) หรือ การสร้าง-การค้นคืน-การปรับปรุง-การลบข้อมูล โดยปกติลำดับขั้นตอนของการเขียนโปรแกรมร่วมกับฐานข้อมูล ก็คือ การค้นหาข้อมูลมาก่อน หากหาไม่เจอก็ต้องทำการสร้างหรือเพิ่ม หากหาเจอก็เลือกเอาว่าจะแก้ไข หรือจะลบข้อมูล สุดท้ายก็ทำการปรับปรุง อนึ่งโค้ดทั้งหมดชุดนี้จะใช้วิธีการเขียนโค้ดแบบ Run Time ทั้งหมด หากท่านที่ได้โค้ดไปคุณต้องวางตำราที่มีอยู่เอาไว้ให้ห่างๆก่อน เพราะโค้ดทั้งหมดนี้ผมใช้วิธีการเรียนรู้นอกระบบ รบนอกตำรามาน่ะครับ ...




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

MrDen

ขอบคุณครับผม

UncleWit

ขอบคุณครับอาจารย์

paper20

ขอบคุณครับ

my2alee

โหลดมานานแล้ว พอดีวันนี้ว่างๆมาทดสอบหน่อย ติดปัญหา 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
ขอบคุณครับ

thongkorn

ตรวจสอบเวอร์ชั่น VB6 ด้วยครับ จะต้องเป็น Service Pack 6 (SP6) ...


ส่วน ListView ไม่ได้แจ้งว่าเกิด Error อะไร ผมก็ตอบให้ไม่ได้ครับ แต่ผมจะประกาศตัวแปร x ให้เป็นแบบ Variant อยู่ด้านบนของ Sub Program ด้วยน่ะครับ

juachan

ขอบคุณครับ