提取数据库里的前四列到excel表中录入数据后并保存到对应的位置

yty773436272 · 发表于 2012-1-31 18:58

本帖最后由 yty773436272 于 2012-2-1 23:35 编辑

求高手帮帮忙，很有难度，很复杂，具体要求见附件

新建文件夹 (2).rar (47.65 KB, 下载次数: 77)

yty773436272 · 发表于 2012-2-1 07:41

dongqing1998 · 发表于 2012-2-1 11:35

“每个车间的黄色区域都是一样的，军品车间录入数据后按“储存到数据库”命令就保存到数据库，我现在想调制车间在数据库里提取军品车间已经保存的前四列到黄色区域，当填写完成后按“储存到数据库”命令就保存到数据库里对应的产品位置，只提取军品车间的需填写的四列，及调制车间空白的产品区域”

这是你表中的描述，但有几点不明白：
1.“调制”工作表跟你数据库的字段名称不一致（前四列一致），怎样相互对应呢？
2.“只提取军品车间的需填写的四列，及调制车间空白的产品区域”这句话中，哪里是“调制车间空白的产品区域”？
3.你要保存“调制”工作表的哪些内容到数据库呢？

“组装”工作表也有同样的问题不明白。

adders · 发表于 2012-2-1 12:48

1.rar (100.92 KB, 下载次数: 109)

2012-2-1 12:39 上传

点击文件名下载附件

你的要求表达不算特别清楚,所以才有2楼之疑问.我的疑问则是类似主键之类的设置,你的数据以哪一列或前4列中的哪几列为唯一主键设置?也许你只是随便下拉举例,不过让人看得不太清楚,另外,你的更新是要在原数据上更新,还是删除重建?这些我们都要猜测,或者,做出来一个样子后,你再来告诉我们,说你的意思其实是......

我先做一个比较粗糙的样子你看,附件中EXCEL文件的"汇总"表是我加的.ACCESS中我加了两个表:调制数据,组装数据.

运行顺序是在Excel中,先"军工"上传,再"调制"下载,填好后上传;再"组装"下载,填好后上传;最后在"汇总"表中,点按钮汇总

为防你无法看到附件或按钮丢失(我用英文版,以前有网友说找不到我上传附件的按钮),我把代码复制如下:

Sub 另存命令()
'引用Microsoft ActiveX Data Objects 2.x Library
Dim cnn As New ADODB.Connection
Dim Sql As String
Dim MySh As String
MySh = ActiveSheet.Name
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\原始数据.mdb" ';Jet OLEDB:Database Password=" & "123456
Sql = "insert into 数据 select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & MySh & "$A2:H" & Range("A" & Rows.Count).End(xlUp).Row & "]"
cnn.Execute Sql
cnn.Close
Set cnn = Nothing
' ActiveSheet.UsedRange.Offset(2).ClearContents
MsgBox "保存完毕"
End Sub
Sub 调入军品()
Application.ScreenUpdating = False
Dim MyConnect As String
Dim MyRecordset As ADODB.Recordset
Dim MySQL As String
MyConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\原始数据.mdb"
'build SQL
MySQL = "SELECT 产品编号, 产品名称, 工令号, 冶炼炉号 " & _
"From 数据; "
' Instantiate and specify recordset
Set MyRecordset = New ADODB.Recordset
MyRecordset.Open MySQL, MyConnect
' copy into excel and add labels
Range("A3:D" & Rows.Count).ClearContents
Range("A3").CopyFromRecordset MyRecordset
Set MyRecordset = Nothing
Application.ScreenUpdating = True
End Sub
Sub 调制另存()
'引用Microsoft ActiveX Data Objects 2.x Library
Dim cnn As New ADODB.Connection
Dim sqldel As String
Dim Sql As String
Dim MySh As String
MySh = ActiveSheet.Name
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\原始数据.mdb" ';Jet OLEDB:Database Password=" & "123456
sqldel = "Delete * From 调制数据;"
cnn.Execute sqldel
Sql = "insert into 调制数据 select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & MySh & "$A2:AA" & Range("A" & Rows.Count).End(xlUp).Row & "]"
cnn.Execute Sql
cnn.Close
Set cnn = Nothing
MsgBox "保存完毕"
End Sub
Sub 组装另存()
Dim cnn As New ADODB.Connection
Dim sqldel As String
Dim Sql As String
Dim MySh As String
MySh = ActiveSheet.Name
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\原始数据.mdb" ';Jet OLEDB:Database Password=" & "123456
sqldel = "Delete * From 组装数据;"
cnn.Execute sqldel
Sql = "insert into 组装数据 select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & MySh & "$A2:K" & Range("A" & Rows.Count).End(xlUp).Row & "]"
cnn.Execute Sql
cnn.Close
Set cnn = Nothing
MsgBox "保存完毕"
End Sub
Sub 数据汇总()
Application.ScreenUpdating = False
Dim MyConnect As String
Dim MyRecordset As ADODB.Recordset
Dim MySQL As String
Dim MyRecordset2 As ADODB.Recordset
Dim MySQL2 As String
Dim MyRecordset3 As ADODB.Recordset
Dim MySQL3 As String
MyConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\原始数据.mdb"
'build SQL
MySQL = "SELECT * " & _
"From 数据; "
MySQL2 = "SELECT * " & _
"From 调制数据; "
MySQL3 = "SELECT * " & _
"From 组装数据; "
' Instantiate and specify recordset
Set MyRecordset = New ADODB.Recordset
MyRecordset.Open MySQL, MyConnect
' copy into excel
ActiveSheet.UsedRange.Offset(3).ClearContents
Range("A4").CopyFromRecordset MyRecordset
Set MyRecordset2 = New ADODB.Recordset
MyRecordset2.Open MySQL2, MyConnect
Range("I4").CopyFromRecordset MyRecordset2
Set MyRecordset3 = New ADODB.Recordset
MyRecordset3.Open MySQL3, MyConnect
Range("AJ4").CopyFromRecordset MyRecordset3
Range("AJ4:AM" & Range("A" & Rows.Count).End(xlUp).Row).Delete Shift:=xlToLeft
Range("I4:L" & Range("A" & Rows.Count).End(xlUp).Row).Delete Shift:=xlToLeft
Columns("A:AL").AutoFit
Set MyRecordset = Nothing
Set MyRecordset2 = Nothing
Set MyRecordset3 = Nothing
Application.ScreenUpdating = True
End Sub

复制代码

yty773436272 · 发表于 2012-2-1 23:32

本帖最后由 yty773436272 于 2012-2-1 23:46 编辑

dongqing1998 发表于 2012-2-1 11:35
“每个车间的黄色区域都是一样的，军品车间录入数据后按“储存到数据库”命令就保存到数据库，我现在想调制 ...

1、感谢朋友的帮助，确实我表示不清楚，现在我已经把要求重新编辑了一下，并且把数据库的字段已统一啦
2、你的疑问2：就是军品车间填写完数据后保存到数据库里，此时调制车间各工序后的内容属于空白，每个单元格里没有内容，就把军品车间前四列的内容提取到excel“调制”的黄色区域，如果“调制”表里某一产品后各工序已经填写了内容就不用提取。组装车间也是一样的
3、根据“产品编号、产品名称、生产日期”为条件，如果三个条件同时满足，就保存到后面对应的单元格，需把“调制”工作表里从E3:AA的内容全部保存到数据库里对应的字段。
4、我想在Access里汇总（及合并excel三个工作表），在Access里我已经排列好汇总的字段

yty773436272 · 发表于 2012-2-1 23:41

本帖最后由 yty773436272 于 2012-2-2 00:03 编辑

adders 发表于 2012-2-1 12:48
你的要求表达不算特别清楚,所以才有2楼之疑问.我的疑问则是类似主键之类的设置,你的数据以哪一列或前4列 ...

1、感谢朋友的帮助，确实我表示不清楚，现在我已经把要求重新编辑了一下，并且把数据库的字段已统一啦
2、军品车间填写完数据后保存到数据库里，此时调制车间各工序后的内容属于空白，每个单元格里没有内容，就把军品车间前四列的内容提取到excel“调制”的黄色区域，如果“调制”表里某一产品后各工序已经填写了内容就不用提取。组装车间也是一样的
3、根据“产品编号、产品名称、生产日期”为条件，如果三个条件同时满足，就保存到后面对应的单元格。
4、我想在Access里汇总（及合并excel三个工作表），在Access里我已经排列好汇总的字段
5、我数据的更新是excel表在局域网上共享，各单位填写自已各工序的内容，然后按保存后储存到数据库里，“军品”工作表的储存命令我已经做好啦，一按“储存到数据库”命令，“军品”工作表里的数据就会全部清空并储存到数据库里。
6、能不能给Access加密码，但不影响命令的执行，我怕别人更改数据

adders · 发表于 2012-2-2 12:12

yty773436272 发表于 2012-2-1 10:41
1、感谢朋友的帮助，确实我表示不清楚，现在我已经把要求重新编辑了一下，并且把数据库的字段已统一啦 ...

1. 你这样设置ACCESS的表格是否最优,值得商榷.我还是建议分表表述,以主键(Primary Key)和辅键(Foreign Key)的方式使各表格相关

2.主键的设置如果是"产品编号、产品名称、生产日期”三列能够作为判断记录(Record or Row)唯一值,建议你将生产日期也放在前几列中(黄色部分),便于各表提取和上传数据时设置条件.

3.总体来看,要满足你全部要求,需花些精力边做边与你沟通;这里我暂时回答你关于密码的设置(以ACCESS 2003为基准),要点是先运行空白ACCESS,从里面File --> Open Exclusively方式打开你的数据库

VBA以军工表上传为例,修改如下:

Sub 另存命令()
Dim cnn As New ADODB.Connection
Dim Sql As String
Dim MySh As String
Dim Mima As String
MySh = ActiveSheet.Name
Mima = InputBox("请输入Access原始数据库密码:", "密码框")
On Error Resume Next
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\原始数据.mdb;Jet OLEDB:Database Password=" & Mima & ""
If Err.Number <> 0 Then
MsgBox " 数据库密码错误!"
Exit Sub
End If
On Error GoTo 0
Sql = "insert into 数据 select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & MySh & "$A2:H" & Range("A" & Rows.Count).End(xlUp).Row & "]"
cnn.Execute Sql
cnn.Close
Set cnn = Nothing
MsgBox "保存完毕"
End Sub

复制代码

海滨音诗 · 发表于 2012-2-2 13:10

看不懂，只能以后再学习了

yty773436272 · 发表于 2012-2-2 15:44

本帖最后由 yty773436272 于 2012-2-2 19:41 编辑

adders 发表于 2012-2-2 12:12
1. 你这样设置ACCESS的表格是否最优,值得商榷.我还是建议分表表述,以主键(Primary Key)和辅键(Foreign Ke ...

朋友，那能不能在ACCESS里把三个车间的保存过来的工作表进行合并。不要再excel里进行汇总，如果不在ACCESS里对三张表进行合并，那么只要能在excel里建一张查询表，以产品名称、编号、冶炼炉号、工令号、正火炉批次、调质炉批号1、调质炉批号2 、调质炉批号3 、生产时间为条件进行查询，查询表样就是你帮我做的“汇总”表样都可以，每个查询条件是相互关联的如：现在所有的查询条件都为空，当我输入冶炼炉号112-520，显示全部的112-520产品，这个条件我不去掉，再在生产时间里输入137，此时就显示冶炼炉号为112-520生产日期为137的产品，也就说查询条件越多，查询的就越精确，如果所有的查询条件为空，就显示全部
可以将生产日期也放在前几列中(黄色部分),，就是把生产时间和生产人对换一下位置（即把生产时间放在第5列，生产人放在第6列），将前五列在后两张表里进行提取。麻烦朋友帮帮我

yty773436272 · 发表于 2012-2-2 19:07

adders 发表于 2012-2-2 12:12
1. 你这样设置ACCESS的表格是否最优,值得商榷.我还是建议分表表述,以主键(Primary Key)和辅键(Foreign Ke ...

朋友，分表表述也可以,以主键(Primary Key)和辅键(Foreign Key)的方式使各表格相关。只要能够实现在在access里产生一张三个工作表的合并表就行，有了合并表后我方便在excel里进行查询

		自动登录	找回密码
密码			注册

提取数据库里的前四列到excel表中录入数据后并保存到对应的位置

相关帖子

评分