将一个XML写入到数据库中?该如何解决

将一个XML写入到数据库中?
<?xml   version= "1.0 "   encoding= "GB2312 "   ?>  
-   <报警记录>
-   <站点   名= "瑞昕 ">
-   <报警>
    <报警日期> 07-04-13 </报警日期>  
    <报警时间> 9:30:01 </报警时间>  
    <报警类别> 预警 </报警类别>  
    <报警风速> 4.1 </报警风速>  
    <报警风向   />  
    </报警>
-   <报警>
    <报警日期> 07-04-13 </报警日期>  
    <报警时间> 9:30:02 </报警时间>  
    <报警类别> 报警 </报警类别>  
    <报警风速> 3.9 </报警风速>  
    <报警风向   />  
    </报警>
-   <报警>
    <报警日期> 07-04-13 </报警日期>  
    <报警时间> 9:30:43 </报警时间>  
    <报警类别> 预警 </报警类别>  
    <报警风速> 2.5 </报警风速>  
    <报警风向   />  
    </报警>
-   <报警>
    <报警日期> 07-04-13 </报警日期>  
    <报警时间> 9:30:45 </报警时间>  
    <报警类别> 报警 </报警类别>  
    <报警风速> 4.6 </报警风速>  
    <报警风向   />  
    </报警>
-   <报警>
    <报警日期> 07-04-13 </报警日期>  
    <报警时间> 9:30:50 </报警时间>  
    <报警类别> 报警 </报警类别>  
    <报警风速> 3.6 </报警风速>  
    <报警风向   />  
    </报警>
-   <报警>
    <报警日期> 07-04-13 </报警日期>  
    <报警时间> 9:30:53 </报警时间>  
    <报警类别> 报警 </报警类别>  
    <报警风速> 3.1 </报警风速>  
    <报警风向   />  
    </报警>
    </站点>
    </报警记录>

[解决办法]
直接用读文件方式，把xml文件读到缓冲区
然后作为字符串字段放入库中。。
[解决办法]
要用参数的方式，否则你的SQL语句要超过8000，或者是语法错误，导致不能插入
adoq-> Parameters-> ParamByName( "xml ")-> Value = XMLStr;
[解决办法]
把数据库列的属性设成OLE属性,
ADOQuery1.Append;
TBlobField(adoquery1.FieldByName( 'a ')).LoadFromFile( 'c:\a.bmp ');
adoquery1.Post;