作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 请问一下OLE 物件怎麽丢进 SQL 2000 ..
时间Sat Dec 16 18:11:38 2006
※ 引述《Elleestjeune (夏天掰掰)》之铭言：
: 如题, 之前试过以byte array 丢进Access mdb,
: 但是SQL 2000 的 binary or image 栏位 都不吃..Orz
: 请问一下该怎麽做呢？ 谢谢 <O>
'从资料库中取出 (Byte Array 转 String 存进文字方块)
Dim rs As adodb.Recordset, sql As String
sql = "select * from bin"
Set rs = cn.Execute(sql)
If Not rs.EOF Then
txt.Text = Trim(StrConv(rs("data"), vbUnicode))
End If
'将字串写入资料库
sql = ""
sql = sql & "insert into bin values (cast('" & txt.Text & "' as binary))"
cn.Execute sql
'将 Byte Array 写入资料库
Dim b(1) As Byte
b(0) = Asc("V")
b(1) = Asc("B")
sql = ""
sql = sql & "insert into bin values "
sql = sql & "(cast('" & StrConv(b, vbUnicode) & "' as binary))"
cn.Execute sql
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.184.116.55