展开全部
个人建议,access数据库用DAO最好,因为有部分的ADO属性在access里不能使用。以下是DAO的内容,楼上的是ADO的内容, '引用DAO,这是必须的 Set con = OpenDatabase(App.Path & "数据库名.mdb") '中间放数据库完整路径就行,如果数据库在程序目录下,直接用 app.Path & "数据库名.mdb" strsql = "select * from 表名 " '读取access 表里的内容 Set rs = con.OpenRecordset(strsql) do until rs.eof text1.text=rs.fields("字段名") '其实就是把字段里面的数据取出来赋给text1 rs.movenext loop 如果还有不明白的,就加qq聊吧
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询