|
 |
| |
Search ปุ้มค้นหา ให้มาโชว์ใน Datacombo ต้องทำยังไงครับ |
| |
 |
|
|
 |
 |
|
อธิบายเพิ่มเติมครับ 
|
 |
 |
 |
 |
| Date :
2012-02-14 17:06:43 |
By :
webmaster |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Code
Private Sub cmdsearch_Click()
Dim SearchData As String
SearchData = InputBox("¡ÃسҡÃÍ¡ÃËÑÊ·Õèµéͧ¡Òäé¹ËÒ", "¤é¹ËÒ¢éÍÁÙÅ")
sqlrs = "SELECT Product.Pro_ID, Product.Pro_Name, Pro_Type.Pro_band_ID, Pro_Band.Pro_band_Name, Product.Pro_type_ID, Pro_Type.Pro_type_Name, Product.Pro_Detail, Product.Price " & _
"FROM (Pro_Band INNER JOIN Pro_Type ON Pro_Band.Pro_band_ID = Pro_Type.Pro_band_ID) INNER JOIN Product ON Pro_Type.Pro_type_ID = Product.Pro_type_ID " & _
"Where Pro_ID like'" & SearchData & "%'"
Call OpenRs(sqlrs)
If SearchData = "" Then
Call Cleartxt
ElseIf rs.RecordCount <> 0 Then
txtID.Text = rs.Fields("Pro_ID")
txtName.Text = rs.Fields("Pro_Name")
Combo1.Text = rs.Fields("Pro_band_Name")
Combo2.Text = rs.Fields("Pro_type_Name")
DataCombo1.Text = rs.Fields("Pro_band_ID")
DataCombo1.BoundText = rs.Fields("Pro_band_ID")
DataCombo2.Text = rs.Fields("Pro_type_ID")
DataCombo2.BoundText = rs.Fields("Pro_type_ID")
txtDetail.Text = rs.Fields("Pro_Detail")
txtPrice.Text = rs.Fields("Price")
Call GridShow
Else
MsgBox "äÁ辺¢éÍÁÙÅ·Õè¤é¹ËÒ", vbOKOnly + vbInformation, "á¨é§¡Ò÷ӧҹ"
Cleartxt
Form_Activate
End If
End Sub
ข้อมูลไม่ยอมแสดงในช่อง Datacombo อ่ะครับ
โดย Datacombo 1 คือยี่ห้อ (band) Datacombo 2 คือ ประเภท (type)
โดยที่เวลา Datacombo1 เปลี่ยน Datacombo 2 ก็จะเปลี่ยนตาม *** อันนี้คงไม่้น่าเกี่ยวกับปุ่ม search มั้งครับ
ช่วยแนะนำทีครับ อาจจะใช้คำสั่งไม่ถูก
Code
Run-time error ‘3265’:
Item cannot be found in the collection corresponding to the requested name or ordinal.
ตรงที่มากแดงไว้อ่ะครับ
|
ประวัติการแก้ไข
2012-02-17 02:21:00
| |
|
|
| |
| Date :
2012-02-17 02:20:11 |
By :
Mancry |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 00
|
Quote:
