回复 楼主 wangyiaihu
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编辑过]