vb 6.0 + sql combo Óë text ÎÊÌâ

¸÷λ¸ßÊÖÃÇ  Ê×ÏÈлл´ó¼Ò¸øÎÒ½²½âÉϴεÄÁ½¸öÎÊÌâ  ¿É°ïÁËÎÒ´óæÁË¡£Ð¡µÜÓÖ³öÏÖÐÂÎÊÌâÁË£¬Âé·³´ó¼ÒÖ¸½ÌÖ¸½Ì
ÎÒÓà combo µ÷ÓÃtbs_xsxx±íÖÐµÄ name×ֶΣ¬ ÏëÒª  text ÖгöÏÖtbs_xsxx±íÖÐÏàÓ¦µÄ×ֶΠclass ÃèÊöÓÐÎÊÌ⣬Àý×ÓÈçÏ£º
tbs_xsxx
name  class
ÕÅÃ÷  ÈýÄ꼶Îå°à
Àî¿Æ  ÎåÄ꼶ËÄ°à
¡­¡­  ¡­¡­
¡­¡­  ¡­¡­
ÏÖÔÚÔÚform´°ÌåÖУ¬ÓÐcombo1  text1

ÎÒÏëÈà µãcombo1ÖÐµÄ ÕÅÃ÷  ÔÚ text1ÖоͳöÏÖ  ÈýÄ꼶Îå°à
        µãcombo1ÖÐµÄ Àî¿Æ  ÔÚ text1ÖоͳöÏÖ  ÎåÄ꼶ËÄ°à

Çë¸ßÊÖÃÇÖ¸½ÌÖ¸½Ì£¡£¡£¡

---

VB code:

'ÓòéѯÓï¾ä "select class from tbs_xsxx where name='" & trim(combo1.text) & "'"
'ÕÒµ½¶ÔÓ¦µÄ°à¼¶

---

ÒýÓÃ

VB code'ÓòéѯÓï¾ä "select class from tbs_xsxx where name='" & trim(combo1.text) & "'"
'ÕÒµ½¶ÔÓ¦µÄ°à¼¶

ÊÇÔÚcombo1_chickÀïÃæдÕâ¸ö´úÂëÂð£¿
Äܲ»ÄÜÏêϸµã лл£¡£¡ 

ÎҵȵÃÕæÐÁ¿à°¡£¡£¡Ð»Ð»É³·¢£¡£¡

---

slq = ¡°select name  class from...¡±

½¨Á¢¸öcollection¡£
combo¡£add rs£¨0)
col.add rs(1)

combol_click
text = col(combo.listindex + 1)
end sub
¿´µÄ¶®°É¡£
{{----}