可以定义一个对象,在Form_Load时定义路径,然后打开。
列子:
Dim Contract As DAO.Database
Dim sql as string
Private Sub Form_Load()
Set Contract = OpenDatabase("D:\crystal.mdb")
sql="select #### from TableName"
contract.execute(sql)
End Sub
列子:
Dim Contract As DAO.Database
Dim sql as string
Private Sub Form_Load()
Set Contract = OpenDatabase("D:\crystal.mdb")
sql="select #### from TableName"
contract.execute(sql)
End Sub
解决方案 »
- 在线求此sql语句
- Reporting Services 不能向263邮箱发送订阅邮件的问题
- 这个功能如何实现?
- 在SQL SERVER 2000 中的外部连接是怎么连的?(100)
- 交叉报表求教(难)
- 数据库优化的问题
- 如何将master库里的某张表表导入到Access数据库文件,除了用BCP工具以外,有没有SQL语句可以完成此功能
- oracle数据库重构(主机名发生变化)
- ===这样语句怎么写:关于几个表的复合查询(急急急,高分求救!!!)===
- 为什么对存储过程不用任何修改,仅仅用alter proc spname(当然包括里面的所有脚本)后,它的执行速度变快
- 高分求解:在MSSqlServer中,这样的sql语句怎么写?
- vb6做数据库怎么才能用acess2000???大侠帮我!
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Printerjob.mdb;Persist Security Info=False
不要误人子弟了用DAO最简单
如下:
dim db as database
dim rst as recordset
set db=dbengine.workspaces(0).Opendatabase("....mdb")
set rst=db.Openrecordset("Select * from ....")
此时连接成功你就可以读内容了