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

oriole · 发表于 2006-8-3 23:18

哦，忘了

plxmm · 发表于 2006-8-3 23:27

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

来生缘 · 发表于 2006-8-3 23:46

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

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

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

[em06][em06][em06]

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

plxmm · 发表于 2006-8-3 23:52

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

oriole · 发表于 2006-8-3 23:56

ListView1中怎样设置滚动条？

tony24 · 发表于 2006-8-4 15:07

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

oriole · 发表于 2006-8-21 17:27

来生缘老师：第九步查找中，我略作修改：将找到的记录写入临时表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

来生缘 · 发表于 2006-8-21 18:57

kk=cnn.Execute(strsqlfind)

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

这样试试

oriole · 发表于 2006-8-21 19:51

来生缘老师：

kk=cnn.Execute(strsqlfind)

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

错误提示＇４３０＇

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

来生缘 · 发表于 2006-8-21 20:06

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

		自动登录	找回密码
密码			免费注册