求自定义ADO连接ACCESS数据库出错提示

fnsmydyang

在用ADO访问ACCESS数据库时，会有一些意外的问题发生，为了得到问题的原因，是否可以自定一些提示呢？
　　　例如：
　　　dim cnn as new adodb.connection
          dim rs as new adodb.recordest
          private sub form_load()
                  cnn.open "provider=microsoft.jet.oledb.4.0;data source=" & app.pach & "\db1.mdb;persist security info=false"
                  rs.open "select * from kc",cnn,1,3
                  .......
          end sub
  1. 如果数据库名称更改或意外删除,不存在该如何自定义提示.
  2. 如果数据库损坏需要修复怎样提示,CNN未colse 多次连接又该如何提示.
望各位老师指点一二,不胜感激,谢谢!!!

Henry D. Sy

data source=" & app.pach
这是什么

fnsmydyang

不好意思,错了,是app.path 是程序文件路径,数据库放在程序目录文件下.

Henry D. Sy

currentproject.path

fnsmydyang

是这样,我还以为和VB一样呢,哪其它提示问题怎么解决?
1. 如果数据库名称更改或意外删除,不存在该如何自定义提示.
  2. 如果数据库损坏需要修复怎样提示,CNN未colse 多次连接又该如何提示.
[:17]

Henry D. Sy

1. 如果数据库名称更改或意外删除,不存在该如何自定义提示.
连接前判断文件存在与否
2. 如果数据库损坏需要修复怎样提示，
系统会提示的
3.CNN未colse
为什么不关
4多次连接又该如何提示.
在代码中加入错误处理代码

fnsmydyang

好简洁,感谢,新年快乐,好人一生平安...[:11]
连接前判断文件存在与否，代码怎么写........

Henry D. Sy

FileExists 方法

fnsmydyang

6D老师,FileExists怎么用啊,请教...

fnsmydyang

ACCESS帮助内没有啊