曼城足球论坛技术论坛

找回密码
收费注册

QQ登录

只需一步,快速起初

EH搜索
EH技术汇-专业的职场才能充电站 妙哉!函数段子手风趣讲函数 足球任职器-会足球,做管理系统 足球 Home精品图文教程库
足球不给力? 何不试试FoxTable! 足球 2016函数公式学习大典 Office知识技巧收费学 制造中央竞争力的职场宝典
Tableau-数据可视化工具 曼城足球论坛出品 - VBA代码宝收费下载
你的足球 2010实战技巧学习锦囊 不能自休, 过目难忘的 Office 新界面 足球 VBA典范代码实践指南
察看: 94 | 回复: 4
打印 上一主题 下一主题

[求助] SQL语句提取数据形式到相同名的使命表中

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
公告于 2020-9-16 17:03 | 只看该作者 | 只看大图 回帖夸奖 | 倒序赏玩 | 阅读形式
请帮看一下,有一个【卷带临蓐】的使命表要提取局限形式 。相同表名的一齐形式,叨教师们帮写一下,不知道SDL语句怎么写。

新建文件夹.rar

77.26 KB, 下载次数: 6

TA的精华主题

TA的得分主题

2
公告于 2020-9-16 17:24 | 只看该作者
thread--1-1.html

TA的精华主题

TA的得分主题

3
公告于 2020-9-16 17:26 | 只看该作者
水平有限,先凑个数,
如下,供参考:


TA的精华主题

TA的得分主题

4
公告于 2020-9-16 17:29 | 只看该作者
代码如下,供参考:
  1. Sub 获取数据()
  2. Application.ScreenUpdating = False
  3. Dim SQL As String, sht As Worksheet
  4. Dim Cnn As Object: Set Cnn = CreateObject("ADODB.Connection")
  5. Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\临蓐数据库.accdb"
  6. Dim mRst As Object: Set mRst = CreateObject("Adodb.RecordSet")
  7. SQL = "Select 序号,日期,产品编码,LOTNO,卷带数量 From 卷带临蓐"
  8. Set mRst = Cnn.Execute(SQL)
  9. With Worksheets("卷带临蓐")
  10. .Activate
  11. .Rows("2").ClearContents
  12. .Range("A2").CopyFromRecordset mRst
  13. End With
  14. ' ----
  15. For Each sht In Sheets
  16. If sht.Name <> "卷带临蓐" And sht.Name <> "录入" Then
  17. SQL = "Select * From " & sht.Name
  18. Set mRst = Cnn.Execute(SQL)
  19. With sht
  20. .Activate
  21. .Rows("2").ClearContents
  22. .Range("A2").CopyFromRecordset mRst
  23. End With
  24. End If
  25. Next
  26. Cnn.Close: Set Cnn = Nothing: Set mRst = Nothing
  27. Application.ScreenUpdating = True
  28. MsgBox "ok"
  29. End Sub
复制代码


评分

参与人数 1 鲜花 +2 收起 理由
如云家家 + 2 感激帮助

察看一齐评分

TA的精华主题

TA的得分主题

5
楼主 | 公告于 2020-9-17 08:26 | 只看该作者
opel-wong 公告于 2020-9-16 17:29
代码如下,供参考:

谢谢您的襄助。
您需要登录后才可能回帖 登录 | 收费注册

本版积分规则

眷注官方微信,高效办公专列,每天发车

手机版|关于我们|关系我们|曼城足球论坛

GMT+8, 2020-9-28 13:25, Processed in 0.0 second(s),足球论坛哪个火。 19 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

? 1999-2021 Wooffice Inc.

沪公网安备号 沪ICP备号

本论坛言论纯属公告者小我意见,任何违反国度相关法律的言论。

快速回复 前往顶部 前往列表