Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcstr As String
'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeText '二进制模式
.Open
MsgBox List2.List(List2.ListIndex)
.WriteText "12345678"
End With
'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from VEGA_WCM_CONTENT", conn, 1, 3
.AddNew '新增一条记录
.Fields("CONTENT_ID") = "1"
MsgBox iStm.EOS
MsgBox iStm.State
MsgBox iStm.ReadText '这里显示是空
.Fields("CONTENT_PROPERTY") = iStm.ReadText
.Update
End With
Dim iRe As ADODB.Recordset
Dim iConcstr As String
'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeText '二进制模式
.Open
MsgBox List2.List(List2.ListIndex)
.WriteText "12345678"
End With
'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from VEGA_WCM_CONTENT", conn, 1, 3
.AddNew '新增一条记录
.Fields("CONTENT_ID") = "1"
MsgBox iStm.EOS
MsgBox iStm.State
MsgBox iStm.ReadText '这里显示是空
.Fields("CONTENT_PROPERTY") = iStm.ReadText
.Update
End With
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货