100分，不够加帖！

如何从本地路径--打比方是C:\相片--文件夹取出*.jpg文件输出到SQL数据库  
  问题点数：100、回复次数：6Top

1 楼lovingkiss（桃花影落飞神贱，碧海潮生<吹>玉箫 坦白从良 抗拒强奸）回复于 2002-05-15 10:24:39 得分 5

二进制读出来，写入到数据库里面啊；  
   
  好多此类的源程序那；Top

2 楼wangluonanhai（网络男孩）回复于 2002-05-16 15:04:05 得分 0

二进制读出来，写入到数据库里面啊；  
   
  好多此类的源程序那；  
  -------''不懂：（  
  Top

3 楼tony_jian（晕了）回复于 2002-05-16 15:11:41 得分 20

dim   MyByte()   as   byte    
          FileHandle   =   FreeFile  
          If   FileHandle   =   0   Then   FileHandle   =   1  
          Open   "c:\123.gif"   For   Binary   As   FileHandle  
          '取文件的总大小（字节）  
          MyFileSize   =   LOF(FileHandle)  
          ReDim   MyByte(MyFileSize)  
  Top

4 楼tony_jian（晕了）回复于 2002-05-16 15:13:39 得分 0

上面是把图片写入到二进制数组里,然后你只需要在表中定义一个二进制类型的字段就可以写入了.和普通写入一样Top

5 楼kevincomein（白菜）回复于 2002-05-16 15:20:59 得分 40

 
                Dim   mstream   As   ADODB.Stream  
                  Set   mstream   =   New   ADODB.Stream  
                  mstream.Type   =   adTypeBinary  
                  mstream.Open  
                  mstream.Write   newrs.Fields("Portrait").Value  
                  ChangeFileAttrib   App.Path   &   "\tmpImage.gif"  
                  mstream.SaveToFile   App.Path   &   "\tmpImage.gif",       adSaveCreateOverWrite  
                  mstream.Close  
                  Set   mstream   =   NothingTop

6 楼golden24kcn（不甜）回复于 2002-05-16 15:20:59 得分 35

Private   Sub   SaveToDB(RY   As   String)  
  Dim   Rst   As   New   ADODB.Recordset  
  Dim   Mstream   As   New   ADODB.Stream  
  Dim   SQL   As   String  
  Dim   MediaName   As   String  
   
  MediaName   =   Trim$(PicFileName)  
   
   
  Set   Rst   =   New   ADODB.Recordset  
  Rst.CursorLocation   =   adUseClient  
  SQL   =   "select   *   from   ry_manage   where   rybh='"   &   RY   &   "'"  
  Rst.Open   SQL,   Conn,   adOpenStatic,   adLockPessimistic,   adCmdText  
   
      Set   Mstream   =   New   ADODB.Stream  
      Mstream.Type   =   adTypeBinary  
      Mstream.Open  
       
      Mstream.LoadFromFile   PicFileName  
      Rst.Fields("Pic").Value   =   Mstream.Read  
      Rst.Update  
   
  Rst.Close  
  Set   Rst   =   Nothing  
  Set   Mstream   =   Nothing  
   
  End   Sub  
  Top

相关问题

• 二进制
• mstream
• 写入
• filehandle
• ry
• rst
• gif
• dim
• open
• new adodb

• 帖主：wangluonanhai
• lovingkiss
• tony_jian
• kevincomein
• golden24kcn

• Visual Basic类图书
• Visual Basic类源码下载