社区 › VB › [求助]vb怎么样把dwg文件转二进制存放到数据库中

lengku9656 发表于 2009-3-18 01:07:00

[求助]vb怎么样把dwg文件转二进制存放到数据库中

把当前已打开的文件(如thisdrawing1.dwg)转换成二进制数据存放入sql表中(表中字段为image类型),超急！！
谢谢！

lengku9656 发表于 2009-3-18 12:30:00

是vba,不是vb...`~
怎么没人知道吗？急死人了....

laoxie_198 发表于 2009-3-18 17:56:00

你的目的是想将数据存到sql中，便于网络管理吗？那为什么要转成二进制的呢？你用的时候还要转出来，多麻烦。干嘛不直接写到sql中呢？根据坐标、图元类型

lengku9656 发表于 2009-3-18 18:23:00

dwg文件不是我做的，它已经存放在sql里了，我读出来修改后就不知道把它存回去了。。。。
根据坐标、图元。。。我不会哦。。
我用试用以下的方法，但是当图文件已打开时就会出错：“文件已打开”
Sub s_SaveFile()
          Dim iStm   As ADODB.Stream
          Dim iRe   As ADODB.Recordset
          Dim iConcstr   As String
   
          '读取文件到内容
          Set iStm = New ADODB.Stream
          With iStm
                  .Type = adTypeBinary         '二进制模式
                  .Open
                  .LoadFromFile "E:\thisdrawing1.dwg"
          End With
         
   
          '打开保存文件的表
          Set iRe = New ADODB.Recordset
          With iRe
                  .Open "select   *   from   chunks", iConc, 1, 3
                  .AddNew                   '新增一条记录
                  .Fields("photo") = iStm.Read
                  .Update
          End With
         
   
      '完成后关闭对象
          iRe.Close
          iStm.Close
End Sub
   
   
Sub s_ReadFile()
          Dim iStm   As ADODB.Stream
          Dim iRe   As ADODB.Recordset
          '打开表
Set iRe = New ADODB.Recordset
'得到最新添加的纪录
          iRe.Open "select   top   1   *   from   chunks   order   by   id   desc", iConc, adOpenKeyset, adLockReadOnly
          '保存到文件
          Set iStm = New ADODB.Stream
          With iStm
                  .Mode = adModeReadWrite
                  .Type = adTypeBinary
                  .Open
                  .Write iRe("photo")
'这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
                  .SaveToFile App.Path & "\thisdrawing1.dwg"
          End With
         
   
          Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
      '关闭对象
          iRe.Close
          iStm.Close
End Sub

lengku9656 发表于 2009-3-18 18:24:00

有没有一个简单的方法哦。。。。

lengku9656 发表于 2009-3-19 14:12:00

怎么没人知道吗？？郁闷。。。。。

zzyong00 发表于 2009-3-19 16:29:00

将已打开的thisdrawing1复制一份，读取!

查看完整版本: [求助]vb怎么样把dwg文件转二进制存放到数据库中