下面这段代码有问题?
我用这段代码来保存CAD文件到SQL数据库中去,大家帮我看看!
Public Sub SvaeToDB(FileName As String)
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=bhxt;Data Source=LFDW2K"
Set rs = New ADODB.Recordset
rs.Open "select * from ydwzb", cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile FileName
rs.Fields("Position").Value = mstream.Read
rs.Update
Set mstream = Nothing
rs.Close
cn.Close
End Sub