VB6 combobox 인덱스를 가져 와서 콤보가 다른 필드를 표시 할 때

Question

콤보 상자 ID를 사용하여 SQL 삽입을하고 콤보 필드의 "Name"필드 만 표시해야 필드가 필요합니다. "이드"나는 값을 유지하는 병렬 수집을 선언 할 BTW 여기

Public Sub chamaCombo() 
Dim con As New ADODB.Connection 
Dim rsCombo As New ADODB.recordset 

Dim conString As String 

    constring="Provider=SQLNCLI10;Server=MySv;Database=MyDb;Trusted_Connection=yes" 
con.Open conString 

rsCombo.Open "Select * from tbdClient", con, adOpenDynamic 

Do While rsCombo.EOF <> True 
cmb_client.AddItem rsCombo("Name").Value 
cmb_client.ItemData(cmb_client.NewIndex) = rsCombo("IdClient").Value 

txt_idclient.Text = rsCombo("IdClient").Value 'trying to pass to a txt but its no use 

rsCombo.MoveNext 




Loop 



End Sub 

Answer 1

선택 콤보 상자의 호출에 내 코드 (VB6)의 VB.NET

에 불과 selectedValue처럼

을 삽입 만들려면 SQL ID로 키순으로 표시됩니다. 코드는 다음과 같이 표시 될 수 있습니다.

콤보 상자의 항목을 지우는 것과 동시에 컬렉션을 지우는 것을 잊지 마십시오!