EXCEL文件指定单元格的值写入ACCESS文件（已存在的记录更新，新记录追加）

cxd1001

说明：
EXCEL文件有关单元格的值写入到ACCESS文件uTemp表，代码已写，也能写入数据
但是有两个问题需解决
1、数据不能重复写入，“纳税人识别号”、“纳税年度”两字段相同的覆盖原来的值，并提示是否覆盖？
2、新的数据直接追加就可以了（“纳税人识别号”、“纳税年度”两字段作为是否为新记录判断标准）
详见附件

cxd1001

Sub adoTest()
   Dim adoRt  As Object
   Dim strSQL  As String
   
   '// 创建ADO记录集对象
   Set adoRt = CreateObject("ADODB.RecordSet")
   '// 设置SQL 语句
   strSQL = "SELECT * FROM uTemp WHERE False"
   
   With adoRt
      '// 设置需要连接数据库
      .ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\写入\写入EXCEL指定单元格值.mdb"
      .CursorLocation = 3
      .CursorType = 1
      .LockType = 3
      
      '// 设置SQL语句
      .Source = strSQL
      '// 准备打开记录集
      .Open
      
      '// 新增记录
      .AddNew
      '// 赋值
      .Fields("纳税人识别号").Value = Range("识别号")
      .Fields("单位名称").Value = Range("单位名称")
      .Fields("纳税年度").Value = Range("纳税年度")
      .Fields("利润总额").Value = Range("利润总额")
      .Fields("纳税调整增加").Value = Range("纳税调整增加")
      .Fields("纳税调整减少").Value = Range("纳税调整减少")
      .Fields("调整后所得").Value = Range("调整后所得")
      '// 更新
      .Update
      
      '// 判断并关闭记录
      If .State = 1 Then
         .Close
      End If
   End With
   
   '// 从内存中释放
   Set adoRt = Nothing
End Sub

zhaogang1960

1. Sub 添加记录()
   
2.     Dim cnn As Object, rs As Object, SQL$
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     Set rs = CreateObject("adodb.recordset")
   
5.     cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "" & "写入EXCEL指定单元格值.mdb" '连接数据库
   
6.     SQL = "select * from uTemp where 纳税人识别号='" & Range("识别号") & "' and 纳税年度='" & Range("纳税年度") & "'"
   
7.     rs.Open SQL, cnn, 1, 3
   
8.     With rs
   
9.         If .RecordCount = 0 Then .AddNew
   
10.         .Fields("纳税人识别号").Value = Range("识别号")
    
11.         .Fields("单位名称").Value = Range("单位名称")
    
12.         .Fields("纳税年度").Value = Range("纳税年度")
    
13.         .Fields("利润总额").Value = Range("利润总额")
    
14.         .Fields("纳税调整增加").Value = Range("纳税调整增加")
    
15.         .Fields("纳税调整减少").Value = Range("纳税调整减少")
    
16.         .Fields("调整后所得").Value = Range("调整后所得")
    
17.         .Update
    
18.     End With
    
19.     rs.Close
    
20.     cnn.Close
    
21.     Set rs = Nothing
    
22.     Set cnn = Nothing
    
23. End Sub
    

复制代码

zhaogang1960

请看附件
写入.rar (23.34 KB, 下载次数: 540)

2012-6-20 21:35 上传

点击文件名下载附件

cxd1001

zhaogang1960 发表于 2012-6-20 21:34

   rs.Open SQL, cnn, 1, 3

"1"、“3”分别代表什么？
1 ：uTemp表第一个字段纳税人识别号？

zhaogang1960

cxd1001 发表于 2012-6-20 22:02
rs.Open SQL, cnn, 1, 3

"1"、“3”分别代表什么？

rs.Open SQL, cnn, 1, 3
创建查询，完整写法：
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
要求
引用Microsoft ActiveX Data Objects 2.x Library
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
第一个参数是游标类型，第二个参数是锁定类型

1、3分别是它们的值

cxd1001

zhaogang1960 发表于 2012-6-20 21:35
请看附件

搞定！{:soso_e179:}

cxd1001

zhaogang1960 发表于 2012-6-20 22:08
rs.Open SQL, cnn, 1, 3
创建查询，完整写法：
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic

明白了！{:soso_e182:}

cxd1001

zhaogang1960 发表于 2012-6-20 21:35
请看附件

再请教一个问题：数据区域取数（附件里有详细说明）
1、把B2:C15区域非空值写入ACCESS纳税调整表对应字段（项目、金额）
2、B2:C15区域类别字段取值为“调增”并写入ACCESS纳税调整表对应字段（类别）
3、把B16:C21区域非空值写入ACCESS纳税调整表对应字段（项目、金额）
4、B2:C15区域类别字段取值为“调减”并写入ACCESS纳税调整表对应字段（类别）
5、把纳税人识别号、纳税年度写入ACCESS纳税调整表对应字段（纳税人识别号、纳税年度），单元格名称为识别号、纳税年度（见sheet1）
6、数据不能重复写入，“纳税人识别号”、“纳税年度”两字段相同的覆盖原来的值
7、新的数据直接追加就可以了（“纳税人识别号”、“纳税年度”两字段作为是否为新记录判断标准）

zhaogang1960

cxd1001 发表于 2012-6-21 09:01
再请教一个问题：数据区域取数（附件里有详细说明）
1、把B2:C15区域非空值写入ACCESS纳税调整表对应字段 ...

不知所云
建议工作表和Access都使用相同格式的表格，ADO可以直接导入数据