51Testing软件测试论坛

标题: sql一直显示有个参数未指明这个问题该怎么解决 [打印本页]
作者: 测试积点老人    时间: 2019-12-13 10:17
标题: sql一直显示有个参数未指明这个问题该怎么解决
sql一直显示有个参数未指明这个问题该怎么解决

  1. <p>Private Sub Command15_Click()
  2. Dim sql As String
  3. Dim rst As ADODB.Recordset
  4. Dim number As Integer
  5. If IsNull(Me![仓库编号]) Then
  6. MsgBox "请选择仓库"
  7. DoCmd.GoToControl "仓库编号"</p><p>ElseIf IsNull(Me![商品编号]) Then
  8. MsgBox "请选择商品编号"
  9. DoCmd.GoToControl "商品编号"
  10. Else
  11. sql = "select *from 商品表 where [仓库编号]= '" & Me![仓库编号] & "'"
  12. sql = sql & "and [商品编号]=" & Me![商品编号]
  13. Set rst = New ADODB.Recordset
  14. rst.ActiveConnection = CurrentProject.Connection
  15. rst.CursorType = adOpenDynamic
  16. rst.LockType = adLockOptimistic
  17. rst.Open sql
  18. If Not (rst.EOF) Then
  19. number = rst!当前库存数量
  20. rst.Close
  21. Set rst = Nothing
  22. sql = "当前库存数量为：" & number
  23. MsgBox sql
  24. Exit Sub
  25. Else
  26. rst.Close
  27. Set rst = Nothing
  28. MsgBox "当前仓库中没有该商品库存"
  29. Exit Sub
  30. End If
  31. End If
  32. End Sub</p>
复制代码


作者: 海海豚    时间: 2019-12-16 09:48
最好把报错贴上来
作者: bellas    时间: 2019-12-16 09:57
看一下报错具体是哪一行，sql连接能打开么，拼接的sql是否正确。
作者: litingting0214    时间: 2019-12-16 11:02
看下日志，定位一下错误原因
作者: qqq911    时间: 2019-12-16 11:23
检查下sql
作者: jingzizx    时间: 2019-12-16 15:56
没错啊



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2