使用vb.net(n层)在mysql中插入数据

时间:2014-06-07 13:50:16

标签: vb.net n-tier-architecture

有人可以帮助我使用我的vb.codes吗?我是vb.net的新手,我想知道如何在vb.net中使用n-tier在mysql数据库中添加数据。这可能是添加数据时的当前代码:

数据层:

Public Function addData() As DataTable
    Dim myCommand As String = "Insert Into tblItems VALUES (@Itemcode, @Itemname, @Itemdescription, @Itemtype, @Itempricing, @Itemonstock, @Itemprice, @Datemod)"
    con.Open()
    Dim sda As New MySqlDataAdapter(myCommand, con)
    Dim dt As DataTable = New DataTable
    sda.Fill(dt)
    Return dt
End Function
抱歉我的代码。我真的不知道如何在BLL和PL中使用它。请帮我。我真的想向你们所有人学习......

PS:对不起我的英语我14岁,我想学习编程。我做了一项研究,但我无法找到我真正想要的东西。提前谢谢。

1 个答案:

答案 0 :(得分:0)

要在数据表中插入新记录,您需要执行命令并提供要发送到数据库表的值。

你需要这样的东西。

Public Function addData(itmCode as String, itmName as String.... omitted the other values) As Integer
    Dim myCommand As String = "Insert Into tblItems VALUES " & _ 
                              "(@Itemcode, @Itemname, @Itemdescription, " & _
                               "@Itemtype, @Itempricing, @Itemonstock, @Itemprice, @Datemod)"
    con.Open()
    Dim cmd As New MySqlCommand(myCommand, con)
    cmd.Parameters.AddWithValue("@ItemCode", itmCode)
    cmd.Parameters.AddWithValue("@ItemName", itmName)
    .... other parameters for the other values to insert will follow....

    Dim rowInserted = cmd.ExecuteNonQuery()
    return rowInserted
End Function

这要求您通过一组变量将值传递给函数,这些变量将值添加到命令的参数集合中,最后执行命令。
执行返回插入/更改/删除的记录数。

另请注意,您的查询没有指定字段列表,因此您需要传递值以更新基础数据表中的每个字段。