我有一个Sqlserver2000的存储过程:CREATE PROCEDURE Insert_Wait_Check
@Classid Char ( 255 ),
@Ole_memo_Para Image
As
INSERT INTO Ftp_Check_wait(Class_ID, OLE_MEMO )
VALUES (@classid, @Ole_memo_Para)
GO
程序:
function TResourceStore.Ftp_To ():Boolean ;
var
SqlCmd:TAdoStoredProc;
oleValue:Variant;
begin
SqlCmd:=TAdoStoredProc.Create(Nil);
Result:=false;
try
try
with SqlCmd do
begin
ConnectionString:=DB_Conn_Remote;
ProcedureName:='Insert_Wait_Check';
Parameters.AddParameter.Value:=Resource_ID;
Parameters.AddParameter.Value:=oleValue; //这个参数如何赋值才对?
ExecProc;
end;
Result:=true;
Except
on E:Exception do
ShowMessage(E.Message);
end;
finally
FreeAndNil(SqlCmd);
end;
但是现在我想为OLE_memo_Para赋空值?如何处理?
@Classid Char ( 255 ),
@Ole_memo_Para Image
As
INSERT INTO Ftp_Check_wait(Class_ID, OLE_MEMO )
VALUES (@classid, @Ole_memo_Para)
GO
程序:
function TResourceStore.Ftp_To ():Boolean ;
var
SqlCmd:TAdoStoredProc;
oleValue:Variant;
begin
SqlCmd:=TAdoStoredProc.Create(Nil);
Result:=false;
try
try
with SqlCmd do
begin
ConnectionString:=DB_Conn_Remote;
ProcedureName:='Insert_Wait_Check';
Parameters.AddParameter.Value:=Resource_ID;
Parameters.AddParameter.Value:=oleValue; //这个参数如何赋值才对?
ExecProc;
end;
Result:=true;
Except
on E:Exception do
ShowMessage(E.Message);
end;
finally
FreeAndNil(SqlCmd);
end;
但是现在我想为OLE_memo_Para赋空值?如何处理?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货