难？难？难？继续求助大侠们

waw751115

恳请大侠们看看：请教ComboBox1下拉框怎样自动获取access数据库表中“判定品牌”字段下的所有数据(去重复)，请教ComboBox2下拉框怎样匹配ComboBox1来自动获取access数据库表中“判定车系”字段下的所有数据(去重复)，且当选中ComboBox1下拉框某一数据时，ComboBox2下拉框的数据要关联ComboBox1的数据？意思就是当我在ComboBox1下中选中比亚迪时，ComboBox2下拉框里面的数据就全部显示比亚迪的所有车系(以比亚迪三个字开头的)。ComboBox2数据的关联ComboBox1，就是所有以ComboBox1开头的ComboBox2的数据。
窗体在Excel表格中。祝大侠们新年快乐！

micch

需要写SQL链接数据库，然后就省事了。 启动时对品牌去重提取，车系做一个查询SQL提取。

waw751115

micch 发表于 2023-1-18 12:36
需要写SQL链接数据库，然后就省事了。 启动时对品牌去重提取，车系做一个查询SQL提取。

可以帮忙写一个吗？

micch

1. Dim Cnn As Object
   
2. Dim Rst As Object
   
3. Private Sub ComboBox1_Change()
   
4.     Research Me.ComboBox2, "select distinct 判定车系 from sheet1 where 判定品牌 = '" & Me.ComboBox1.Text & "'"
   
5. End Sub
   
6. Private Sub UserForm_Initialize()
   
7.     Set Cnn = CreateObject("adodb.connection")
   
8.     Set Rst = CreateObject("adodb.recordset")
   
9.     With Cnn
   
10.         .Provider = "microsoft.ace.oledb.12.0"
    
11.         .Open "Data Source=" & ThisWorkbook.Path & "\123.accdb" & ";Jet OLEDB:DataBase Password=tf751115;"
    
12.     End With
    
13.     Research Me.ComboBox1, "select distinct 判定品牌 from sheet1"
    
14. End Sub
    
15. Private Sub UserForm_Deactivate()
    
16.     Cnn.Close
    
17.     Set Cnn = Nothing
    
18.     Set Rst = Nothing
    
19. End Sub
    
20. Private Function Research(obj, sql)
    
21.     Rst.Open sql, Cnn, 3, 2
    
22.     obj.Clear
    
23.     For i = 0 To Rst.RecordCount - 1
    
24.        obj.AddItem Rst.Fields(0).Value
    
25.        Rst.movenext
    
26.     Next
    
27.     Rst.Close
    
28. End Function
    

复制代码

徐文祝

不会accdb，所以做了一个从sheet1读取数据的二级联动菜单，供参考。
如果没用，请忽视。

waw751115

micch 发表于 2023-1-18 13:04

感谢您的讲解！祝新年愉快！

waw751115

micch 发表于 2023-1-18 13:04

您好，access数据库sheet1表中原来只有2022年12月的数据，所有我刚试了代码没有问题，但我刚测试access数据库里3年来的所有数据时，就提示错误了？是不是数据量过大，ComboBox下拉框显示就会报错啊？
已重新上传附件，麻烦大侠再帮我看一下，多谢大侠！恳请帮助！

洋务德雷

用我这个试试，好用了给个鲜花呗

waw751115

洋务德雷 发表于 2023-1-18 20:24
用我这个试试，好用了给个鲜花呗

谢谢您的讲解，我想问一下：我在窗体上另外建立一个sql查询时，怎样打开数据库啊？ rs.Open sql, cn, 3, 2这个不行啊？查询不到？麻烦告知一下？我查询的值，不是数组!还有怎样送鲜花啊？一定送。谢谢您

洋务德雷

1. arr = SqlACCESS.SQlArrNoTitle(sql)

复制代码

不用建立链接，只要用这句就可以获取数组数据。

点击右侧评分就可以送鲜花。如果还要深入学习，加我的V,即可。查询我的信息即可看到我的V