美文网首页
excel2003 sql语言之插入与删除

excel2003 sql语言之插入与删除

作者: 匆匆那年过客 | 来源:发表于2019-05-02 09:35 被阅读0次

不打开另一工作薄之工作表,提取数据至access

rivate Sub CommandButton6_Click()    ‘删除access中相同日期的数据

    On Error Resume Next

    Dim SQL$

    Dim cnn, rs, wb, mth, mytable

    Set cnn = CreateObject("ADODB.Connection")

    Set rs = CreateObject("ADODB.recordset")

    Set wb = ThisWorkbook

    mth = ThisWorkbook.Path & "\hhtj.mdb"

    mytable = Left(wb.Name, InStr(wb.Name, ".") - 1) & "销售汇总表"

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mth

    SQL = "DELETE * from " & mytable & " where  日期=#" & TextBox23.Value & "#"

    rs.Open SQL, cnn, 1, 3

    MsgBox "成功删除当次日期资料"

    rs.Close

    cnn.Close

    Set rs = Nothing

    Set cnn = Nothing

End Sub

Private Sub CommandButton7_Click()    '插入另一工作薄数据表的数据至access

    On Error Resume Next

    Dim SQL$, s$

    Dim cnn, rs, wb, mth, mytable, thisyear

    thisyear = Year(VBA.Date)  '取出年份数字

    Set cnn = CreateObject("ADODB.Connection")

    Set rs = CreateObject("ADODB.recordset")

    Set wb = ThisWorkbook

    mth = ThisWorkbook.Path & "\hhtj.mdb"

    mytable = Left(wb.Name, InStr(wb.Name, ".") - 1) & "销售汇总表"

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mth

    s = "[Excel 4.0;Database=" & ThisWorkbook.Path & "\" & mytable & ".xls].[" & thisyear & "$] "

    SQL = "INSERT INTO 05707销售汇总表 select * from " & s & "where  日期=#" & TextBox23.Value & "#"

    rs.Open SQL, cnn, 1, 3

    MsgBox "成功插入当次日期资料"

    rs.Close

    cnn.Close

    Set rs = Nothing

    Set cnn = Nothing

End Sub

相关文章

  • excel2003 sql语言之插入与删除

    不打开另一工作薄之工作表,提取数据至access rivate Sub CommandButton6_Click(...

  • Mysql 一些实用方法笔记!

    sql 注入: sql 导入数据: 批量插入数据: sql 关联更新多表数据: sql 关联删除多表数据: mys...

  • Oracle基本sql语句与函数

    2019-05-09 SQL语句 插入记录 更新记录 删除记录 注意:delete删除的表数据可以还原 清空表 与...

  • SQL (FMDB)

    SQL套餐 sql常用语句 创建表 查询 修改 删除 插入 删除表 FMDB 什么是FMDBFMDB是iOS平台的...

  • 一、数据库之SQL语句

    一、SQL创表 二、SQL-插入 三、SQL-修改 四、SQL-删除 五、SQL-查询 以上是SQL语句常用的用法...

  • SQL基础语句

    SQL 基本语句记录 新建表 删除表: 插入数据: 删除数据: 更新数据: 新增字段: 删除字段: 修改字段: 重...

  • [笔记]常用基本SQL语句

    创建表 插入数据 删除记录 DELETE 语句用于删除表中的记录(行)。 请注意 SQL DELETE 语句中的 ...

  • 2019-08-09 SQL

    2019-08-09 下午: SQL :结构性查询语句。从数据库查询、提取、插入、删除数据。 No sql 是SQ...

  • iOS SQLite.swift使用说明

    SQLite.swift使用说明 1、建表 等价于执行SQL语句 2、插入数据 等价于执行SQL语句 4、删除 等...

  • oracle学习笔记九——插入更新和删除(DML语句)

    九、插入更新和删除 SQL语句的类型:1.DML语句(Data Manipulation Language 数据操...

网友评论

      本文标题:excel2003 sql语言之插入与删除

      本文链接:https://www.haomeiwen.com/subject/nbagnqtx.html