50分求解，ADO 操作sqlserver 2000 image类型字段的问题

Question

参考这个.打开vb6,新建工程。
添加两个按钮,一个image控件
注意:Access中的photo字段类型为OLE对象.
SqlServer中的photo字段类型为Image
.
'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
‘2.5版本以下不支持Stream对象
Dim iConcstr As String
Dim iConc As ADODB.Connection
'保存文件到数据库中
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 App.Path + "\test.jpg"
    End With
    
    '打开保存文件的表
    Set iRe = New ADODB.Recordset
    With iRe
        .Open "select * from img", 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 img 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 & "\test1.jpg"
    End With
    
    Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
    '关闭对象
    iRe.Close
    iStm.Close
End Sub
Private Sub Command1_Click()
Call s_ReadFile
End Sub
Private Sub Command2_Click()
Call s_SaveFile
End Sub
Private Sub Form_Load()
    '数据库连接字符串
    iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
        ";Data Source=F:\csdn_vb\database\保存图片\access图片\img.mdb"
‘下面的语句是连接sqlserver数据库的.
    ‘iConcstr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
‘ "User ID=sa;Password=;Initial Catalog=test;Data Source=yang"
    Set iConc = New ADODB.Connection
    iConc.Open iConcstr
End Sub
Private Sub Form_Unload(Cancel As Integer)
iConc.Close
Set iConc = Nothing
End Sub

Answer 1

Option Explicit
Dim FileName As String
Dim i As Integer
Private Sub cmdSave_Click()
  If Trim(txtFile) = "" Then MsgBox "請選擇上傳文件!", vbExclamation, "系統提示!": Exit Sub
  On Error GoTo err_file
  Dim Jsr As String
  For i = 0 To Listfilename.ListCount - 1
      If Listfilename.Selected(i) = True Then
         Jsr = Jsr & Listfilename.List(i) & ";"
      End If
  Next i
  If Trim(Jsr) = "" Then MsgBox "接收人不能為空!", vbExclamation, "系統提示!": Exit Sub
  Jsr = Left(Jsr, Len(Jsr) - 1)
  Dim cn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim mst As ADODB.Stream
  Me.MousePointer = 11
  Set cn = New ADODB.Connection
  cn.ConnectionString = ConnectString
  cn.Open
  Set rs = New ADODB.Recordset
  rs.Open "select * from tb_file", cn, adOpenStatic, adLockOptimistic
  Set mst = New ADODB.Stream
  mst.Type = adTypeBinary
  mst.Open
  mst.LoadFromFile txtFile.Text
  rs.AddNew
  rs.Fields(1).Value = Trim(txtSubject.Text)    '主題
  rs.Fields(2).Value = Trim(txtfiletext.Text)   '描述
  rs.Fields(3).Value = Trim(txtPerson.Text)     '發送人
  rs.Fields(4).Value = Trim(Jsr)                '接收人
  rs.Fields(5).Value = Trim(Format(dtpfsrq.Value, "yyyy-mm-dd"))
  rs.Fields(6).Value = mst.Read
  rs.Fields(7).Value = FileName
  rs.Update
  rs.Close
  cn.Close
  Me.MousePointer = 0
  MsgBox "文件發送成功!", vbInformation, "系統提示!"
err_file:
  If Err.Number <> 0 Then MsgBox Err.Description
End Sub

Answer 2

在 SQL server 2008 中 如果执行 exec(@str)
当@str为 varchar时 长度不能超过 8000
当@str为 nvarchar时 长度不能超过 4000. 
长度太长 会被右截断 或者 异常什么的.
为什么要这样做 你想达到什么目的  或者有更简单直接有效的方法.

Answer 3

我是要存个文件到数据库的image字段，而且因为项目要求的关系，我不能通过拿到recordset，然后再调用它的addnew来往image字段里写，只能以如下的参数形式操作if(SUCCEEDED(m_pCmd.CreateInstance(__uuidof(ADODB::Command))))
{
m_pCmd->ActiveConnection=(ADODB::_Connection *)dbcon;
m_pCmd->CommandText=_T("insert into tbtest(image) values(?)") ;
m_pCmd->CommandType=ADODB::adCmdText;
m_pCmd->NamedParameters=false;
m_pCmd->Parameters->Refresh();//设置参数....
         m_pCmd->Execute(NULL,NULL,ADODB::adCmdText);}