CAD保存到SQL Server问题，请李洪根兄弟帮忙！

[zhaochengqing]

我用下面两个函数来保存和读取CAD文件，但是有问题！
Public Sub s_ReadFile()//读取
On Error GoTo A1
Dim i As Integer
Dim iStm As ADODB.Stream
Dim cad As AcadApplication
Set iStm = New ADODB.Stream
Set cad = New AcadApplication
With Adodc2.Recordset
.MoveFirst
.MoveLast
If .RecordCount > 0 Then //执行到这里就会报错，“With或对象变量未设置”
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write Adodc2.Recordset.Fields("Position")
.SaveToFile App.Path & "\Drawing1.Dwg"
End With
cad.Documents.Open (App.Path & "\Drawing1.Dwg")
End If
End With
cad.Visible = True
iStm.Close
Exit Sub
A1:
MsgBox Err.Description, vbExclamation
iStm.Close
End Sub



Public Sub s_SvaeFile(FileName As String)//保存
Dim iStm As ADODB.Stream
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary
.Open
.LoadFromFile FileName
End With
With Adodc2.Recordset
.Fields("Position") = iStm.Read
.Update
End With
iStm.Close
End Sub

麻烦帮我看看！我调了很久啦！谢谢！

[lxcc]

把CAD的内容当做BLOB二进制数据!
如何使用 ADO Stream 对象访问和修改 SQL Server BLOB 数据
http://support.microsoft.com/?kbid=258038

[饮水需思源]

你的ADODC2没有与数据库建立连接

[lihonggen0]

VB6向SQL SERVER存入图象:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;258038

VB.NET向SQL SERVER存入图象:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;308042

C#向SQL SERVER存入图象:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;309158

[ygrobin]

在前边加Dim Adodc2 as ADODB.RecordSet
Set Adodc2=New ADODB.Recordset
“With或对象变量未设置”的错误
就是这个原因.