关于数据库连dbmemo的显示的一些问题

wslwg009 发布于 2007-04-16 16:16， 1012 次点击

怎么样把sql语句查找到的内容，添加到dbmemo1.text中
具体代码如下
procedure TForm1.Button1Click(Sender: TObject);
const
C_SQL = 'select neirong from aa where tihao="1" ';
begin
with form1.ADOQuery1 do
ADOQuery1.Active:=true;
dbmemo1.Text:=c_sql;
dbmemo1.Font.Size:=10;
end;

老是有报错！！

2 回复

sgliuxiu2007-04-16 17:07

如果要求助，将代码和出错内容都帖上来

nongen2007-04-16 20:18

with form1.ADOQuery1 do
ADOQuery1.Active:=true;
dbmemo1.Text:=c_sql;
dbmemo1.Font.Size:=10;
***************
with XXX do
begin
//代码
end;