Question

VB设计，ado连接数据库按条件查询失败

adodc1与access连接，datagrid1与adodc1关联，我按日期查询(查询当日)时无法在datagrid1中显示结果。代码如下：Private Sub Command5_Click()
Dim strSql As String
text20.text=date
Adodc1.Recordset.Close
strSql = "select * from dengji where 照片日期=" & (Text20.Text) & ""
Adodc1.Recordset.Open strSql, Adodc1.ConnectionString, 1, 1
DataGrid1.ReBindEnd Sub
问题出在哪？

Answer 1

你的照片日期是什么类型的?如果是datetime的话,你这句strSql = "select * from dengji where 照片日期=" & (Text20.Text) & ""
要改为strSql = "select * from dengji where 照片日期=#" & (Text20.Text) & "#"再试试~

Answer 2

有错误提示吗?如果是去掉where 照片日期=" & (Text20.Text) & ""之后是否还有结果?有的话就是类型不符没有的话就是数据库连接问题

Answer 3

本人建议尽量不用日期格式，而使用字符格式，通过格式化字符来处理