在EXCEL中操作ACCESS库

cwzj3807

zez 发表于 2015-7-7 18:01
试试这个：
        SQL = "INSERT INTO [项目记录表](序号,项目,数量,单价,金额) " _
           & "Va ...

再次求教老师：
我希望先将 D4:H11 的数据装入了数组 Arr ,然后要用 SQL 语句将数组装入数据库，但总是不行，因此请老师指导！
谢谢！
问题求教.rar (21.23 KB, 下载次数: 22)

2015-7-9 15:20 上传

点击文件名下载附件

zez

Public Sub 数据录入()
   Dim SQL As String
   On Error Resume Next
   Set cnn = CreateObject("adodb.connection")
   cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & ThisWorkbook.Path & "\Access 数据库.mdb;"
   
   Arr = Range("D4:H11")
   For n = 2 To 8
        SQL = "INSERT INTO [项目记录表] (序号,项目, 数量, 单价, 金额) Values(" & Arr(n, 1) & ",'" & Arr(n, 2) & "'"
        For i = 3 To 5
            SQL = SQL & "," & Arr(n, i)
        Next
        SQL = SQL & ")"
        cnn.Execute SQL
    Next
   
   cnn.Close: Set cnn = Nothing
   
End Sub

cwzj3807

zez 发表于 2015-7-9 16:28
Public Sub 数据录入()
   Dim SQL As String
   On Error Resume Next

谢谢老师指导，学习中！

fanfyj

感谢分享！

cwzj3807

zez 发表于 2015-7-9 16:28
Public Sub 数据录入()
   Dim SQL As String
   On Error Resume Next

再次求助老师：
我用  以下代码  已经查询出了“北京”片区的销售数据，那么如何才能 再用代码获取 已经查询出来的“北京”片区的销售记录数呢？谢谢！

Public Sub 数据查询2()
   Dim SQL As String
   On Error Resume Next
   Set cnn = CreateObject("adodb.connection")
   cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & ThisWorkbook.Path & "\Access 数据库.mdb;"
   SQL = "SELECT 片区, 数量, 单价, 金额 from 销售记录表 where 片区='北京'"
   
  '请在这里添加上返回查询结果中记录数的代码!
   
   cnn.Close: Set cnn = Nothing
End Sub

zez

试试：SQL = "SELECT count(*) from 销售记录表 where 片区='北京'"

cwzj3807

zez 发表于 2015-7-12 11:08
试试：SQL = "SELECT count(*) from 销售记录表 where 片区='北京'"

谢谢老师指导学习中！

shidaity

学习了，多谢

xiexinxi

测试能用再来评价

02761752696

太好
太好了