增加adoquery或者adotable控件 with adoquery1 do begin connection:=adoconneciton1; close; sql.clear; sql.text:='select * from userlist'; open; end; //filed1、field2改成你userlist表中需要取出的字段名称 edit1.text:=adoquery1.fieldByName('field1')+adoquery1.fieldByName('field2'); ---------------------------------- 挣分真不容易,5分得回n贴
下拉框用comboBox,此贴最后回一次 ----------------------------------- 增加adoquery或者adotable控件 with adoquery1 do begin connection:=adoconneciton1; close; sql.clear; sql.text:='select * from userlist'; open; end; adoquery1.first; while not adoquery1.eof do begin comboBox1.items.add(adoquery1.fieldByName('user').asstring); adoquery1.next; end;
连接数据库可以用ado,可以翻翻以前的帖子,成堆成堆的
用户信息的读入可以增加一个adoquery
然后取出用户的相关信息字段
edit1.text:=adoquery1.fieldByName('field1')+......;
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MDB_Demo.mdb;Persist Security Info=False
测试连接成功了
如何将表:userlist中的users的全部信息读取到edit1.txt中
设:userlist表的中users中有用户名: aaa,bbb,ccc,demo
连接成功后,点击下拉列表框显示:
aaa
bbb
ccc
demo
with adoquery1 do
begin
connection:=adoconneciton1;
close;
sql.clear;
sql.text:='select * from userlist';
open;
end;
//filed1、field2改成你userlist表中需要取出的字段名称
edit1.text:=adoquery1.fieldByName('field1')+adoquery1.fieldByName('field2');
----------------------------------
挣分真不容易,5分得回n贴
-----------------------------------
增加adoquery或者adotable控件
with adoquery1 do
begin
connection:=adoconneciton1;
close;
sql.clear;
sql.text:='select * from userlist';
open;
end; adoquery1.first;
while not adoquery1.eof do
begin
comboBox1.items.add(adoquery1.fieldByName('user').asstring);
adoquery1.next;
end;