高校问答热血江湖霸皇:VB ADODC DATAGRID 查询：请高手指点
来源：百度文库 编辑：高校问答 时间：2024/04/25 12:39:26
我的这段代码不能正常运行，请问哪里不对呢
Private Sub Command1_Click()
Dim STRSQL As String
AdodcM2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\users.mdb;Persist Security Info=False"
AdodcM2.CommandType = adCmdText
STRSQL = "select * from Users where 检测日期=DTPicker2.value"
AdodcM2.RecordSource = STRSQL
Set DataGridM1.DataSource = AdodcM2
AdodcM2.Refresh
End Sub
Private Sub Command1_Click()
Dim STRSQL As String
AdodcM2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\users.mdb;Persist Security Info=False"
AdodcM2.CommandType = adCmdText
STRSQL = "select * from Users where 检测日期=DTPicker2.value"
AdodcM2.RecordSource = STRSQL
Set DataGridM1.DataSource = AdodcM2
AdodcM2.Refresh
End Sub
STRSQL = "select * from Users where 检测日期=DTPicker2.value"
这句话中的""有错误
DTPicker2.value是变量吧～
如果检测日期为字符型的话应改为：
STRSQL = "select * from Users where 检测日期="'& DTPicker2.value & "'"
还有什么问题再联系我吧～
变量要加在"'& & "'" 之间楼上的回答正确
VB，VB.NET交流
欢迎假如24885035群,请说明意图
代码成就天地人生，程序造就你我辉煌
让我们在程序的路上一起走得更远!