您的位置:程序门 -> vb -> 数据库(包含打印,安装,报表)



access 图片更新


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


access 图片更新
发表于:2007-10-03 12:34:59 楼主
  dim   iconcstr   as   string
dim   iconc   as   new   adodb.connection     dim   istm   as   adodb.stream
dim   ire   as   adodb.recordset
iconcstr   =   "provider=microsoft.jet.oledb.4.0;   "   _
                &   "data   source="   &   app.path   &   "\zhdb.mdb;   "  
iconc.open   iconcstr
     
        set   istm   =   new   adodb.stream
        with   istm
                .type   =   adtypebinary       '二进制模式
                .open
                .loadfromfile   pstr   'pstr为图片地址

        end   with

下面的语句该如何写呢??


快速检索

最新资讯
热门点击