mmmzhaomin 2013-06-07 10:50
浏览 1022

程序报错,说至少有一个参数值没有被指定

Private Sub Form_Load()
'器材类别信息加入到equAdd组合框中
Dim rs As New ADODB.Recordset
Dim sqlType As String
sqlType = "select typename from equtype order by typename"
Set rs = TransactSQL(sqlType)
While Not rs.EOF
equType.AddItem rs(0)
rs.MoveNext
Wend
rs.Close

  '操作选择
If ModifyEqFlag2 = True Then
  'Dim rs As New ADODB.Recordset
  Dim sql As String
  sql = "select * from equs where equNO ='" & ModifyEqFlag1 & "'"
  Set rs = TransactSQL(sql)
  equNo.Text = rs.Fields(0)
  equNo.Locked = True   ' 使不可改动
  equMod.Text = rs.Fields(1)
  equLen.Text = rs.Fields(2)
  equName.Text = rs.Fields(3)
  equEngName.Text = rs.Fields(4)
  equPinyin.Text = rs.Fields(5)
  equNece.Text = rs.Fields(6)
  equBrand.Text = rs.Fields(7)
  equType.Text = rs.Fields(8)
  equBuyDTP.Value = rs.Fields(9)
  equSim.Text = rs.Fields(10)
  equOri.Text = rs.Fields(11)
  equPrice.Text = rs.Fields(12)
  equEnrolDTP.Value = rs.Fields(13)
  equOther.Text = rs.Fields(14)

  ModifyEqFlag2 = ModifyEqFlag2 Xor True
  addEqOK.Enabled = False

Else
modifyEqOK.Enabled = False
End If
End Sub

Private Sub modifyEqOK_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "update equs set equNo= '" & equNo.Text & "',equmod='" & equMod.Text & "'"
sql = sql & ",equlen='" & equLen.Text & "',equname='" & equName.Text & "'"
sql = sql & ",equengname='" & equEngName.Text & "',equpinyin='" & equPinyin.Text & "'"
sql = sql & ",equnece='" & equNece.Text & "',equbrand='" & equBrand.Text & "'"
sql = sql & ",equtype='" & equType.Text & "',equbuydate='" & Format(equBuyDTP.Value, "yyyy-mm-dd") & "'"
sql = sql & ",equsim='" & equSim.Text & "',equori='" & equOri.Text & "'"
sql = sql & ",equprice='" & equPrice.Text & "',equenroldate='" & Format(equEnrolDTP.Value, "yyyy-mm-dd") & "'"
sql = sql & ",equother='" & equOther.Text & "' where equno='" & equNo.Text & "'"

If Trim(equNo.Text) = "" Or Trim(equMod.Text) = "" Or Trim(equLen.Text) = "" Or _
Trim(equName.Text) = "" Or Trim(equEngName.Text) = "" Or Trim(equPinyin.Text) = "" Or _
Trim(equNece.Text) = "" Or Trim(equBrand.Text) = "" Or Trim(equType.Text) = "" Or _
Trim(equBuyDTP.Value) = "" Or Trim(equSim.Text) = "" Or Trim(equOri.Text) = "" Or _
Trim(equPrice.Text) = "" Or Trim(equEnrolDTP.Value) = "" Or Trim(equOther) = "" Then
MsgBox "器材信息录入不能为空!", vbOKOnly
Else
TransactSQL (sql)
MsgBox "器材信息修改成功!", vbOKOnly
Unload Me
End If
End Sub

  • 写回答

0条回答

    报告相同问题?

    悬赏问题

    • ¥15 求差集那个函数有问题,有无佬可以解决
    • ¥15 MATLAB动图问题
    • ¥15 【提问】基于Invest的水源涵养
    • ¥20 微信网友居然可以通过vx号找到我绑的手机号
    • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
    • ¥15 解riccati方程组
    • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
    • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
    • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
    • ¥50 树莓派安卓APK系统签名