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

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

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

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

213

กระทู้

301

โพสต์

2403

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2403




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




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


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

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

x
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

0

กระทู้

41

โพสต์

193

เครดิต

Member

Rank: 2

เครดิต
193
โพสต์ 2019-1-9 15:50:52 | ดูโพสต์ทั้งหมด

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

0

กระทู้

1

โพสต์

8

เครดิต

Newbie

Rank: 1

เครดิต
8
โพสต์ 2019-1-11 22:01:06 | ดูโพสต์ทั้งหมด

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

0

กระทู้

5

โพสต์

28

เครดิต

Newbie

Rank: 1

เครดิต
28
โพสต์ 2019-6-25 15:05:44 | ดูโพสต์ทั้งหมด


ขอบคุณครับ

5

กระทู้

18

โพสต์

117

เครดิต

Member

Rank: 2

เครดิต
117
โพสต์ 2019-8-23 11:44:20 | ดูโพสต์ทั้งหมด

แก้ไขครั้งสุดท้ายโดย 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
ขอบคุณครับ



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

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

x

213

กระทู้

301

โพสต์

2403

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2403
 เจ้าของ| โพสต์ 2019-8-23 13:13:51 | ดูโพสต์ทั้งหมด

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


ส่วน ListView ไม่ได้แจ้งว่าเกิด Error อะไร ผมก็ตอบให้ไม่ได้ครับ แต่ผมจะประกาศตัวแปร x ให้เป็นแบบ Variant อยู่ด้านบนของ Sub Program ด้วยน่ะครับ
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

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

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

GMT+7, 2020-1-19 22:46 , Processed in 0.672398 second(s), 5 queries , File On.

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

© 2001-2017 Comsenz Inc.

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