如何把生成的语句该为当前目录下的文件
app.path

解决方案 »

  1.   

    说的不对,安装后路径会变化的,aod的数据源会丢失
      

  2.   

    指定路径:app.path+"\mdb\899.mdb"
      

  3.   


    工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)    Dim CN   As New ADODB.Connection                '定义数据库的连接
        Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"     CN.Open
        Rs.CursorLocation = adUseClient
        Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
       Set DataGrid1.DataSource = Rs
      

  4.   

    可能我没解释清楚,使用环境是Datacombo和Adodc的连接,Adodc使用的是ODBC但是改变数据源的路径后或打包安装在别的机器上时,会丢失数据源,请问如何解决
      

  5.   

    生搬硬套,不灵活,回答问题不认真
    指定路径:app.path+  "\mdb\899.mdb  " 是错的,不能使用
    把数据库表放在工程文件夹中。太深奥!?费解。
      

  6.   

    app.path是程序所在的文件夹,不管是开发时,还是安装以后,"\mdb\899.mdb",是可以的但是作安装盘时,要指定数据库文件相对路径\mdb\899.mdb
      

  7.   

    不要用ODBC,连接字符串改为"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\mdb\899.mdb"
      

  8.   

    不要用adodc,用楼上lihonggen0(李洪根,用.NET,标准答案来了)那样直接打开连接和记录集,把显示控件的数据源设为此记录集即可
      

  9.   

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

  10.   

    请教问题  
    Adodc控用到"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" 库文件.mdb",
    data1.databasename=""&app.path&"\库文件.mdb"
    ===========================================
    是从一台电脑拷到另一台相同的位置会出现数据错误事件命中错误:定义的应用程序或对象错误"我考虑是找不到库文件.mdb
      

  11.   

    data1.recordset.lastmodified
    对应ado中什么函数
    谢谢
      

  12.   

    To lihonggen0(李洪根,用.NET,标准答案来了):
      Rs.CursorLocation = adUseClient  是什么意思,能解释一下吗?
      另外,Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic 中,adOpenDynamic 可不可以改成 adOpenStatic.谢谢
      

  13.   

    CursorLocation 分成 用户端 和 服务器端两种, adUseClient 表示 用户端adOpenDynamic 和 adOpenStatic 分别是动态和静态两种方式。可以改成 adOpenStatic 
    改成 adOpenStatic 以后 RecordCount 就可以用了。要不然会一直为 -1.
      

  14.   


        CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb" 
      

  15.   

    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb" 这个做法是对的!