MSFlexGrid1控件将ACCESS数据库中的信息显示出来的代码？

请教 大神指导，

不着急，
是自己也在同步开发，练习写，这一段，追加查询显示的内容后，老是报错，所以，看看，有没有能指导的，
每天花两三个小时，在弄这个，这两天，技术没长进，

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\服务器\生产部数据库\进料数据\2020\数据.mdb;Persist Security Info=False"
   
Adodc1.RecordSource = "一号线"
   
Adodc1.Refresh
   
Set MSFlexGrid1.DataSource = Adodc1

其中这里“\\服务器\生产部数据库\进料数据\2020\”这就是文件位置，我用的是服务器位置，如果你数据库在本地，直接找到它就行。
你也可以直接用ADODC控件直接设置数据库路径把位置写死了，但是那样不方便。看个人吧。
你也可以用字符串的方式如下，你把地址分段放在控件中，在写配置文件，这样你就可以随意更改数据库路径。

Dim A, C, b

A = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

b = 服务器

C = "\数据.mdb;Persist Security Info=False"

    Adodc1.ConnectionString = A + b + 年 + C
   
    Adodc1.RecordSource = "一号线"
   
    Adodc1.Refresh
   
    Set MSFlexGrid1.DataSource = .Adodc1

[此贴子已经被作者于2020-4-27 16:36编辑过]