怎样将Variant类型的数据存入BLOB字段又如何从数据库的BLOB字段读取数据存入Variant类型的变量中

[Songzhiq]

如何将Variant类型的数据存入BLOB字段又如何从数据库的BLOB字段读取数据存入Variant类型的变量中？

能提供一些源码吗？十分感谢！！

[COKING]

帖出你存的代码！

[Songzhiq]

我的Variant变量中保存的是二进制流，我不知道如何存入数据库中，又如何从数据库的BLOB类型的字段中
读取数据至Variant变量中。

有高手知道吗？急！！

[lihongxing2002]

up,把你的代码贴出来啊

[robbyzi]

我这有一篇收集的文章你可以看看：
我想把一些文件存进数据库中，这些文件的类型也不统一，有图片，有文档，也有其他格式的，请问数据库的表中，存取这些文件的字段应该选取什么数据类型呀？是sql_variant吗？另外应该怎么在程序中用代码存取呢

下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
TBlobStream *pScriptStream;
//插入一条记录
strSQL1="insert into content(file_id,script,key_image) values('";
strSQL1=strSQL1+m_szFileID+"',null,null)";
dmStoryEditor->qryExec->SQL->Clear();
dmStoryEditor->qryExec->SQL->Add(strSQL1);
dmStoryEditor->qryExec->ExecSQL();
dmStoryEditor->qryExec->Close();
//整理要写入的Blob数据
LockMemories(NewsScript);
NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
if(NewsScript.m_pScript!=NULL)
{
//再将刚插入的记录读出来,使该Query与该条记录关联
strSQL1="select file_id,script from content where file_id='"+
m_szFileID+"'";
//允许该Query写
dmStoryEditor->qryExec->RequestLive=true;
dmStoryEditor->qryExec->SQL->Clear();
dmStoryEditor->qryExec->SQL->Add(strSQL1);
dmStoryEditor->qryExec->Open();
dmStoryEditor->qryExec->First();
//将该Query置为可写
dmStoryEditor->qryExec->Edit();
pScriptStream=new TBlobStream((TBlobField*)dmStoryEditor->
qryExec->FieldByName("script"),bmReadWrite);
pScriptStream->Write(NewsScript.m_pScript,
NewsScript.m_lScriptRealSize);
dmStoryEditor->qryExec->Post();
dmStoryEditor->qryExec->RequestLive=false;
delete pScriptStream;
}
GlobalUnlock(NewsScript.m_hScript);
UnLockMemories(NewsScript);


sqlserver用image数据类型就可以地