问题还是没有解决，能不能只用edit实现数据库查询自动完成

Question

在edit中输入部分内容，就开始在access数据库中查询 
数据表：名称 
列名1：名字 
列名2：小区 比如输入“张”，就下拉提示出所有姓“张”的名字和所属小区，选择就自动完成，就像IE的地址输入一样 
类似的列子http://www.2ccc.com/article.asp?articleid=792 刚学编程，最好能帮忙弄个实例代码，万分感谢

Answer 1

用个memo或是什么的／
在onchange事件中执行模糊询，在memo里显示出所有查询结果．若查询结果为空则memo.Visible := false 
else 为true

Answer 2

用个memo或是什么的／
在onchange事件中执行模糊询，在memo里显示出所有查询结果．若查询结果为空则memo.Visible := false 
else 为true

Answer 3

用combobox或许更好实现一些。

Answer 4

lovelymelon老大，能帮忙给个用combobox的查询access数据库的范例吗？ 感谢了，急于解决问题，不可能什么都慢慢学！

Answer 5

你看看,大家对你的解答,你觉得还不够给你足够的信息吗,循环数据写到combox的代码我不是已经给你了吗,你只要把它放到你的代码中即可,难到这一点也不能去试试吗

Answer 6

试了搞不定
我原来的代码，是在edit中搜索的，现在要改了在combox搜索，再提示到combox下拉。。
我现在，只会用一堆代码+一堆代码改造东西嘿嘿，还不会创造东西，别见笑。

Answer 7

bdmh老大，明白你的道理，实践中出真知，可你让一个刚学会组装电脑的人去学习如何制造CPU，不是他不想，是要学的东西太多了，而他只想组装一下达到目的即可！

Answer 8

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  s,s1:string;
begin
  self.ComboBox1.Items.Clear;
  s:=self.ComboBox1.Text;
  self.ADOQuery5.Close;
  self.ADOQuery5.Connection:=self.ADOConnection1;
  Self.ADOQuery5.SQL.Clear;
  self.ADOQuery5.SQL.Add('select bianhao from Tzhk_czp where bianhao like :s1');
  self.ADOQuery5.Parameters.ParamByName('s1').Value:=s+'%';
  self.ADOQuery5.Open;
  while not Self.ADOQuery5.Eof do
  begin
    s1:=self.ADOQuery5.FieldByname('bianhao').AsString;
    self.ComboBox1.Items.Add(s1);
    self.ADOQuery5.Next;
  end;
  self.ComboBox1.SelStart:=Length(s)+1;
  self.ComboBox1.SelLength:=0;
  SendMessage(self.ComboBox1.Handle,CB_SHOWDROPDOWN,Integer(True),0);
end;