用stream如何读取当前text的文本转换成二进制保存？

我想把当前窗体上的text文本用二进制形式保存到数据库里边。
dim temp as new adodb.stream
      temp.Type = adTypeBinary
      temp.Open
      temp.ReadText ?Text2.Text?这里的提示为类型不匹配
     这种读取方式是否正确？正确的方式应该是怎么读取方式？
     因为是菜鸟 请详细讲解！

解决方案 »

  1.   

    你是想读出来,还是想存进去呀.
    不用ReadText 方法的.
    写到数据库就用LoadFromFile方法跟addnew方法就可以了.
    而读出来就用Write方法跟SaveToFile方法.
      

  2.   

    stream一般是把文件以二进制的形式保存到数据库
    如果把文本也按二进制保存的话应该直接把文本先转成二进制然后再保存
    不用这种方法就行，直接保存到Varchar的字段里
      

  3.   

    保存，保存文本，不保存文件，
    保存文件我知道用写到数据库就用LoadFromFile方法跟addnew方法就可以了.
    我是想只把当前的text中的文本保存到数据库。不是文件
    readtext说我的类型不匹配啊，后边还要加什么东东吗？？