delphi选择数据表问题?如题?

1.新建工程2.在窗体中添加TADOConnection组件,并设置其ConnectionString属性,以便连接数据库。3.添加TADOTable组件,并设置其Con... 1.新建工程
2.在窗体中添加TADOConnection组件,并设置其ConnectionString属性,以便连接数据库。
3.添加TADOTable组件, 并设置其Connection属性为ADOConnection1.从TableName属性中选择数据表。
4.添加TDataSource组件,设置其DataSet属性为ADOTable1.
5.添加DataGrid组件,设置DataSource属性为DataSource
6.设置ADOTable1的Active属性为true.
7.运行程序测试 如果第三步的TableName换成dbcombobox和button(即:dbcombobox里是ACCESS数据库所有数据表,随便选择一个后点击button后DBGrid显示该表的数据)。如何实现。
展开
 我来答
匿名用户
2013-10-12
展开全部
procedure TForm2.FormCreate(Sender: TObject);
begin
with qry1 do
begin
close;
SQL.Text:='select MSysObjects.Name as name from MsysObjects';
Open;
if RecordCount>0 then
begin
First;
DisableControls;
while not eof do
begin
dbcbb1.Items.Add(fieldByname('name').AsString);
Next;
end;
EnableControls;
end;
end;
end;procedure TForm2.btn1Click(Sender: TObject);
begin
tbl1.Active:=False;
tbl1.TableName:=Trim(dbcbb1.Text);
tbl1.Active:=True;
dbgrd1.DataSource:=ds1;
end; 记得接受哦 浪费了我很长时间的呢!!!
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同... 点击进入详情页
本回答由网易云信提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式