ACCESS数据库学习遇到困惑，求助

浠朢↘恠明兲

学习了VBA+ADO+SQL，想用ACCESS做个销售入库/修改的例子，但参考了好多例子还是做不来。
1、保存按钮现在可以保存，但想实现两用功能，即，当数据库不存在该单号时，则写入，存在时则修改。
2、修改按钮点击弹出INPUTBOX，用户输入单号后提取数据库数据到表格，由于有几个字段位置在上面，不知道该怎么写，请各位老师指教。

xyxcc177

会ADO，这都不是事

jiangxiaoyun

select 查询一下单号，如果没有数据，就输入，如果有数据就删除数据再输入。就这样。

浠朢↘恠明兲

xyxcc177 发表于 2018-8-16 19:29
会ADO，这都不是事

学了教程才动手，结果动起手来问题多多。

xyxcc177

浠朢↘恠明兲 发表于 2018-8-16 19:40
学了教程才动手，结果动起手来问题多多。

可以先写，出了问题再来问，这样很容易学会

浠朢↘恠明兲

jiangxiaoyun 发表于 2018-8-16 19:36
select 查询一下单号，如果没有数据，就输入，如果有数据就删除数据再输入。就这样。

我的想法是两个不同SQL语句，如果没有数据就用INSERT INTO插入新数据，如果有，就用UPDATE更新，这样可以避免忘保存造成记录丢失。

jiangxiaoyun

浠朢↘恠明兲 发表于 2018-8-16 19:43
我的想法是两个不同SQL语句，如果没有数据就用INSERT INTO插入新数据，如果有，就用UPDATE更新，这样可以 ...

1. Sub 从Excel工作表中向数据表添加纪录()
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim rs As New ADODB.Recordset
   
4.     Dim myTable As String
   
5.     Dim d As String
   
6.     Dim iCount As Long
   
7.     iCount = Cells(Rows.Count, 1).End(xlUp).Row
   
8.     d = Format([f1].Value, "yyyy-mm-dd")
   
9.     myTable = "工资表"
   
10.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\db1.mdb"
    
11.      
    
12.     Sql = "select 日期 from " & myTable & " where 日期='" & d & "'"
    
13.     rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
    
14.    
    
15.     If rs.RecordCount = 0 Then
    
16.         MsgBox "没有发现存在当前年月的工资记录,确定插入工资数据", vbInformation, "提示"
    
17.     Else
    
18.         Sql = "delete * from " & myTable & " where 日期='" & d & "'"
    
19.         cnn.Execute Sql
    
20.         MsgBox rs.RecordCount & "条记录被删除。", vbInformation, "提示"
    
21.     End If
    
22.     Sql = "INSERT INTO " & myTable & " SELECT '" & d & "' as 日期,* FROM " & _
    
23.     "[Excel 8.0;Database=" & ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$a2:k" & iCount & "]"
    
24.     cnn.Execute Sql
    
25.     MsgBox "一共插入" & iCount - 2 & "条记录。", vbInformation, "提示"
    
26.     rs.Close
    
27.     cnn.Close
    
28.     Set rs = Nothing
    
29.     Set cnn = Nothing
    
30. End Sub

复制代码

浠朢↘恠明兲

xyxcc177 发表于 2018-8-16 19:42
可以先写，出了问题再来问，这样很容易学会

现在就出了问题，CopyFromRecordset 是以某个单元格输出，我这个表格上面是重复的，不规则，所以不知道怎么提取数据。

as42065300

给你参考下..........
参考.rar (560.68 KB, 下载次数: 15)

2018-8-16 21:44 上传

点击文件名下载附件

浠朢↘恠明兲

as42065300 发表于 2018-8-16 21:44
给你参考下..........

非常感谢，太强大了，都不知道什么时候能有这水平，代码基本能理解，修改是数据库读取转为数组，Adodb.Recordset对象使用方法还不熟悉，还要慢慢理解。
有个疑问想请教：
If b Then T_Rs.Execute = "DELETE FROM 销售 WHERE 单号='" & [b3] & "'": b = False
1、这个b=True是点击修改按钮获取了数据库查询的单号不为0赋值的，是在SUB 修改（）里赋值，写入是还有效？
2、: b = False 意思是删除了该表单内容就赋值FALSE吗？这个格式的写法第一次接触。
VBA只是我的兴趣爱好，小白一个，问的不对请见谅。。
再次感谢老师回答。