在access数据库中查找数据并填到指定位置

蓝风贝6329

我想表达的意思是：1、在excel录入单--领料单中，纱号一列填入n个纱号
                                2、在access纺部数据库---计划中，查找这n个纱号
                               3、在“计划”中找到的纱号对应的“合约号、品号”，填到excel录入单--领料单对应的纱号前的对应位置



补充内容 (2016-8-29 08:21):
在这种情况下，如何对access数据库做自动备份

as42065300

附件就不上了直接你代码
你附件里有那么多代码还不会写这个？
在唠叨几句你还不如值直接在Access里面做这些东西。

1. 
   
2. Sub 查询()
   
3. Dim MyPas$, sql$, br
   
4. Dim conn As New ADODB.Connection
   
5. MyPas = ThisWorkbook.Path & "\纺部数据库.accdb"
   
6. br = Sheet2.Range("e4:E" & Sheet2.Cells(Rows.Count, "e").End(3).Row)
   
7. For i = 1 To UBound(br)
   
8.     sq = sq & "'" & br(i, 1) & "'" & ","
   
9. Next
   
10. sq = Left(sq, Len(sq) - 1)
    
11. sql = "select 合约号,品号 from 计划 where 投料纱号 in (" & sq & ")"
    
12. conn.Open "provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & MyPas
    
13. Sheet2.Range("c4").CopyFromRecordset conn.Execute(sql)
    
14. conn.Close
    
15. Set conn = Nothing
    
16. End Sub
    

复制代码

蓝风贝6329

as42065300 发表于 2016-8-25 09:51
附件就不上了直接你代码
你附件里有那么多代码还不会写这个？
在唠叨几句你还不如值直接在Access里面做这 ...

多谢朋友帮忙，谢啦

LMY123

SQL单列条件，查询ACCESS数据库