设置一个button控件可以从ACCESS数据库中选择数据表,并存放在listbox中,然后可以通过选择LISTBOX中的一个表格,显示在Groupbox中~~
请写详细点~~不太了解delphi的
delphi使用button读取ACCESS数据表
答案:3 悬赏:70 手机版
解决时间 2021-04-10 20:12
- 提问者网友:雨不眠的下
- 2021-04-10 09:06
最佳答案
- 五星知识达人网友:刀戟声无边
- 2021-04-10 10:43
上边两个兄弟说的都对,建议你先学习基础,有了一定的基础功底,再学习数据库和网络。
你的要求就是下面的combobox和listbox的差别,问题都不大,都是TWinControl
SQLSTR:select name from sysobjects where xtype='u'
select:name
我给你一个我自己写的incombobox的过程,你需要的是表名,这个过程只需要控制sqlstr,就可以向combobox传入需要传入的数据。、
(
combobox,存放查询数据的容器。
SQLSTR,传入的SQL查询语句。
SELECT,需要存放在COMBOBOX的字段。
)
procedure TDM.incombobox(combobox: TComboBox; sqlstr, select: string);
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;
你的要求就是下面的combobox和listbox的差别,问题都不大,都是TWinControl
SQLSTR:select name from sysobjects where xtype='u'
select:name
我给你一个我自己写的incombobox的过程,你需要的是表名,这个过程只需要控制sqlstr,就可以向combobox传入需要传入的数据。、
(
combobox,存放查询数据的容器。
SQLSTR,传入的SQL查询语句。
SELECT,需要存放在COMBOBOX的字段。
)
procedure TDM.incombobox(combobox: TComboBox; sqlstr, select: string);
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;
全部回答
- 1楼网友:往事埋风中
- 2021-04-10 12:00
with query do
begin
close;
sql.clear;
connectionstring:='连接access字符串';
sql.add('select * from b');
open;
end;
ds3.dataset:=qry6;
dbgrd1.datasource:=ds3;
这里需要创建一个query;datasouse;dbgrid三个控件,自己试试吧;
- 2楼网友:一把行者刀
- 2021-04-10 11:25
数据连接会吧,采用ADO(在DBGO里)连接。
加一个数据连接,用con1.GetTableNames(listbox.items,false)可以获得全部的数据表;
其它的自己做吧
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯