关于variant..

[liunini]

在执行完一个存储过程后将获得的结果集放入variant，在传到客户端！
请写出variant和结果集相互转换的过程。
解决另开分！决不食言！

[XXSingle]

如果是以open的形式来打开获取结果集，推见：

var myrecord:_Recordset

myrecord:=My_ASProc.RecordSet;

如果是以execproc的形式，获取结果集只是一些参数，
直接给variant的变量付值就行了

[juwuyi]

直接赋值就OK了

var

V1, V2, V3, V4, V5: Variant;
I: Integer;
D: Double;
S: string;
begin
V1 := 1; { integer value }
V2 := 1234.5678; { real value }
V3 := 'Hello world!'; { string value }
V4 := '1000'; { string value }
V5 := V1 + V2 + V4; { real value 2235.5678}
I := V1; { I = 1 (integer value) }
D := V2; { D = 1234.5678 (real value) }
S := V3; { S = 'Hello world!' (string value) }
I := V4; { I = 1000 (integer value) }
S := V5; { S = '2235.5678' (string value) }

end;