标题: 向外部数据库中的表添加数据可以，但怎样读取外部数据表的值呢？ [打印本页] 作者: zhichaochen 时间: 2008-3-7 10:34 标题: 向外部数据库中的表添加数据可以，但怎样读取外部数据表的值呢？ 向外部数据库中的表添加数据可以，但怎样读取外部数据表的值呢？
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方式上下移记录，来读取数据，但打不开这个表，请指教？不胜感谢！