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 活动选择题。最多可以参加几个项目?
    • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
    • ¥15 vs2019中数据导出问题
    • ¥20 云服务Linux系统TCP-MSS值修改?
    • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)
    • ¥20 怎么在stm32门禁成品上增加查询记录功能
    • ¥15 Source insight编写代码后使用CCS5.2版本import之后,代码跳到注释行里面
    • ¥50 NT4.0系统 STOP:0X0000007B
    • ¥15 想问一下stata17中这段代码哪里有问题呀