เรียนอาจารย์สุภาพ ครับ ช่วยดู อีกครั้งครับ ทำไม รันไม่ออก ผมแก้ไขตามที่ อาจาย์ได้บอกแล้ว เมื่อวานที่อาจารย์ได้แนะนำยังรันได้อยู่ แต่หลังจากที่ Save แล้วปิดไหม รันไม่ออก จึงรบกวนให้อาจารย์ช่วยแนะนำให้อีกครั้งนะครับ

ผมเขียนผมหลายวันไม่สำเร็จสักที ขอขอบคุณล่วงหน้า

ช่วยดู Souce ที่เขียนให้หน่อยนะครับ Run ไม่ออก
ติดบรรทัดนี้
Set Qdf = DB.CreateQueryDef("SumSweet", SQl) 'สั่งให้ฐานข้อมูล สร้าง Query เสมือน ชื่อ SumSweet
วานผู้รู้ช่วยแนะนำให้หน่อยนะครับ ขอบคุณมากครับ
เพราะต้องการทราบผลลัพธ์ จำนวนเงิน แต่ละบุคคล
สมมุติ มีลูกค้าซื้อสินค้า 100 คนและจะเป็นลูกค้าที่มีชื่อซ้ำ10 ครั้งที่มาใช้บริการ เช่น ชื่อ นายสมมุติฐาน เข้ามาซื้อสินค้า 10 ครั้ง
เราต้องการรวมเงิน ของนายสมมติฐาน ว่าทั้ง 10 ครั้งที่เข้ามาซื้อสินค้า มีจำนวนเงินรวมเท่าไร

Option Explicit
Dim DB As Database
Dim Rs As Recordset
Dim Qdf As QueryDef

Private Sub DBList1_Click()
If DBList1.Text <> "" Then
Qdf!Name = DBList1.Text
Set Rs = Qdf.OpenRecordset
'Set Qdf = DB.QueryDefs("Myquery") ' set query ให้เปิด Query ชื่อ "MyQuery" (Disable)
Text1.Text = Rs!SumNET 'สั่งให้ผลลัพธ์ แสดงผลที่ Text1
End If
End Sub

Private Sub Form_Load()
Dim SQl As String
Set DB = OpenDatabase("nwind.mdb") 'สั่งให้เปิดฐานข้อมูลที่ให้มากับตัว vb6
SQl = "Parameters Name text; " *
SQl = SQl & "SELECT Sum(Products.UnitsinStock) as SumNet " *
SQl = SQl & "From Products INNER JOIN Categories ON " *
SQl = SQl & "Products.CategoryID=Categories.CategoryID " *
SQl = SQl & "WHERE Categories.Categoryname=name" *
Set Qdf = DB.CreateQueryDef("SumSweet", SQl) 'สั่งให้ฐานข้อมูล สร้าง Query เสมือน ชื่อ SumSweet
End Sub

Private Sub Form_Unload(Cancel As Integer)
DB.QueryDefs.Delete Qdf.Name 'สั่งให้ลบ Query เสมือน ที่ระบบสร้างขึ้น
DB.Close
End Sub