[[结贴]数据库insert 错误

dynasty0628

---------------------------
X3 Studio
---------------------------
运行系统初始化的时候发生异常：ExecuteSQL error: 赋予 类型 'nvarchar' 的大小（22612）超过了任意数据类型的最大允许值（8000）。

类型：Exception。
---------------------------
确定   
---------------------------

代码：
var
  lQuery: TQuery;
const
   insSQL = 'Insert into TTEXTMAIL(FRECEIVERID,FTITLE,FCONTENT,FFLAG, FMAILTYPE) values (:ReceiverID, :Title, :Content,0,''HTML'')';
begin
    lQuery:= TQuery.Create(nil);
    try
      lQuery.ConnectionString:= 'DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
      lQuery.CommandText:= insSQL;
      lQuery.Params.ParamByName('ReceiverID').AsString := ReceiverID;
      lQuery.Params.ParamByName('Title').AsString := Title;
      lQuery.Params.ParamByName('Content').AsString := Content;
      lQuery.Execute;
    finally
      lQuery.Free;
    end;
end;

当content长度大于8000就会报错。SQL server 2000数据库，fcontent字段类型为text

dynasty0628

---------------------------
小于8000又报这个错
X3 Studio
---------------------------
运行随便测试的时候发生异常：ExecuteSQL error: 赋予 参数 '@A2' 的大小（7817）超过了最大允许值（4000）。

类型：Exception。
---------------------------
确定   
---------------------------

atiger

楼主，你这样的insert 的SQL语句，直接在数据库上执行看看是否ok

dynasty0628

直接在查询分析器插入没问题

dynasty0628

我今天有事，可能下午或者明天回复

zfang

楼主，打个资源包上来看看吧。另外把你传入的数据也一块发上来。

loworth

友情跟帖
SQLSERVER2000 对于变量VARCHAR最大允许8000字符(汉字算做2个字符)    NVARCHAR最大允许4000字符
如果超过，建议lz采用拼凑字符串的形式而非参数形式

dynasty0628

回6楼：
用不着打包，一个Memo，一个button
button onclick事件
var
  lQuery: TQuery;
begin
    lQuery:= TQuery.Create(nil);
    try
      lQuery.ConnectionString:= 'DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
      lQuery.CommandText:= 'Insert into TTEXTMAIL(FRECEIVERID,FTITLE,FCONTENT,FFLAG, FMAILTYPE) values (''ReceiverID'', ''Title'' , Memo.text,0,''HTML'')';
      lQuery.Execute;
    finally
      lQuery.Free;
    end;
end;


SQL 生成表：
create table TTEXTMAIL
(
   FID int not null identity(1,1) primary key,
   FRECEIVERID CHAR(32)  not null,
   FTITLE CHAR(100),
   FCONTENT TEXT,
   FFLAG int,
   FMAILTYPE varchar(4)
)

dynasty0628

谢谢7楼的回复。关键是我没用varchar或者nvarchar格式，用的text

zfang

按你的说法，我在sql2000下作了测试，没问题。
procedure TMainForm.Button1Click(Sender: TObject);
var
  i : Integer;
  lStrings : TStringList;
begin
  lStrings := TStringList.Create;
  try
    Memo1.Clear;
    for i := 0 to 8009 do
      lStrings.Add(SysUtils.IntToStr(i));

    Memo1.Lines.AddStrings(lStrings);
  finally
    lStrings.Free;
  end;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  Query1.CommandText:= ' Insert into TTEXTMAIL(FRECEIVERID,FTITLE,FCONTENT,FFLAG, '
                     + ' FMAILTYPE) values (''ReceiverID'', ''Title'' , '
                     + ' '''+Memo1.text+''' ,0,''HTML'')';
  Query1.Execute;
end;

结果图