用Query查出来的结果放到Combobox1.items中,怎么样才可以做到???Query查出来的结果只有一列,把这整个一列的值都放进去!!!帮帮小弟!!急!!
解决方案 »
- delphi下没有类似的MSCOMM控件?
- DbGridEh如何自动加上序号?这个序号纯粹是好看用,没有其它用处。
- delphi中能够实现调用FORM2,并时同关闭Form1
- !!!虚心请教,前卫问题,制作动态POPUP菜单!!!!
- 帮帮忙!你们调试程序时,出错后是怎么把程序关闭的呀?
- 小弟要开发一个工作流,需要html表单的可视化定制,并进行数据库绑定。谁有delphi6下的html可视化定制控件或源代码提供,小弟不胜感激。
- 各位大哥,一个很简单的小问题,只是小弟太笨了,各位大哥,来帮小弟一下啊
- 问个delphi调试的问题..
- 急需要阿,谢谢大家了,帮帮忙吧
- Delphi6.0中怎样使用OpenDialog?(一定给分)
- 用AdoTable怎么实现模糊查找?
- 关于我的记事本
combobox1.items.clear
while not query.eof do
begin
combobox1.items.add(query.fields[0].asstring);
query.next;
end;
adologinname:=TADODataSet.Create(application); adologinname.ConnectionString:=' Provider=SQLOLEDB.1;'+'Persist Security Info=False;User ID='+GetRegInfo(3)+';Password='+GetRegInfo(4)+';'+
'Initial Catalog='+GetRegInfo(2)+';Data Source='+GetRegInfo(1);
adologinname.CommandText:='select * from PassView ';
adologinname.Open;
application.ProcessMessages;
with adologinname do
begin
while (not eof) and (not isempty) do begin
suiComboBox1.Items.Add(FieldValues['用户名']); next;
end;//end while
end;//end with
combobox1.items.clear
while not query.eof do
begin
combobox1.items.add(query.fields[0].asstring);
query.next;
end;
============================
加2000条。想想,也有办法,如果你可以从2000条的combobox中选择一条记录的话。var
TempList:TStringList;begin
//Open your query
combobox1.items.clear;
TempList:=TStringList.Create;while not query.eof do
begin
TempList.add(query.fields[0].asstring);
query.next;
end;ComboBox1.iTEMS.ASSIGN(TempList);
combobox1.ItemIndex:=0;tempList.Free;end;
如果数据量太大可以在dbcombobox的keypress事件加入一个匹配查询,比如回车执行,要看你的字段内容而定
支持
建议把添加的过程写成一个多线程,添加的时候用户还可以干点别的事,这样就感觉不到慢了,相信用户选中一条记录的时间比添加的时间要长的多。严重支持
建议用dbgrid客户好选择些。