这个自定义过程错在哪里,一直都想代码忧化

Question

procedure Tgxs.datashow(aq:Tadoquery;str:string)  ;
begin
  aq.close;
  aq.clear
  aq.sql.add('str');
  aq.open ;
end;
一直都想代码忧化,但由于对DELPHI语法不了解,所以经常会出错
FunAdo(ByVal ado As Adodc, ByVal Str As String) '构造连接ADO的连接执行函数
On Error GoTo err1           '执行过程中如果发生错误转向错误处理
    With ado               '使用With结构
        .Visible = False       'Ado不可见
        .ConnectionString = cn.ConnectionString    '设置Ado的连接字符串
        .CommandType = adCmdText    '设置Ado的命令类型
        .RecordSource = Str     '设置Ado的记录源
        .Refresh        '刷新Ado的记录集
    End With        '结束With结构
这个改为delphi应该怎样写呢.

Answer 1

aq.sql.add(str);
str两边不要加单引号,加了单引号就不是变量了,就是说你传入的sql语句是"str"
显然执行这个SQL肯定会报错