Question

VB查询数据库问题...很简单,高手帮忙

过程"采购退货单"的请求失败,因为"采购退货单"是表对象
注:采购退货单为数据库名称
下面是代码:
Private Sub Command1_Click()
On Error Resume Next
Adodc4.CommandType = adCmdText
Dim strSearch As String
If Option6.Value = True Then
strSearch = Combo4.Text
Adodc3.RecordSource = "select * from 采购入库单 where 单据号='" & strSearch & "'"
ElseIf Option5.Value = True Then
strSearch = Combo1.Text
Adodc3.RecordSource = "select * from 采购入库单 where 商品编号='" & strSearch & "'"
ElseIf Option6.Value = True Then
strSearch = DTPicker2
Adodc3.RecordSource = "select * from 采购入库单 where 采购日期='" & strSearch & "'"
End If
Set MSHFlexGrid2.DataSource = Adodc4
Adodc4.Refresh
End Sub

Answer 1

好像没什么问题