UC知道VB至少一个参数没被指定值
来源：百度知道 编辑：UC知道 时间：2024/05/28 06:32:31
Private Sub Cmdok_Click()
If Txtname.Text = "" Or Txtll.Text = "" Or Cboxb.Text = "" Or Txtdh.Text = "" Or Txtsj.Text = "" Or Txtzz.Text = "" Or Txtdw.Text = "" Then
a = MsgBox("请输入完整的资料,没有资料的填写无！", 0, "提示")
Txtname.SetFocus
Else
re.Open "select * from message order by 编号 ", conn, 3, 1
com.ActiveConnection = conn
com.CommandText = "insert into message values(trim('" & Txtbh & "'),(trim('" & Txtname & "'),trim('" & Txtll & "'),trim('" & Cboxb & "'),trim('" & Txtdh & "'),trim('" & Txtsj & "'),trim('" & Txtzz & "'),trim('" & Txtdw & "'))"
conn.BeginTrans
com.Execute
conn.CommitTrans
re.Close
a
If Txtname.Text = "" Or Txtll.Text = "" Or Cboxb.Text = "" Or Txtdh.Text = "" Or Txtsj.Text = "" Or Txtzz.Text = "" Or Txtdw.Text = "" Then
a = MsgBox("请输入完整的资料,没有资料的填写无！", 0, "提示")
Txtname.SetFocus
Else
re.Open "select * from message order by 编号 ", conn, 3, 1
com.ActiveConnection = conn
com.CommandText = "insert into message values(trim('" & Txtbh & "'),(trim('" & Txtname & "'),trim('" & Txtll & "'),trim('" & Cboxb & "'),trim('" & Txtdh & "'),trim('" & Txtsj & "'),trim('" & Txtzz & "'),trim('" & Txtdw & "'))"
conn.BeginTrans
com.Execute
conn.CommitTrans
re.Close
a
com.CommandText = "insert into message values(trim('" & Txtbh & "'),(trim('" & Txtname & "'),trim('" & Txtll & "'),trim('" & Cboxb & "'),trim('" & Txtdh & "'),trim('" & Txtsj & "'),trim('" & Txtzz & "'),trim('" & Txtdw & "'))"
你这种写法 没有写字段 所以你的values里面的东西必须要和表中的字段数量
对应上 就是比如你的表里有5个字段 那么你的values里面就必须有5个字段
com.CommandText = "insert into message values(trim('" & Txtbh & "'),(trim('" & Txtname & "'),trim('" & Txtll & "'),trim('" & Cboxb & "'),trim('" & Txtdh & "'),trim('" & Txtsj & "'),trim('" & Txtzz & "'),trim('" & Txtdw & "'))"
这句话里面你没有指定表的字段名吧..只传递了值过去..
正确写法是
Insert into 表名(字段1,字段2,.....) Values('值1','值2',.....)