80并以前的20分提一问～

Question

strapp=app.path 是获得当前系统的路径，
在你引用的时候必须保证当前路径下有“db1.mdb”文件！！！
我理解你的
  If Right(strapp, 1) <> "\" Then
    strapp = strapp + "\"
  End If
的意思
但是，最好是用commondialog获得FileName
然后替换strapp & "db1.mdb"代码！

Answer 1

谢谢～告诉用什么代码去连就可以了，数据库的路径并不是一个问题！
如果用commondialog选择数据库，那么余下的如何操作？？

Answer 2

Security Info=False;Data Source=" & app.path & "\db1.mdb" db1.mdb 必须与当前程序在同一目录下！

Answer 3

引用部件 Microsoft Common Dialog Control 6.0
然后直接放置CommonDialog控件
用CommonDialog.ShowOpen之后可以返回Commondialog.FileName 
在引用就可以了！！！

Answer 4

把
  Connection1.Connectionsource     = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strapp & "db1.mdb"  '错误：要求对像
替换成
Connection1.Connectionsource = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & CommonDialog.filename  '错误：要求对像
同时保证真的有数据库文件打开了！就是commonDialog.Filename<>""
且commondialog.DefaultExt ＝“.MDB”

Answer 5

引用ado了～
云兄，我后面的那个“'错误：要求对像”是我加上的，程序在这儿出错，要求对像，我加上对像DataEnvironment1.Connection1.Connectionsource = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strapp & "db1.mdb"后，说是对像不支持命名参数！

Answer 6

不好意思，不知道我说对没有，不过我还是要说一说。
你把
Connection1.Connectionsource = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strapp & "db1.mdb"  '错误：要求对像
改为
Connection1.Connectionstring= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strapp & "db1.mdb"  '错误：要求对像
看看行不行。
首先要引用
dim connection1 as new adodb.connection
谢谢。可能和你的有误。

Answer 7

Set cn = New ADODB.Connection

Answer 8

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strapp & "db1.mdb"  ;Persist Security Info=False