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

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

把当前已打开的文件(如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