不允许从数据类型money到varchar的隐性转换，请使用convert函数来运行此查询

Question

我这是在应用层调用的存储过程时，返回这样的错误信息，本是Insert功能，可是我就不明白了，数据库中也没有定义money 类型，可是。
谢谢，请大家帮帮我。

Answer 1

可能有numeric之类的类型紧。你最好先对一下数据库。

Answer 2

var
  str:string;
begin
with ADOConnection1 do
      begin
       try
         begintrans;                                            //启动Transcation
         With ADOStoredProc1 do
           begin
            ADOStoredProc1.Connection:=ADOConnection1;
            ADOStoredProc1.ProcedureName:='P_BaseInfo_insert_1;1';
             Parameters.ParamValues['@Gtin_2']:='06901234567892';
             Parameters.ParamValues['@Gln_3']:='1234567890123';
             Parameters.ParamValues['@Cn_Name_5']:='maleihaoyun';
             Parameters.ParamValues['@En_Name_6']:='hello what are you ';
             Parameters.ParamValues['@Brand_cn_7']:='dfdfdf';
             Parameters.ParamValues['@brand_en_8']:='2';
             Parameters.ParamValues['@Short_dscrpt_cn_9']:='2';
             Parameters.ParamValues['@Short_dscrpt_en_10']:='2';
             Parameters.ParamValues['@keyWord_cn_11']:='2';
             Parameters.ParamValues['@keyWord_en_12']:='2';
             Parameters.ParamValues['@Origin_13']:='1';
             Parameters.ParamValues['@Specification_14']:='2';
             Parameters.ParamValues['@Tgt_mkt_code_15']:='2';
             Parameters.ParamValues['@et_date_16']:=FormatDatetime('YYYY-MM-DD HH:MM:SS',2000-03-23);
             Parameters.ParamValues['@Valid_date_17']:='2';
             Parameters.ParamValues['@Pkg_code_18']:='UVQ';
             Parameters.ParamValues['@Pkg_length_19']:='2';
             Parameters.ParamValues['@Pkg_Depth_21']:='2';
             Parameters.ParamValues['@pkg_width_20']:='2';
             Parameters.ParamValues['@pkg_Unit_22']:='MGM';
             Prepared;
             adostoredproc1.ExecProc;
    //         Str:=Inttostr(ADOStoredProc1.Parameters.ParamValues['@Info_id_1']);
            end;
            // Raise Exception.Create('提交数据成功，请查实！');
            showmessage('ok');
             committrans;
          Except
          begin
            rollbacktrans;
            Raise Exception.Create('提交数据失败,请查实！');
          end;
        end;
    end;
菜鸟我实在是摸不着头，请各位大虾多多帮忙了