对象refresh的方法iadodc失败 5
DimmAsStringm=InputBox("请输入车序号")Adocar.RecordSource="Select*FromcarWhere"&"(((car.car...
Dim m As String
m = InputBox("请输入车序号")
Adocar.RecordSource = "Select * From car Where " & "(((car.carid)='" & m & "'))"
Adocar.RecordSource = m
Adocar.Refresh
If Adocar.Recordset.EOF Then
MsgBox ("无此车!")
Adocar.RecordSource = "Select * From car"
Adocar.Refresh
End If 展开
m = InputBox("请输入车序号")
Adocar.RecordSource = "Select * From car Where " & "(((car.carid)='" & m & "'))"
Adocar.RecordSource = m
Adocar.Refresh
If Adocar.Recordset.EOF Then
MsgBox ("无此车!")
Adocar.RecordSource = "Select * From car"
Adocar.Refresh
End If 展开
1个回答
展开全部
Adocar.RecordSource ="Select * From car Where carid='" & m & "'"
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
