有人可以帮助我使用我的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岁,我想学习编程。我做了一项研究,但我无法找到我真正想要的东西。提前谢谢。
答案 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
这要求您通过一组变量将值传递给函数,这些变量将值添加到命令的参数集合中,最后执行命令。
执行返回插入/更改/删除的记录数。
另请注意,您的查询没有指定字段列表,因此您需要传递值以更新基础数据表中的每个字段。