เรียนถาม อ. สุภาพ / ผู้รู้ สร้าง Query เสมือน พร้อมแก้ไข้ Souce เบื้องต้น 2
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 245   1
URL.หัวข้อ / URL
เรียนถาม อ. สุภาพ / ผู้รู้ สร้าง Query เสมือน พร้อมแก้ไข้ Souce เบื้องต้น 2

เรียนอาจารย์สุภาพ ครับ ช่วยดู อีกครั้งครับ ทำไม รันไม่ออก ผมแก้ไขตามที่ อาจาย์ได้บอกแล้ว เมื่อวานที่อาจารย์ได้แนะนำยังรันได้อยู่ แต่หลังจากที่ 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

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R03312
ลองสลับบันทัดคู่นี้ดูครับ แล้วเพิ่มเติมนิดหน่อยดู

...
Set Qdf = DB.QueryDefs("SumSweet")
Qdf.Parameters!Name = DBList1.Text
Set Rs = Qdf.OpenRecordset
...

@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0634s