关于数据表的update问题！请高手进来解决！
If con.State = ConnectionState.Closed Then con.Open()
Try
Dim CtnNo As New OleDbParameter("@CtnNo", OleDbType.Char, 4)
Dim upc As New OleDbParameter("@upc", OleDbType.Char, 13)
Dim qty As New OleDbParameter("@qty", OleDbType.Numeric, 5)
Dim com As New OleDbCommand("UPDATE orderdtl SET sku_qty=@qty WHERE [order]=@ctnno AND upc=@upc", con)
com.Parameters.Add(CtnNo)
com.Parameters.Add(upc)
com.Parameters.Add(qty)
CtnNo.Value = myrow("order")
upc.Value = myrow("upc")
qty.Value = Trim(Tbqty.Text)
com.ExecuteNonQuery()
con.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
运行没有错误提示，但数据没有更新，请兄弟们看看？
问题点数：0、回复次数：3Top
1 楼kv_2000（睡眠与沉默）回复于 2005-09-01 16:48:46 得分 0
同志，请写了注释发上来，人忙了就没空看你的这些东西了Top
2 楼new0010（飞）回复于 2005-09-01 19:55:28 得分 0
上面是通过参数来update一个dbf表，这个程序也很简单，代码也没几行。麻烦高手再看看！谢谢Top
3 楼new0010（飞）回复于 2005-09-01 20:03:08 得分 0
If con.State = ConnectionState.Closed Then con.Open() '打开连接
Try
’定义参数
Dim CtnNo As New OleDbParameter("@CtnNo", OleDbType.Char, 4)
Dim upc As New OleDbParameter("@upc", OleDbType.Char, 13)
Dim qty As New OleDbParameter("@qty", OleDbType.Numeric, 5)
‘定义一个oledbcommand实例
Dim com As New OleDbCommand("UPDATE orderdtl SET sku_qty=@qty WHERE [order]=@ctnno AND upc=@upc", con)
’将定义的参数添加到sql语句中
com.Parameters.Add(CtnNo)
com.Parameters.Add(upc)
com.Parameters.Add(qty)
‘给参数赋值
CtnNo.Value = myrow("order")
upc.Value = myrow("upc")
qty.Value = Trim(Tbqty.Text)
com.ExecuteNonQuery() '执行sql语句
con.Close()’关闭连接
Catch ex As Exception
MessageBox.Show(ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Top
