 |
|
ช่วยด้วยค่าา!!!!! Combobox ไม่จำค่าที่บันทึกเข้าไปใหม่ (vb) |
|
 |
|
|
 |
 |
|
ต้องเช็คที่ตรงไหนก่อนดีคะ ทำไมได้จริงๆน่ะคะ ไม่รู้ว่าต้องแก้ตรงไหนก่อนดี
ลอง Private Sub AutoComplete ดูแล้วน่ะคะ แต่ก็เหมือนเดิม
|
 |
 |
 |
 |
Date :
2011-05-20 11:53:52 |
By :
แค่เด็กตัวเล๊กๆคนนึง |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|

|
 |
 |
 |
 |
Date :
2011-05-20 15:20:49 |
By :
แค่เด็กตัวเล๊กๆคนนึง |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
โทดทีค่ะพิมผิดไม่ได้ค้นหาข้อมูลค่ะ แต่ว่าเลือกข้อมูลจากดรอปดาวลิส ถ้าไม่มีก็สามารถเพิ่มเข้าไปโดยการพิมได้น่ะค่ะ
ตอนนี้เพิ่ม-ลบข้อมูลได้แล้ว ติดแค่ตรงที่ combobox มันไม่ update ข้อมูลตามเวลาที่เราทำการเพิ่มหรือลบอ่ะค่ะ
ไม่รู้จะทำยังไงอ่ะค่ะ มีข้อแนะนำตรงไหนบ้างคะ หนูเพิ่งหัดเขียนนะคะไม่ค่อยรู้เรื่อง
|
 |
 |
 |
 |
Date :
2011-05-20 15:29:18 |
By :
แค่เด็กตัวเล๊กๆคนนึง |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
หลังจาก เพิ่มหรือลบข้อมูลแล้วให้ทำงานชุดคำสั่งใน From Load อีกครั้งครับ โดยก่อนนั้นให้ Clear Item ใน CboCategory ก่อนด้วยนะครับ
|
 |
 |
 |
 |
Date :
2011-05-20 15:49:51 |
By :
kaimuk |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ขอบคุณ คุณ KaimีK มากๆค่ะ
จากที่คุณบอกมาหนูเลยสร้าง private sub ขึ้นมาอีกตัวหนึ่งเพื่อเรียกใช้แททนการโหลดฟอร์มชื่อว่า type
เพราะหนูไม่รู้จะเรียก From Lode ยังไง
แต่ว่า....เนื่องจากในตารางหนูมีบางค่าที่เป็นค่า NULL หนูเลยสร้างเงื่อนไข where ใหม่ปรากฏว่ามัน error เหมือนในรูปอ่ะค่ะ
หนูควรทำยังไงดีคะ แต่ถ้าตัตตรงเงื่อนไข where ออกไปค่าที่ได้มันก็ซ้ำกันอยู่น่ะค่ะ ทั้งๆที่ "DISTINCT" แล้วแท้ๆ
Code (VB.NET)
Private Sub type()
sb = New StringBuilder
sb.Append("SELECT DISTINCT Site_category from Site")
sb.Append(" ORDER BY Site_category ASC ")
sb.Append("WHERE Site_category IS NOT NULL")
connection()
da = New SqlDataAdapter(sb.ToString, conn)
ds = New DataSet
conn.Close()
For i = 0 To da.Fill(ds, "Site") - 1
CboCategory.Properties.Items.Add(ds.Tables("Site").Rows(i)("Site_category").ToString)
Next
End Sub
ERROR ตรง For i = 0 To da.Fill(ds, "Site") - 1 อ่ะคะว่า Incorrect syntax near the keyword 'WHERE'.
หรือว่าหนูเขียนรูปแบบ sql ผิดไปจากที่ใช้ใน vb คะ
|
 |
 |
 |
 |
Date :
2011-05-20 16:43:20 |
By :
แค่เด็กตัวเล๊กๆคนนึง |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ปล. ลืมบอกค่ะว่าอัพรูปลงไม่ได้ ^^ รบกวนผู้รู้ช่วยไขข้อสงสัยให้หนูหน่อยนะคะ ขอบคุณมากๆค่ะ
|
 |
 |
 |
 |
Date :
2011-05-20 16:45:12 |
By :
แค่เด็กตัวเล๊กๆคนนึง |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|

เขียน da.Fill(ds, "Site") ในคำสั่งบรรทัดเดียวกับ For
ผมยังไม่รู้เลยว่าโปรแกรมจะทำงานในรูปแบบไหน
|
 |
 |
 |
 |
Date :
2011-05-20 16:48:01 |
By :
watcharop |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ตอบคุณ หางอึ่ง ค่ะ ก็คือหนูคิวรี่ข้อมูลมารูปแบบที่ได้ก็จะเป็นข้อมูลใน Site_Category อ่ะค่ะ
ในนั้นมันจะมีข้อมูลที่เป็นค่า NULL แล้วก็ค่าเดิมที่มีอยู่ด้วยอ่ะคะ
แต่หากหนูแก้ไขข้อมูลเข้าไปใหม่โดยการเลือกจากของเดิมที่มี
พอมันคิวรี่ข้อมูลที่ได้ออกมาทาง Combobox มันก็ซ้ำกันอีกอ่ะค่ะ
ตอนนี้หนูงงมากเลย ไม่รู้ว่าผิดตรงไหนกัน
นี่คือ code ที่แก้แล้วอ่ะคะ Code (VB.NET)
Private Sub type()
sb = New StringBuilder
sb.Append("SELECT DISTINCT Site_category from Site")
sb.Append(" WHERE Site_category IS NOT NULL")
sb.Append(" ORDER BY Site_category ASC ")
connection()
da = New SqlDataAdapter(sb.ToString, conn)
ds = New DataSet
conn.Close()
For i = 0 To da.Fill(ds, "Site") - 1
CboCategory.Properties.Items.Add(ds.Tables("Site").Rows(i)("Site_category").ToString)
Next
End Sub
เช่น ใน Site_category มีข้อมูลที่เป็นค่า a,b,c พอแก้ไขจาก a เป็น c
ข้อมูลที่ออกมาทาง combobox ก็เป็น a,b,c,c ปามานนี้อ่าค่ะ
หนูเลยไม่เข้าใจว่าหนู DISTINCT แล้วแต่ทำไมมันซ้ำกันอีกอ่ะค่าาา T^T
|
 |
 |
 |
 |
Date :
2011-05-20 17:24:37 |
By :
แค่เด็กตัวเล๊กๆคนนึง |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
เย้ๆๆๆๆๆๆๆๆๆๆๆ
ตอนนี้หนูทำได้แล้วค่า ต้องขอขอบคุณ คุณ Kaimuk และ คุณ หางอึ่ง มากๆเลยนะคะที่จุดประกายความรู้และช่วยชี้แนะหนู
ตอนนี้ทำได้แล้วค่ะ เนื่องมาจากว่าหนูลืม เคลียร์ค่าใน คอมโบบ๊อก แต่กลับไปเซ็ตให้มันเป็นค่าว่างแทนน่ะคะ
ตอนนี้ทำได้แล้วค่ะ ขอบคุณอีกครั้งนะคะ ^___^
|
 |
 |
 |
 |
Date :
2011-05-20 18:12:26 |
By :
แค่เด็กตัวเล๊กๆคนนึง |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
อยากจะถามว่าวิํธีการแก้ไขปัญหา ฟอร์มต่างๆ ที่เราได้ทำการแก้ไขแล้วแต่โปรแกรมยังรันค่าเดิมไม่แก้ไขให้มีวิธีการแก้ไขยัไงค๋ะ โปรแกรม vb Studio 2010 ขอบคุณค๋ะ
|
 |
 |
 |
 |
Date :
2012-12-14 17:19:13 |
By :
onumar |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
vb6 ขอตัวอย่างหน่อยค่ะ
ต้องการให้ข้้อมูลที่เราเพิ่มใหม่ในaccessจากฟอร์มย่อย มาโชว์ใน coombobox ในฟอร์มหลัก
ตอนนี้ที่ทำได้คือ ข้อมูลที่เพิ่มใหม่ลงฐานข้อมูล แต่ไม่โชว์ในcomboboxต้องเพิ่มใหม่ ข้อมูลที่เพิ่มก่อนหน้าจึงจะโชว์
vb6 ขอตัวอย่างหน่อยค่ะ
ต้องการให้ข้้อมูลที่เราเพิ่มใหม่ในaccessจากฟอร์มย่อย มาโชว์ใน coombobox ในฟอร์มหลัก
ตอนนี้ที่ทำได้คือ ข้อมูลที่เพิ่มใหม่ลงฐานข้อมูล แต่ไม่โชว์ในcomboboxต้องเพิ่มใหม่ ข้อมูลที่เพิ่มก่อนหน้าจึงจะโชว์
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
Set RS = New ADODB.Recordset
RS.Open "select * from Table2 where SN = '" & Combo2.Text & "'", cn, adOpenKeyset, adLockOptimistic
If Not RS.EOF Then
Me.Combo1.Text = RS!Device
End If
RS.Close
Set RS = Nothing
End Sub
|
 |
 |
 |
 |
Date :
2014-05-16 14:19:44 |
By :
koy |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|