Question

我在使用vb.net和MySql

从两个不同的表中插入项目时遇到问题

这是单个查询中的项目表和股票表：

Dim rsitem As New ADODB.Recordset

    rsitem.CursorLocation = ADODB.CursorLocationEnum.adUseClient
    rsitem.CursorType = ADODB.CursorTypeEnum.adOpenDynamic
    rsitem.Open("Insert Into items,stocks itemno = '" & txtItemNo.Text & "', Description = '" & txtDescription.Text & "', Price = '" & txtPrice.Text & "', Brand = '" & txtBrand.Text & "', stocks_on_hand = '" & txtStocks.text &"'",cn)

我的问题是当我输入输入框时，txtStocks.text没有显示我从我的vb.net输入到mysql db中的内容。我想我的查询错了。有人能帮我吗。？

Answer 1

首先，您需要确保文本框不为空
然后关于你的rsitem.Open，我看到你打开它两次。
第三，你的查询错了！你想要插入的表的名称是什么？我想这是项目？

您可以尝试以下操作;

If not (String.IsNullOrEmpty(txtItemNo.Text) Orelse String.IsNullOrEmpty(txtDescription.Text) Orelse _
        String.IsNullOrEmpty(txtPrice.Text) Orelse String.IsNullOrEmpty(txtBrand.Text) Orelse _
        String.IsNullOrEmpty(txtStocks.Text) Then

    rsitem.CursorLocation = ADODB.CursorLocationEnum.adUseClient
    rsitem.CursorType = ADODB.CursorTypeEnum.adOpenDynamic
    rsitem.Open(String.format( _
                "Insert Into items (itemno, Description, Price, Brand, stocks_on_hand) values ('{0}','{1}','{2}','{3}','{4}') ", _
    txtItemNo.Text, txtDescription.Text, txtPrice.Text, txtBrand.Text, txtStocks.text), connection) 

End If

如何将查询插入两个diff表vb.net

1 个答案: