关于数据库连dbmemo的显示的一些问题
怎么样把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;
老是有报错！！
