向外部数据库中的表添加数据可以，但怎样读取外部数据表的值呢？

zhichaochen

向外部数据库中的表添加数据可以，但怎样读取外部数据表的值呢？
Public Sub ex01()
   Dim stmp As String
   Dim dbsNew As Database
   Dim dbs As DAO.Database
   Dim rs As ADODB.Recordset

  If Dir("c:\a.mdb") = "" Then            '查看文件是否存在
                       '如果不存在，则新建外部数据表
     Set dbsNew = DBEngine.CreateDatabase("c:\windows\shesunlog.mdb", dbLangGeneral & ";pwd=fnfjeba#5%@8", dbEncrypt)
         Set dbs = DBEngine.OpenDatabase("c:\a.mdb", , "; Pwd=a5%@8'")
     dbs.Execute "CREATE TABLE table2 (name text(10),value1 text(10) );"
     dbs.Execute "INSERT INTO table2 ( Name,value1 ) VALUES ( 'aaaa,'aaaa1);"
     dbs.Execute "INSERT INTO table2 ( Name,value1 ) VALUES ( 'bbbb,'bbbb2);"
     dbs.close
     Set tdf = Nothing
     Set dbs = Nothing
     Set dbsNew = Nothing
  
   Else
                '文件存在，读取数据
     Set dbs = DBEngine.OpenDatabase("c:\a.mdb", False, False, "MS Access; Pwd=a5%@8'")
    stmp = "select * from table2"
    Set rs = New ADODB.Recordset
      rs.Open stmp, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic
但运行到上面的这行就出现错误了，说是找不到table2这个表，是不是 stmp 这个数据源了出问题了呢，怎样读取，
我想用RS.move方式上下移记录，来读取数据，但打不开这个表，请指教？不胜感谢！

另我在论坛上找这类的问题，但查不到，是不是查找方法有问题，发现本论坛查找内容这个功能很不好用，能不能改进一下呢。

tmtony

这个在帮助里有, 但一般没有用到这个功能 可能不会注意到

zhichaochen

谢了，我试试看，看来是我的基础知识不好啊，

tmtony

select * from 表 in (其它数据库路径)
这是最简单读取外部数据的方法