Can'；t删除行数据网格视图&；Can'；t从textbox VB.Net向数据库MYSQL（ODBC）插入数据

这是我目前的代码：

Imports System.Data.Odbc
Imports System.Data.SqlClient
Imports System.Data
Imports System
Public Class FormInput1
    Dim sCommand As Odbc.OdbcCommand
    Dim sAdapter As Odbc.OdbcDataAdapter
    Dim sBuilder As Odbc.OdbcCommandBuilder
    Dim sDs As DataSet
    Dim sTable As DataTable
Private Sub CmdLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLoad.Click
Dim sql As String = "SELECT * FROM TblInput1"
        OpenDB()

        sCommand = New Odbc.OdbcCommand(sql, con)
        sAdapter = New Odbc.OdbcDataAdapter(sCommand)
        sBuilder = New Odbc.OdbcCommandBuilder(sAdapter)
        sDs = New DataSet()
        sAdapter.Fill(sDs, "TblInput1")
        sTable = sDs.Tables("TblInput1")
        con.Close()
        DGVInput1.DataSource = sDs.Tables("TblInput1")
        DGVInput1.ReadOnly = True
        CmdSave.Enabled = False
        DGVInput1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    End Sub

    Private Sub CmdAddEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAddEdit.Click
        DGVInput1.[ReadOnly] = False
        CmdSave.Enabled = True
        CmdAddEdit.Enabled = False
        CmdDelete.Enabled = False

    End Sub

    Private Sub CmdDelete_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdDelete.Click

        If MessageBox.Show("Do you want to delete this row ?", "Delete", MessageBoxButtons.YesNo) = DialogResult.Yes Then
            DGVInput1.Rows.RemoveAt(DGVInput1.SelectedRows(0).Index)
            sAdapter.Update(sTable)

        End If
    End Sub

无法删除行（CmdDelete）

---

我有更多的问题，我有

txtporiode.Text

，

Txtstore.Text

和

TxtPartNumber.Text

当我单击命令按钮“保存到数据库”时无法插入到表“TblInput1”

---

检索数据时，将

DataTable

绑定到

BindingSource

并将其绑定到网格。要删除所选记录，请在

BindingSource

上调用

RemoveCurrent

，删除基础

DataRow

，这会从网格中删除相应的行。在数据适配器上调用

Update

时，已删除的

行状态为
RowState
的行将从数据库中删除相应的记录。
感谢@jmcilhinneey在代码绑定时出错源设置：无法获取名为“
stocktaking
”的数据库对象的列信息。
tblinput1
”然后您做错了。因为我看不出你做了什么，我只能猜测你做错了什么。如果这就是您要使用的全部内容，那么首先只需创建一个
DataTable
。是否为一个
字符串创建数组？那么为什么要为一个数据表创建一个数据集呢？
    Private Sub CmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSave.Click
        sAdapter.Update(sTable)
        DGVInput1.[ReadOnly] = True
        CmdSave.Enabled = False
        CmdAddEdit.Enabled = True
        CmdDelete.Enabled = True
    End Sub