我是如何用EXCEL+ACCESS+WORD做出一个适合自己使用的东东的

oriole

哦，忘了

plxmm

To:来生缘 16楼的附件无法下载啊。

来生缘

报告版主,十六楼我上传了几次都不行,这里应该可以了

 

 

 

 

Ks9jpbjj.rar (61.91 KB, 下载次数: 243)

2006-8-3 23:47 上传

点击文件名下载附件

 

又传N次,还是不行,我要报告总版主大人了

[em06][em06][em06]

[此贴子已经被作者于2006-8-3 23:48:38编辑过]

plxmm

云彩，这里的还是不能下载？！[em09]

oriole

ListView1中怎样设置滚动条？

tony24

这种整合性的工作目前还没有谱,我的问题在于VBA是单独分开的档案,还是整合在word或excel档案中呢?

oriole

来生缘老师：第九步查找中，我略作修改：将找到的记录写入临时表temp中，再连接临时表，下面代码怎么写不进去呢？（打开临时表看不到任何记录写入）

Private Sub CommandButton8_Click()           

CommandButton11.Caption = "返回主界面"
Application.ScreenUpdating = False
   ListView1.ListItems.Clear
    Call mycnn
    cnn.Execute "delete from temp"
    Strsql = "Select * From 主表"
    rst.Open Strsql, cnn, 1, 3
    Strsql = "insert into temp select * from 主表　where "
    For i = 1 To 28
     If Controls("textbox" & i) <> "" Then
      Strsql = Strsql & rst.Fields(i).Name & " like '*" & Controls("textbox" & i).Text & "*' and "
     End If
    Next
   Strsql = Left(Strsql, Len(Strsql) - 4)
   strsqlfind = Strsql                     

   cnn.Execute strsqlfind                  ＇将查找到记录写入临时表   
   Set rst = Nothing
   Set cnn = Nothing
end sub

来生缘

kk=cnn.Execute(strsqlfind)  

Sheets("temp").[a1].CopyFromRecordset kk

 

这样试试

oriole

来生缘老师：

kk=cnn.Execute(strsqlfind)  

Sheets("temp").[a1].CopyFromRecordset kk          这句出错

错误提示＇４３０＇

类不支持自动化（automation）或不支持期待的接口

来生缘

不如不要一条筋了,用12楼的办法试试好了