vb中根据txt的输入调用access数据库中的数据

这个我写的，调试一直form子语句语法错误。是怎么回事？
或者还能怎么写？

举报该文章

相关建议 2015-05-14

添加四个comol，一个Adodc，一个DataGrid控件

Private Sub Command1_Click()

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from ss where 国籍 like '" & Combo1.Text & "' and 性别 like '" & Combo2.Text & "'and 年龄段 like '" & Combo3.Text & "'and 百分比 like '" & Combo4.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "无数据"
Else
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End If
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=aa.mdb"
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f7mvfqv772q8vf7v87q.html

其他看法

第1个回答 2015-05-14

1,
'& text1.text & '
改成 '" & text1.text & "'

2,
recordset("[开始时间]")
改成 recordset!开始时间追问

还是一样

第2个回答 2015-05-14

Adodc1.RecordSource = "select * from 表名 where 字段名= '" & text1.Text & "'"
表名，是你打开数据库后里面的表名称
字段名，是你打开的表中的某个字段
这些都不需要再加[ ]这个括号
With Adodc1.Recordset
label3=!商品名称
end with追问

第3个回答 2017-10-31

没有看见你设置
adodc对象的Adodc1.ConnectionString 属性

第4个回答 2015-05-14

你的 [个人ID]是什么数据类型的？

相似回答

大家正在搜