กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
418 5
URL.หัวข้อ /
URL
ใช้คำสั่ง Find ในการหาข้อมูล
ผมทำฟอร์มออกบิลขึ้นมา โดยถ้าเพิ่มรหัสสินค้าซ้ำกันในบิลเดียวจะไม่ทำการบันทึกและตัดสต๊อกให้ โดยผมใช้ ADO ในrecordset = rs เช่น rs.find "orderid=" orderid.value and "itemid=" itemid.value อย่างนี้จะได้มั๊ยครับ เพราะที่ดู Find มันทำได้เงื่อนไขเดียว ถ้าจะให้หา2เงื่อนไขพร้อมกันจะทำไดมั๊ยครับ ขอบคุณมากๆครับ
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R05324
orderid เป็นnumber ครับ แต่ itemidเป็น text ครับ ผมลองทำตามอาจารย์บอกแล้วแต่มันขึ้นerr ครับ
rs4.Find "itemid='" & comboItemID.Value & "'" & "billno=" & txtBillNo.Value
ไม่ทราบผมทำผิดหรือเปล่าครับ
rs4.Find "itemid='" & comboItemID.Value & "'" & "billno=" & txtBillNo.Value
ไม่ทราบผมทำผิดหรือเปล่าครับ
3 @R05328
ถ้าอย่างนั้นลอง แบบนี้ค่ะ อาจารย์สุภาพสอนมา
rs.find "orderid=" & orderid.value & " and itemid='" & itemid.value &"'"
ใช่มั้ยค่ะอาจารย์ หรือ
rs.find "orderid=" & orderid.value & " and itemid='" & itemid.text &"'"
ลองดูนะค่ะ
rs.find "orderid=" & orderid.value & " and itemid='" & itemid.value &"'"
ใช่มั้ยค่ะอาจารย์ หรือ
rs.find "orderid=" & orderid.value & " and itemid='" & itemid.text &"'"
ลองดูนะค่ะ
4 @R05336
ผมลองทำแล้วตามคุณฐิติมาภรณ์ บอกแล้วก็ยังไม่ได้ครับ มัน error 3001 ขอรบกวนช่วยดูให้หน่อยครับว่าผิดที่ไหนรึเปล่า ขอบคุณมากๆครับ
rs4.Find "billno=" & txtBillNo.Value & " and itemid='" & comboItemID.Value & "'"
If rs4.EOF = True Then
rs4.Addnew
rs4![BillNo] = txtBillNo.Value
rs4![ItemID] = comboItemID.Value
rs4![Qty] = txtQty.Value
rs4.Update
Else
MsgBox "äÁèÊÒÁÒöà¾ÔèÁÃËÑÊ«éÓ㹺ÔÅà´ÕÂǡѹä´é"
End If
rs4.Find "billno=" & txtBillNo.Value & " and itemid='" & comboItemID.Value & "'"
If rs4.EOF = True Then
rs4.Addnew
rs4![BillNo] = txtBillNo.Value
rs4![ItemID] = comboItemID.Value
rs4![Qty] = txtQty.Value
rs4.Update
Else
MsgBox "äÁèÊÒÁÒöà¾ÔèÁÃËÑÊ«éÓ㹺ÔÅà´ÕÂǡѹä´é"
End If
5 @R05337
ถ้าใช้ txtBillNo. เป็น Text
rs4.Find "billno='" & txtBillNo.Value &"'" & " and itemid=" & comboItemID.Value
ความหมายคือ ถ้า Filed ใดเป็น text จะต้องเขียนลักษณะนี้ "textfiled='" & textfiled &"'"
หรือ ถ้า Filed ใดเป็น number จะต้องเขียนลักษณะนี้ "numberfiled=" & numberfiled
และอีกอย่าง ถ้าจะกำหนด Text จุดน่าจะเป็น .Text นะ (อันนี้ไม่ค่อยแน่ใจเท่าไรนักแต่พอเวลาทำจุดมันจะขึ้นเองเพราะว่ามันจะอ่านค่าที่ตัวTextbox นั้นเองว่าเป็น Text หรือ mumber
อะไรประมาณนี้ค่ะ
rs4.Find "billno='" & txtBillNo.Value &"'" & " and itemid=" & comboItemID.Value
ความหมายคือ ถ้า Filed ใดเป็น text จะต้องเขียนลักษณะนี้ "textfiled='" & textfiled &"'"
หรือ ถ้า Filed ใดเป็น number จะต้องเขียนลักษณะนี้ "numberfiled=" & numberfiled
และอีกอย่าง ถ้าจะกำหนด Text จุดน่าจะเป็น .Text นะ (อันนี้ไม่ค่อยแน่ใจเท่าไรนักแต่พอเวลาทำจุดมันจะขึ้นเองเพราะว่ามันจะอ่านค่าที่ตัวTextbox นั้นเองว่าเป็น Text หรือ mumber
อะไรประมาณนี้ค่ะ
Time: 0.1087s
rs.find "orderid=" & orderid.value & " and itemid=" & itemid.value
ทั้ง orderid itemid เป็น number หรือเปล่าครับ