我想连接c:\db\mydb.mdb数据库，并执行一条"select * from table"语句，显示所有记录，如何写。

Question

dim cn as new adodb.connection
dim rs as new adodb.recordsetcn.open "Dreiver={Microsoft Access Driver(*.mdb)};dbq=c:\db\mydb.mdb;"
rs.open "select *from table",cn,adopenkeyset,adlockreadonly

Answer 1

1: dim db as database
  dim rs as recordset  set db=opendatabase("c:\db\mydb.mdb")
  set rs=db.openrecordset("select * from table")2:用数据控件data1，data1的databasename属性设为c:\db\mydb.mdb，将data1的recordsource属性设置为"select * from table"

Answer 2

Z7805:
结果显示找不到数据源，当然我保证是对的。不知为什么？big_bird:
不会吧，我一按那个recordsource，就说我的MDB数据库格式不对。
我是access2000的，可以打开的呀，奇怪了。

Answer 3

如果用ACCESS2000则要引用DAO3.6才可以，当然如果用ADO则没有什么问题。

Answer 4

with rsYourRecordset
     do until .EOF
           'here is your code
     .MoveNext
     Loop
end with

Answer 5

我是用ADO连接的，发布如何发布呢，别人又没有我的数据源啊。

Answer 6

用ADO Data 控件试试。
ado data 有connectionstring 和recordsource两个属性。

Answer 7

access2000与VB6.0的ADO有兼容性问题