Question

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

vb 求指教怎么用ADODC做相对路径连接access数据库，代码怎么写？控件属性需要这么设置？数据库连接成功后 combobox控件选择下拉某项，点击command控件后text显示ACCESS中对应的数据，这些代码都怎么写？需要什么控件，求大神指导





Answer 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

追问

哥们这个是啥意思？

追答

你的数据库是不是2007版本的啊？
把Provider=Microsoft.ACE.OLEDB.12.0;替换成PROVIDER=microsoft.jet.oledb.3.51;

追问

替换了现在提示这个了，前一个追问我自己搞错了没加ADODC控件，我现在又换回来了，一开始提示找不到“cssj”，我改成“地区1cssj”，现在这个text1有不对了，如下图

一开始提示找不到“cssj”，我改成“地区1cssj”，现在这个text1有不对了

追答

兄弟，你把combobox1和combobox2依次替换为Combo1和combo2（是你窗体上的地区1和9月上旬那个下拉组合框的名称）
然后代码中把你增加的地区1删掉

追问

替换了，点启动先弹这个不可识别的窗口

点确定后在弹这个

点调试

追答

你先告诉我你的数据库是哪个版本的？

追问

2003的

追答

把3.51换成4.0

追问

换成4.0了

追答

追问

现在选择地区和月份后点查找，右边的框能显示数据了，但是立马又弹了个这个窗口

点调试

追答

这是内容为null值的赋值，自己查资料解决吧，我困了熬不住了