请教如何在ole调出word。请给源码。多谢多谢。恭喜发财
数据库为access，我顺利把word文件contr通过ole1保存在access中，为什么调出时，显示“name”是只读属性。不能调出contr文件。
Dim rst As New ADODB.Recordset
Dim con As New ADODB.Connection
Dim j, k, h As Integer
Dim sql As String
Private Sub Command1_Click()
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
con.CursorLocation = adUseClient
con.Open
con.Execute ("insert into ole (id,contr,l)" & " select '" & CStr(j) & "','" & OLE1.object & "','" & Trim(Text2.Text) & "'")
End Sub
Private Sub Command2_Click()
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
con.CursorLocation = adUseClient
con.Open
sql = "select * from ole"
Set rst = con.Execute(sql)
OLE1.object = rst.Fields("contr").Value ‘此处出现问题。
Text2.Text = rst.Fields("l").Value
End Sub
--------------------编程问答-------------------- 没回复怎么结贴？没回复怎么结贴？没回复怎么结贴？没回复怎么结贴？没回复怎么结贴？ --------------------编程问答-------------------- 呵呵,我比较关心你这个三年前的问题解决了没有 --------------------编程问答--------------------
很厉害，2007-2010。 --------------------编程问答--------------------
--------------------编程问答--------------------
--------------------编程问答--------------------
难。。。。。。三年了都人会！！！！难！！！！！
--------------------编程问答--------------------
哈哈哈哈....~~~~~~~~~~~~~~~~~~~~~~
补充：VB , 资源
