云易云模具管理软件

提供全面的管理思路!

当前位置: 首页
> 管理课堂
> 模具ERP/MES >excel进行模具管理数据库编程 标签:工厂MES,质量管理,生产流程管理
产品分类
  • 模具ERP/模具MES
  • 零件行业ERP
  • 行业定制开发
  • 设备采集-物联网
  • 热门管理课堂
  • 影响模具生产成本的要素
  • 模具管理软件MES制造执行系统
  • excel进行模具管理之VBA编程
  • 模具管理系统中加工工艺简述
  • 模具运作流程与软件的必要性
  • ERP管理系统实现最低量的库存与最快速的周转
  • 模具系统服务商云易云的由来
  • ERP中的销售管理
  • 模具与零件数控加工的切削刀具
  • excel进行模具管理数据库编程
  • 为什么总经理要会用ERP?因为有这三大好处!
  • 云易云ERP、MES能给模具、零部件制造业带来什么好处?
  • 如何选择APS排程进行生产计划管理?
  • ERP“零库存”指标的另类思考
  • 实例说明ERP中的物料编码
  • 库存周转不过来?看ERP如何应对!
  • 定制ERP的优势与资源的早起归集
  • BOM在模具生产管理中的作用!
  • 模具管理系统的具备条件
  • 生产企业MES管理软件系统详解
  • 热门功能
  • 模具MES的生产报工方式
  • 模具厂自动智能排程APS软件系统怎么排?
  • 模具BOM管理软件的导入与BOM申购管理
  • 模具ERP/MES中项目管理的操作方法
  • ERP软件系统中订单管理怎么操作跟踪?
  • 模具库存物料条码管理系统、物料管理模块软件
  • 模具工艺制程软件管理系统
  • 零件委外、设计委外、生产工序委外外协、外协供应链管理系统
  • 模具订单软件中客户管理怎么管?
  • excel进行模具管理数据库编程

    时间:2019-12-09 20:19 浏览数:802
    导读:Excel作为模具管理系统,数据是存储在数据库中,Excel只是作为输入输出的展现数据。表单格式按excel设计,填写后点击保存,则数据就存储至excel。生成报表也是利用数据库SQL进行汇总导出。

    Excel作为模具管理系统,数据是存储在数据库中,Excel只是作为输入输出的展现数据。表单格式按excel设计,填写后点击保存,则数据就存储至excel。生成报表也是利用数据库SQL进行汇总导出。

    一、Excel 连接数据库的方式:

    1、在工具中引用:Microsoft ActiveX Data Objects 2.1 Library

    2、定义

    Dim dbcnn As New ADODB.Connection

     

    3、指定服务器地址(本机可用“.”或者127.0.0.1),数据库名,用户名与登录密码

    dbcnn.Open "Provider=SQLOLEDB.1;Data Source=192.168.0.1;Persist Security Info=True;User ID=sa;Password=123456;Initial Catalog=MoldSys;Timeout=720;"

    4、窗口关闭时进行释放连接

    dbcnn.Close

    Set dbcnn = Nothing

    5、读取数据

        SQL = "select * from 加工表 where 加工日期='2019-01-01' and 员工编号='001' "

        rs1.Open Source:=SQL, ActiveConnection:=dbcnn, CursorType:=adOpenStatic, LockType:=adLockOptimistic

            Do While Not rs1.EOF

                ListView1.ListItems.Add , , rs1.Fields!班制 & "_" & rs1.Fields!班次 '工序名称

                sk = sk + 1

                ListView1.ListItems(sk).SubItems(1) = Format(rs1.Fields!加工日期, "M-d")            

                rs1.MoveNext

            Loop

    6、添加数据

        SQL = "select * from A_ProdDiscardTmp where 1=2"

    rs1.Open SQL, dbcnn, adOpenStatic, adLockOptimistic

    rs1.AddNew

    rs1.Fields!发生日期 = “2019-01-01”

    rs1.Fields!模号 = “190101”

    rs1.Update

     

     

    VBA图3.jpg

     

     

    返回
    模具管理软件QQ咨询 模具项目管理在线留言 淘宝店铺 联系云易云微信 ERP即时沟通