Re: [VB6 ] 請問一下OLE 物件怎麼丟進 SQL 2000 ..
※ 引述《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
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章