在Delphi中的下拉框怎么连数据库阿
ADOConnection1,AdoQuery1,button1,combobox1 各一个。
比如说点一下button1，将数据库内容填入到combobox1中
1、AdoConnection1的ConnectionString设置一下
2、AdoQuery1的Connection属性，选择AdoConnection1
3、procedure TForm1.Button1Click(Sender: TObject);
begin
with AdoQuery1 do
begin
close;
sql.clear;
sql.add('select distinct a from table');
open;
combobox1.items.clear;
while not eof do
begin
combobox1.items.add(fieldbyname('a').asstring);
next;
end;
end;
end;
---------------------------------------
Fieldbyname的用法
(teacherDM.loginAdoQuery.fieldByName('password').asString<>Trim(passwordEdt.Text))
---
query1.append;
query1.fieldbyname('字段1').value := xxx;
query1.fieldbyname('字段2').asstring := xxxx;
query1.fieldbyname('字段3').asinteger := xx;
...
query1.post;
ADOConnection1,AdoQuery1,button1,combobox1 各一个。
比如说点一下button1，将数据库内容填入到combobox1中
1、AdoConnection1的ConnectionString设置一下
2、AdoQuery1的Connection属性，选择AdoConnection1
3、procedure TForm1.Button1Click(Sender: TObject);
begin
with AdoQuery1 do
begin
close;
sql.clear;
sql.add('select distinct a from table');
open;
combobox1.items.clear;
while not eof do
begin
combobox1.items.add(fieldbyname('a').asstring);
next;
end;
end;
end;
---------------------------------------
Fieldbyname的用法
(teacherDM.loginAdoQuery.fieldByName('password').asString<>Trim(passwordEdt.Text))
---
query1.append;
query1.fieldbyname('字段1').value := xxx;
query1.fieldbyname('字段2').asstring := xxxx;
query1.fieldbyname('字段3').asinteger := xx;
...
query1.post;
