急!急!急!adodc控件获取connectionstring的相对路径问题

Question

我用了一个adodc控件,控件要求必须指定connectionstring的数据库路径,我想通过app.path动态加载数据库路径,请问adodc.connectionstring="...."应该写在什么地方?

Answer 1

Private Sub Form_Load()
  With Adodc1
  '.ConnectionString = "driver={SQL Server};server=yang;uid=sa;pwd=;ConnectionTimeout=0;database=zjy"
  .ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\csdn_vb\database\adodc\article.mdb;Persist Security Info=False"
  
  .RecordSource = "select * from mz mc like '%看%'"
  .Refresh  '光标停在这一列
End With
End Sub

Answer 2

If Right(App.Path, 1) = "\" Then
   apppath = App.Path
Else
   apppath = App.Path & "\"
End If
DbFileName = apppath & "order.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbFileName & ";Persist Security Info=False;"
conn.Open ConnectString

Answer 3

唉..晚来一步,online(龙卷风V2.0--再战江湖)的即可

Answer 4

Private Sub Command1_Click()
 Dim strConn As String
 
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 
 Adodc1.ConnectionString = strConn
 
 Adodc1.CommandType = adCmdText
 
 Adodc1.RecordSource = "Select * from People"
 
 Set DataGrid2.DataSource = Adodc1
End Sub

Answer 5

劝你别用Adodc控件，有BUG！！！
用ADODB对象群吧，Adodc也是引用他的，语法一模一样一般就是定义三个对象
Dim db as New ADODB.Connection
Dim rs as New ADODB.Recordset
Dim cmd as New ADODB.Command
或
Dim WithEvent db as New ADODB.Connection
Dim WithEvent rs as New ADODB.Recordset
Dim cmd as New ADODB.Command
Adodc就是直接调用这三个对象的，而且微软的东西实在太差了，一般情况下都是没人用的才放出来的。我用了至少4年了，一直都用得很好，而且还可以做到在后台查询而不影响前台程序的工作，他们都有一套很完整的事件让你控制这个操作。