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

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

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

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

308

กระทู้

498

โพสต์

5973

เครดิต

ผู้ดูแลระบบ

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

Rank: 9Rank: 9Rank: 9

เครดิต
5973




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




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


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

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

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

0

กระทู้

51

โพสต์

233

เครดิต

Full Member

Rank: 3Rank: 3

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

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

0

กระทู้

1

โพสต์

8

เครดิต

Newbie

Rank: 1

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

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

0

กระทู้

5

โพสต์

30

เครดิต

Newbie

Rank: 1

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


ขอบคุณครับ

13

กระทู้

46

โพสต์

327

เครดิต

Full Member

Rank: 3Rank: 3

เครดิต
327
โพสต์ 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

308

กระทู้

498

โพสต์

5973

เครดิต

ผู้ดูแลระบบ

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

Rank: 9Rank: 9Rank: 9

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

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


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

0

กระทู้

3

โพสต์

36

เครดิต

Newbie

Rank: 1

เครดิต
36
โพสต์ 2023-10-23 09:24:04 | ดูโพสต์ทั้งหมด

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

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

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

GMT+7, 2024-3-29 19:53 , Processed in 0.200713 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

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