vb 用ADODC做相对路径连接access数据库

2025-05-12 13:17:27

推荐回答（1个）

回答1：

FileDir = App.Path & "\"
FileName = "数据库名称.accdb"

FullFileName = FileDir + FileName
ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + FullFileName + ";Jet OLEDB:Database Password=123456;Persist Security Info=False;"
Adodc1.ConnectionString = ConnStr
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from " & combobox1 & "cssj where 日期='" & combobox2 & "'"
Adodc1.Refresh

text1 = AdodcEmp.Recordset.Fields(2).Value
text2 = AdodcEmp.Recordset.Fields(3).Value
text3 = AdodcEmp.Recordset.Fields(4).Value
text4 = AdodcEmp.Recordset.Fields(5).Value