DELPHI中的combobox显示数据库表中字段的请求,该如何处理
DELPHI中的combobox显示数据库表中字段的请求
我有一程序,我在数据库中新加了一张表FLCP 有三个字段 分别为 LPCODE ,LPNAME,LPBEIZHU
在程序应用界面中已实现了对表FLCP的数据录入等基本功能,现在是想在某一窗体中增加一个combobox1下拉列表控件,在打开窗体时,动态显示出表FLCP中的字段LPNAME的数据,我看了网上有好多例子,不过不太明白,因为我是新手,combobox1.items.add('字段名称');
这种方式实在是看不懂,怎么让combobox1从数据表FLCP中显示LPNAME字段内容,所以在这里详细说明情况问题,请高手指点,给出完整代码来实现,还有是否要增加什么控件,比如adoquery1这种,那是否有相关属性要设置什么的,总之,请求大家实现指点的时候,尽量完整,增加什么控件,如何设置对应属性,等
在此拜谢,我对程序一点不通,只会复制和粘贴
------解决方案--------------------
在设计期设置连接:
方法1.双击adoquery1的connectionstring属性,在弹出对话框中点Build
在弹出的新对话框中,根据你的数据库类型,设置它的连接
方法2.或者用一个ADOConnection,设置好ADOConnection的connectionstring属性
然后选择adoquery1的connection属性为ADOConnection
------解决方案--------------------
1、连接数据库
2、创建tblList
var tblList :TStringList;
tblList:=TStringList.Create;
3、DataModule2.ADOCon.GetTableNames(tblList);
Combobox1.Items:=tblList;
------解决方案--------------------
4、读取字段名
MyList:=TStringList.Create;
SQL:='select * From '+Combobox1.text;
DataModule2.ADOQuery1.Active:=False;
DataModule2.ADOQuery1.SQL.Text:=SQL;
DataModule2.ADOQuery1.ExecSQL;
DataModule2.ADOQuery1.GetFieldNames(MyList);
DataModule2.ADOQuery1.Open;
DBGrid1.DataSource:=DataModule2.DataSource1;
combobox3.Items:=MyList;
MyList.Free;
我有一程序,我在数据库中新加了一张表FLCP 有三个字段 分别为 LPCODE ,LPNAME,LPBEIZHU
在程序应用界面中已实现了对表FLCP的数据录入等基本功能,现在是想在某一窗体中增加一个combobox1下拉列表控件,在打开窗体时,动态显示出表FLCP中的字段LPNAME的数据,我看了网上有好多例子,不过不太明白,因为我是新手,combobox1.items.add('字段名称');
这种方式实在是看不懂,怎么让combobox1从数据表FLCP中显示LPNAME字段内容,所以在这里详细说明情况问题,请高手指点,给出完整代码来实现,还有是否要增加什么控件,比如adoquery1这种,那是否有相关属性要设置什么的,总之,请求大家实现指点的时候,尽量完整,增加什么控件,如何设置对应属性,等
在此拜谢,我对程序一点不通,只会复制和粘贴
------解决方案--------------------
在设计期设置连接:
方法1.双击adoquery1的connectionstring属性,在弹出对话框中点Build
在弹出的新对话框中,根据你的数据库类型,设置它的连接
方法2.或者用一个ADOConnection,设置好ADOConnection的connectionstring属性
然后选择adoquery1的connection属性为ADOConnection
------解决方案--------------------
1、连接数据库
2、创建tblList
var tblList :TStringList;
tblList:=TStringList.Create;
3、DataModule2.ADOCon.GetTableNames(tblList);
Combobox1.Items:=tblList;
------解决方案--------------------
4、读取字段名
MyList:=TStringList.Create;
SQL:='select * From '+Combobox1.text;
DataModule2.ADOQuery1.Active:=False;
DataModule2.ADOQuery1.SQL.Text:=SQL;
DataModule2.ADOQuery1.ExecSQL;
DataModule2.ADOQuery1.GetFieldNames(MyList);
DataModule2.ADOQuery1.Open;
DBGrid1.DataSource:=DataModule2.DataSource1;
combobox3.Items:=MyList;
MyList.Free;