Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

recordset.find查询结果异常的问题

陈较瘦  发表于:2020-03-12 23:20:46  
复制

 Set rs = cnn.OpenSchema(adSchemaTables)
    For i = 1 To 12
                
        rs.Find "table_name = 'jbgl_wlb_ " & y2 & " _ " & i & "'"
        
        If rs.EOF = False Then
        Else
            sql = "select * into [jbgl_wlb_ " & y2 & " _ " & i & "]  from jbgl_wlb_model"
            cnn.Execute sql
        End If

Next i


数据库中 jbgl_wlb_ 2020 _ 10 是存在的,正常运行应该是不会出现如下错误提示的吧?

点调试,sql = "select * into [jbgl_wlb_ " & y2 & " _ " & i & "] from jbgl_wlb_model" 这行代码标黄

请问各位大神应该怎么完善代码? 困扰了一晚上,谢谢了!

 

Top
陈较瘦 发表于:2020-03-12 23:37:37
已自己解决。。
If rs.EOF = False Then   改为 if rs.bof = false or rs.EOF = False Then 就行了 


陈较瘦 发表于:2020-03-12 23:38:33
 rs.eof是有表 没有记录
 rs.bof是没有表

总记录:2篇  页次:1/1 9 1 :