将BDE参数中的BLOB SIZE改成足够大。
解决方案 »
- ACCESS查询如何限制只显示列值大的一列?
- 在线等待 求救高手 Tidtcpserver 中 onexcute中的问题
- 怎样截获操作系统的打印消息?急急急
- 客户机如何从服务器的500个文件中自动更新
- 把word和excel文件内容传到网站上供浏览
- 请问:如何根据QUERY的查询结果生成QReport报表。 ----------急啊!!!!!!!!!!!!!!!!!!
- 请来讨论一下Midas的中间层构架问题。
- 我要在某一程序中动态生成一菜单调用某一应用程序,如何在菜单上添加这应用程序的图标
- report machine 字段内容很长,一页打印不完,如何在新的一页接者打印
- <<<<<<一个有精选的笑话,100分,征求大家对delphi使用sql的心得。
- DCOMConnection的"没有注册类别"问题
- CUSTEM页面设置害了我----QuickReport 3.0.7 的大BUG: WIN2000中可以打印而WIN98中不能打印,怎么办?
http://www.csdn.net/expert/topic/220/220687.shtm
UserName, SetPassWord: String): Boolean;
var
ParamList : TStringList;
begin
Result := False;
ParamList := TStringList.Create;
try
ParamList.Clear;
ParamList.Add('SERVER NAME=' + ServerName);
ParamList.Add('Blob Size=2000'); //设置BLOB的大小
ParamList.Add('Blobs To Cache=2000'); //设置BLOB的大小
ParamList.Add('Database NAME=' + DataBaseName);
ParamList.Add('USER NAME=' + UserName);
ParamList.Add('PASSWORD=' + SetPassWord);
if Session.IsAlias(AliasName) then
begin
Session.ModifyAlias(AliasName,ParamList);
end
else
begin
Session.AddAlias(AliasName,'MSSQL',ParamList); //换成msaccess
end;
Session.SaveConfigFile;
except
ParamList.free;
Exit;
end;
ParamList.free;
Result:=True;
end;