在delphi中如何用sql语句查询语句将查询的结果中的一个列值显示在一个edit中?
解决方案 »
- 关于adoquery链接数据库以后数据读存的问题
- 如何获取所有被使用的盘符?
- 急急急急急急急急急。。。。两个edit值的问题 答案适合马上散分
- 画“铁路线”的问题!
- listview读数据库显示问题!!!!!!!!!!
- 高薪聘请熟悉MRPⅡ流程的程序员,可以是兼职!
- 如何调用vb做得active控件
- 刚安装好Delphi7.0,不知其版本的dbGrideh在哪里下载?
- 请问如何才能修改Dbgrid中某一单元格的显示内容?
- 各位大虾,我是个delphi初学者,在编数据报表时碰到以下问题
- 急!急!急!关于DBGrid控件使用的一个小问题
- 选种DBGrid中的某一格,如何让这一格所在的行都呈被选中的状态(变成被选中的那种兰色)
edit.text:=dataset.field[0].asstring;
adoquery1.sql.clear;
adoquery1.sql.add('select * from yourtablename');
adoquery1.open;
adoquery1.recno:=n;//设置纪录号
edit1.text:=adoquery1.fieldbyname('列名').asstring;
edit1.text:=adoquery1.fieldbyname('列名').asstring;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text='VV' then //vv学生登记表名
begin
adotable2.TableName:='VV';
COMBOBOX2.Items.Clear;
ADOTABLE2.Active:=TRUE;
DataSource2.DataSet.First;
while not DataSource2.DataSet.eof do
begin
combobox2.Items.add(DataSource2.DataSet.FindField('xuehao').asstring);
DataSource2.DataSet.Next;
end;
end
else
BEGIN
COMBOBOX2.Items.Clear;
combobox2.Text:='无数据'
END
end;procedure TForm1.ComboBox2Exit(Sender: TObject);
var
x:string;
begin
IF combobox1.Text='VV' then
begin
ADOquery1.close;
ADOquery1.sql.clear;
ADOquery1.sql.add('select JINER from VV WHERE JIEMIAN=combobox2.text');
ADOquery1.execsql;
ADOquery1.open;
x:=adoquery1.DesignerData;
edit1.Text:=x;
end
end;运行时出错:参数COMBOBOX2.Text没有默认值。小妹出学。