VB怎么样对 SQL 2000的 Binary 字段进行读写操作？

Question

有一SQL 2000的数据库（A），表（B），字段（C）的数据类型是Binary ，1、VB怎么样将Text1.text的内容写到字段（C）中？2、以后VB又怎么样将字段（C）的内容返回写到Text2.text中？

Answer 1

Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM aaa", cn, adOpenDynamic, adLockOptimistic
    rs.AddNew
    rs!aa = "data"
    rs!bb = Text1.Text
    rs.Update
End SubPrivate Sub Command2_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM aaa", cn, adOpenDynamic, adLockOptimistic
    
    If Not rs.EOF Then
        Text1.Text = StrConv(rs!bb, vbUnicode)
    End If
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "Driver={SQL Server};SERVER=CUIZM;DATABASE=orientscm;UID=sa;PWD="
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 2

'将内存中的文件存入数据库
Private Sub SaveMyFilesToDB(ObjRs As ADODB.Recordset, ByVal strField As String)
    Dim i As Long, k As Long
    Dim bT() As Byte
    
    On Error GoTo Err1
    With ObjRs.Fields(strField)
        k = UBound(MyFiles)
        For i = 0 To k
            .AppendChunk MyFiles(i).intFileNameLen
            .AppendChunk MyFiles(i).lngFileLen
            .AppendChunk MyFiles(i).strFileName
            If MyFiles(i).lngFileLen(0) > 0 Or MyFiles(i).lngFileLen(1) > 0 Or MyFiles(i).lngFileLen(2) > 0 Or MyFiles(i).lngFileLen(3) > 0 Then
                .AppendChunk MyFiles(i).btFileData
            End If
        Next
    End With
    Exit Sub
Err1:
    lngLastErrorNum = Err.Number
End Sub

Answer 3

Text1.Text = StrConv(rs!bb, vbUnicode)
主要就是这个函数了

Answer 4

to cuizm(射天狼) ：rs!aa = "data"
rs!bb = Text1.Text
不能存入数据表中（数据类型是Binary ）

Answer 5

Set stm = New ADODB.Stream
    stm.Type = adTypeBinary
    stm.Open
    stm.LoadFromFile CommonDialog1.FileName
    rs.AddNew
    rs.Fields(0).AppendChunk stm.Read
    rs.Update

Answer 6

我建的数据中aa字段是字段类型,bb字段是BINARY类型,你TEXT文本框中一定要写合法的类型才能存入,我已经试验通过了!!

Answer 7

TEXT文本框中是键盘上输入的内容

Answer 8

to cuizm(射天狼)怎么样加"ox" ？

Answer 9

'以下代码用于测试
'在sqlserver查询分析其中建立表
'create table B(id int identity(1,1),C varbinary(500))'新建一个工程，在form1上加两个text,两个command
'引用Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)Option Explicit
Dim cn As ADODB.ConnectionPrivate Sub Command1_Click()
   '将字符转换为2进制类型存入
    cn.Execute "insert into B select convert(varbinary(500),'" & Trim(Text1.Text) & "')"
End SubPrivate Sub Command2_Click()
    Dim rs As ADODB.Recordset
    
    Set rs = New ADODB.Recordset    '将2进制转换为字符类型输出
    rs.Open "select cast(C as varchar(8000)) as C from B ", cn
    Text2.Text = rs!C & ""
    rs.Close
    Set rs = Nothing
End SubPrivate Sub Form_Load()
    Set cn = New ADODB.Connection
    cn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=A;Data Source=."
End SubPrivate Sub Form_Unload(Cancel As Integer)
    If Not cn Is Nothing Then
        If cn.State = adStateOpen Then cn.Close
        Set cn = Nothing
    End If
End Sub

Answer 10

不知道对于ACCESS中的OLE类型字段可不可以这样处理，不过对于ACCESS中的备注类型字段我使用STRCONV(ADODC.RECORDSET.FILEDS("XX"),VBUNICODE)函数是把非空的值取出来了，若为NULL会报错