UC知道高手们，帮忙解释下这段代码为什么总在运行时显示错误呢？
来源：百度知道 编辑：UC知道 时间：2024/05/15 18:31:29
dim strDB as string
dim sqlB as string
dim rs_B as new ADODB.Recordset
If Combo1.ListIndex = 0 Then
strDB = ""
Else
strDB = "and 代表明细表.代表名称=' & Combo1.Text & """
End If
sqlB = " select* from 流向表,药店明细表,代表明细表 where 流向表.药店名称=药店明细表.药店名称 " & strDB & ""
rs_B.Open sqlB, conn, adOpenForwardOnly, adLockReadOnly →此句在运行过程中老是指示错误为：“至少一个参数未被指定值”
Unload Me
frmdatamanage.displaygrid1
End Sub
看哪位高手能解释我心中疑惑？在此谢谢了！
dim sqlB as string
dim rs_B as new ADODB.Recordset
If Combo1.ListIndex = 0 Then
strDB = ""
Else
strDB = "and 代表明细表.代表名称=' & Combo1.Text & """
End If
sqlB = " select* from 流向表,药店明细表,代表明细表 where 流向表.药店名称=药店明细表.药店名称 " & strDB & ""
rs_B.Open sqlB, conn, adOpenForwardOnly, adLockReadOnly →此句在运行过程中老是指示错误为：“至少一个参数未被指定值”
Unload Me
frmdatamanage.displaygrid1
End Sub
看哪位高手能解释我心中疑惑？在此谢谢了！
strDB = "and 代表明细表.代表名称=' & Combo1.Text & """
改为:
strDB = "and 代表明细表.代表名称='" & Combo1.Text & "'"
rs_B.Open sqlB, conn, adOpenForwardOnly, adLockReadOnly
把这句分情况换成下面的其中一句:
查询数据库:rs_B.Open sqlB, conn, 1,1
修改数据库:rs_B.Open sqlB, conn, 1,3