数学建模社区-数学中国

标题: 在 C++Builder 中，如何自定义属性 [properties] ? [打印本页]

---

作者: 韩冰    时间: 2005-1-26 12:32
标题: 在 C++Builder 中，如何自定义属性 [properties] ?
[摘自 水木清华站]

# E1 d' X8 g2 G        
对于SQL中的TEXT、IMAGE、MEMO字段的存取，可以采用下列程序：
BLOB字段的读取：
0 j, [9 I  ^0 c2 c, A8 g TBlobSTream* TemplateStream;
char* TempPlatePtr;              

# l+ N, l/ h! J TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
                        ("SearchTem"),bmReadWrite);
2 F; r0 u1 n1 l0 T TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Read(TemplatePtr, TemplateStream->Size);

) M) u" y5 K) \" s7 NBLOB字段的写入：
TBlobSTream* TemplateStream;
  A8 w' K3 j6 S char* TempPlatePtr;              

+ g$ F& I" W# _ TemplateStream=new   TBlobStream((TBlobField*)WebQuery->FieldByName
8 C$ t0 F/ [' ^- D  @7 \' @& X                        ("SearchTem"),bmReadWrite);
# e, N$ ]7 d- B' x TemplatePtr= new char[TemplateStream->Size];
TemplateStream->Write(TemplatePtr, TemplateStream->Size);

________________________________________________________________
+ F  J; J3 ~7 i补充:
获得字段的大小用函数datalength

SQL Server端要作一点设置:
/ K" e5 K7 T+ h, _5 ~9 w8 j% XBy default, WRITETEXT is a nonlogged operation. This means that  
text or image data is not logged when it is written into the database.  
8 A) j) X  C8 mTo use WRITETEXT in its default, nonlogged state,  
6 |- U: S( M* L& u: ^//注意!!
; T7 J) B7 D3 pthe system administrator must use the sp_dboption system stored  
procedure to set select into/bulkcopy,  
7 T& F7 c' Z% Q$ H6 g" V' y//
' T  s' k0 E# ]# Wwhich allows nonlogged data to be inserted.

做了试验,直接写SQL语句好象不行.
____________________________________________________________________
3 P1 d. N3 s, c* j0 X        一些注意事项和一个例子
! U' q9 \! _% l) {* C/ G; @在写入时:
(1)如果使用的是TTable,则要将其ReadOnly属性先置为false,然后调用Edit函数;
, Y' P  H! B2 m, S(2)如果使用的是TQuery,则要将其RequestLive属性先置为true,然后调用Edit函数;
7 [3 y" e# L. L( q" a1 A使得TTable(TQuery)是可写的.

下面是一个使用TQuery往content表(主键file_id)中插入一条记录的例子,
script为一个BLOB字段:
   TBlobStream *pScriptStream;
  //插入一条记录
9 N) ~) [/ U$ q% @' [        strSQL1="insert  into  content(file_id,script,key_image) values('";
# @& G( i; f- ^3 R. L1 E3 M$ y        strSQL1=strSQL1+m_szFileID+"',null,null)";
        dmStoryEditor->qryExec->SQL->Clear();
        dmStoryEditor->qryExec->SQL->Add(strSQL1);
. w7 _7 K' s! ?- J6 P$ P4 U/ h: P        dmStoryEditor->qryExec->ExecSQL();
' U$ C# \2 B) s; Y  l; l        dmStoryEditor->qryExec->Close();
4 m0 y+ g% K8 y/ p; F# _  //整理要写入的Blob数据   
        LockMemories(NewsScript);
  l& v; J4 v% o        NewsScript.GetEdition(NewsScript.m_ScriptHead.byteEditionNum);
7 m( ?1 k& ?' R6 n4 X+ ]8 |        NewsScript.m_pScript=(BYTE *)GlobalLock(NewsScript.m_hScript);
& T1 a: G" m7 z8 L9 Q+ m7 j9 c0 |6 ?3 K7 A        if(NewsScript.m_pScript!=NULL)
        {
) _( V8 {2 @% }- E' l7 G/ i. P, A! U   //再将刚插入的记录读出来,使该Query与该条记录关联
        strSQL1="select  file_id,script  from  content  where  file_id='"+
' U. r$ J* M; d2 \  j8 d  K                m_szFileID+"'";
   //允许该Query写
            dmStoryEditor->qryExec->RequestLive=true;
            dmStoryEditor->qryExec->SQL->Clear();
, }8 a; m3 x, d. _- \            dmStoryEditor->qryExec->SQL->Add(strSQL1);
2 j& Y3 R1 B' v9 Q& {7 l  `            dmStoryEditor->qryExec->Open();
2 h) F2 t  q6 y! h            dmStoryEditor->qryExec->First();
   //将该Query置为可写
) B7 ]* i  j" a0 b1 J            dmStoryEditor->qryExec->Edit();
            pScriptStream=new   TBlobStream((TBlobField*)dmStoryEditor->
                                qryExec->FieldByName("script"),bmReadWrite);
            pScriptStream->Write(NewsScript.m_pScript,  
                                        NewsScript.m_lScriptRealSize);
7 d' C, b# [  L  ?$ z, [            dmStoryEditor->qryExec-&gtost();
" I: [' {" O: J  S( q            dmStoryEditor->qryExec->RequestLive=false;
            delete pScriptStream;
       }
7 n# S1 o; I1 z& [, F+ \$ B       GlobalUnlock(NewsScript.m_hScript);
       UnLockMemories(NewsScript);

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5