代码如下:
Dim conn
Dim rs
Dim connstr Set conn = CreateObject("ADODB.CONNECTION")
connstr = "Driver={Microsoft ODBC for Oracle};Server=mydatabase;Uid=bing;Pwd=123;"
conn.Open connstr
If (conn.State = 0) Then
MsgBox "连接数据库失败!"
End If
Set rs = CreateObject("ADODB.RECORDSET")
rs.ActiveConnection = conn
rs.CursorLocation = 2
rs.CursorType = 1
rs.LockType = 3
rs.Source = "select * from byte_attach where p_rec_id='"& p_rec_id &"' "
rs.Open,conn,,, 1 当表byte_attach中没有BLOB字段时open没问题,byte_attach中有BLOB字段时open就出错。百思不得其解,请高手指点
Dim conn
Dim rs
Dim connstr Set conn = CreateObject("ADODB.CONNECTION")
connstr = "Driver={Microsoft ODBC for Oracle};Server=mydatabase;Uid=bing;Pwd=123;"
conn.Open connstr
If (conn.State = 0) Then
MsgBox "连接数据库失败!"
End If
Set rs = CreateObject("ADODB.RECORDSET")
rs.ActiveConnection = conn
rs.CursorLocation = 2
rs.CursorType = 1
rs.LockType = 3
rs.Source = "select * from byte_attach where p_rec_id='"& p_rec_id &"' "
rs.Open,conn,,, 1 当表byte_attach中没有BLOB字段时open没问题,byte_attach中有BLOB字段时open就出错。百思不得其解,请高手指点
可以select col1,col2,...from t查非blob字段,再单独取blob字段。
你的blob字段就不能单纯用select来查询。
你先用select p_rec_id字段,来确定要插入或更新的行。再处理该行的blob字段。
finger_byte没有放在recordset里面,后面的更新语句RS("finger_byte").AppendChunk byte根本行不通。
http://www.china-code.net/article/7/5/183050/ccvr9E7P.html