Вопрос : Combobox VB6 питания

Здравствулте! все, потребность

I мочь подать 2 combobox но в зависимости от первого combobox, оно фильтрует second.
например:

If я выбираю в («ComDateDisponible.text») текст: 10-ое августа 2010 , он фильтрует весь рядок в моем db доступа которое имеет такой же текст в колонке «Période», и питание combobox2 («Des_prod.Text») с текстом в колонке «Description_du_produit» такого же row.

How могу я сделать это для того чтобы угодить?

Thanks для вашего help. class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:

id= " codeSnippet867810 " class= " ' имеющееся дата Тусклое sSQL3 как шнур Тусклое oConnect3 как ADODB.Connection Установите oConnect3 = новое ADODB.Connection Затемните oRST3 как ADODB.Recordset Установите oRST3 = новое ADODB.Recordset sSQL3 = «ОТБОРНОЕ ОПРЕДЕЛЕННОЕ [Période] ОТ [Inventaire] '» oConnect3.Open «Provider=Microsoft.ACE.OLEDB.12.0; » & _ «Данные Source=» & Form4.txt BaseDe.Text "" ComDateDisponible.AddItem oRST3.Open sSQL3, oConnect3 Не сделать до oRST3.EOF ComDateDisponible.AddItem oRST3 («Période») oRST3.MoveNext Петля

class=

Ответ : Combobox VB6 питания

Мы не имеем полное изображение, но я думаю вы потребность что-нибудь подобное?

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:

Sub ComDateDisponible_Click () Тусклое sSQL3 как шнур Тусклое oConnect3 как ADODB.Connection Установите oConnect3 = новое ADODB.Connection Затемните oRST3 как ADODB.Recordset Установите oRST3 = новое ADODB.Recordset sSQL3 = «ОТБОРНОЕ Description_du_produit ОТ [Inventaire] где Periode =» & CDate (ComDateDisponible.Text) oConnect3.Open «Provider=Microsoft.ACE.OLEDB.12.0; » & _ «Данные Source=» & Form4.txt BaseDe.Text Des_prod.Clear oRST3.Open sSQL3, oConnect3 Не сделать до oRST3.EOF Des_prod.AddItem oRST3 («Description_du_produit») oRST3.MoveNext Петля Подводная лодка конца