پر کردن combobox با query در دلفی 2005

[sara_she]

سلام

من یک query دارم که یک سری رکورد رو از بانک استخراج می کنه که شامل رکورد های تکراری هم می شه. حالا می خوام combobox رو با اطلاعات یک فیلد خاص از این query پر کنم . این کار رو با یک حلقه for انجام می دم و درست انجام می شه ولی مشکل اینجاست که نمی خوام combobox حاوی اطلاعات تکراری باشه یعنی فیلدهای تکراری از query فقط یکبار تو combobox قرار بگیرند این کار رو چطور می تونم انجام بدم؟

ممنون از همکاریتون

[Mah6447]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[sara_she]

ممنون از توجهتون من کد رو به صورت زیر نوشتم

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

و با این کد همونطور که قبلا گفتم کار می کنه یعنی فیلدهای تکراری رو هم تو comboboxوارد می کنه طبق گفته شما کد رو به صورت زیر نوشتم ولی هنوز درست نشده

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

مشکل کجاست؟

[mojtaba-design]

سلام دوست عزيز اين كه كاري نداره
تو دستورات SQL كوئري اين رو اضافه كن :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

راستي اين Distinct كارش اينه كه موارد اضافي رو حذف ميكنه .

[Mah6447]

از کد زیر استفاده کنید . تست کردم جواب داد . موفق باشید .

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[sara_she]

سلام
ممنون از توجهتون

در جواب آقا مجتبی باید بگم من query رو همین جوری لازم دارم با تکرار چون می خوام تکرارها توی دیتا گرید نمایش داده بشه پس نمی تونم از distinct استفاده کنم

اما طبق گفته شما کد رو نوشتم

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

ولی باز درست نشد

با while هم درست نشد:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[sara_she]

متوجه شدم مشکل کجاست من کد رو به صورت زیر می نوشتم:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

و باید به صورت زیر باشه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

یعنی علامت ' رو در کد if Not ComboBox2.Items.IndexOf(name)>-1 Then نباید بذاریم

البته اگه nameاز نوع integerباشه باید بنویسیم:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[ht2015]

يك كدساده براي پر كردن Combo box در دلفي :

dm.Adoq1.Close;
dm.Adoq1.SQL.Clear;
dm.Adoq1.SQL.Add('select distinct(name_ph) from type_phone');
dm.Adoq1.Open;
for I := 1 to dm.Adoq1.RecordCount do
begin
dm.Adoq1.RecNo:=i;
ComboBox1.Items.Add(dm.Adoq1.FieldByName('name_ph' ).AsString);
end;