2012-02-16 32 views
0

能否请你帮如何查询访问数据库,并从Excel VBA检索与访问数据库查询基于一些标准的从Excel VBA值

我的算法如下:


开放访问连接数据库

选择table1.column1,table1.column2,table1.column3其中table1.column3.value =“x”和table1.column2.value =“Y”

开关盒1:如果发现从访问数据库的标准匹配的

插入一些值等没有记录......

开关案例2:如果发现记录从Access数据库

没有满足要求的需要采取的措施

开关情况3:如果发现记录与访问数据库中的值不匹配

应在Excel VBA中,datagridview的显示值

不应该允许插入值


请帮我从Excel VBA需要

感谢 Prabu中号

代码
+0

搜索,以便使用该代码'[MS-访问] [EXCEL] ado' – Fionnuala 2012-02-16 23:17:22

+0

请参阅此链接。它会给你如何着手的基本想法。 http://stackoverflow.com/questions/9083232/writing-excel-vba-to-receive-data-from-access/9085127#9085127 – 2012-02-17 01:43:51

+0

感谢老兄,但你能帮助我如何使用开关情况基于没有找到记录访问数据库或记录不符合标准 – 2012-02-17 16:51:35

回答

0

请注意,case3case1是类似的

可以

Dim recSet As Recordset 
    Set recSet = CurrentDb.OpenRecordset("Select table1.column1, table1.column2,"_ 
      & "table1.column3 where table1.column3.value = 'x' and table1.column2.value = 'y'") 
    If recSet.EOF Then 'No records matching criteria 
     'Do something 
    Else 'There was records found 
     'Do Something else 
    End If