Question

delphi下拉列表显示sql server查询一列的全部数据

delphi下拉列表显示sql server查询一列的全部数据问题如图，delphi小白。求写下代码。combobox需不需要设置下属性什么的还是代码错了，有没有大神愿意回答问题的。可以留微信。解答问题我给钱

Answer 1

设置 combobox.Style := csDropDownList;就额可以了. 用下边这个过程,你可以 SQLSTR:='select distinct career from your_table ' select :='career'; combobox,就是你想存放的下拉列表框. procedure incombobox(combobox: TComboBox; sqlstr, select: string); begin with DM do begin AdoQ.Close; ADOQ.SQL.Clear; ADOQ.SQL.Add(sqlstr); ADOQ.Open; adoq.First; combobox.Items.Clear; while not ADOQ.Eof do begin combobox.Items.Add(ADOQ.fieldbyname(select).AsString); adoq.Next; end; ADOQ.Close; combobox.Style := csDropDownList; combobox.ItemIndex := 0; end; end;

追问

设置了。还是报这个错