从datagrid视图中删除记录

请帮助我。我在创建的支票打印系统中添加了一个删除方法，但在它运行良好之前，但是当我将其中的Check_Number字段的数据类型从text更改为number时，它们不再删除数据行我选择。我不记得更改删除部分的任何代码。你们有没有想法如何解决这个问题？先谢谢你。更强大！从datagrid视图中删除记录

不同Bank_ [BANKNAME]具有FF字段和数据类型：

ID - AutoNumber 
Check_Number - Number 
Company_ID - Text

我VN_ZAM表具有FF字段和数据类型：

ID - AutoNumber 
Voucher_Number - Number 
Check_Number - Text 
Bank_Type - Text 
Company_ID - Text

我SS表具有FF字段和数据类型（这也是数据网格视图中的数据取自的地方）：

ID - AutoNumber 
Check_No - Text 
Voucher_No - Text 
Issue_Date - Date/Time 
Company_Name - Text 
Bank_Type - Text 
Amount_in_Figure - Number 
Amount_in_Words - Text 
Payee - Text

我datagridview的顺序是这样的：

ID | Check_No | Voucher_No | Issue_Date | Company_Name |Bank_Type | Amount_in_Figure | Amount_in_Words | Payee

。

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click 
    Dim provider As String 
    Dim dataFile As String 
    Dim connString As String 
    Dim myConnection As OleDbConnection = New OleDbConnection 
    Dim sql As String 
    Dim sql1 As String 
    Dim sql2 As String 
    Dim answer As Integer 

    answer = MsgBox("Are you sure you want to delete this record?", vbYesNo + vbDefaultButton1, "Information") 
    'If answer = vbYes Then 
    provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" 
    dataFile = "C:\Users\Pc\Documents\Visual Studio 2010\Projects\bankCheckSystem\dbcheckprintsystem.accdb" 
    connString = provider & dataFile 
    myConnection.ConnectionString = connString 
    myConnection.Open() 
    sql = "DELETE * FROM SS WHERE ID =" & dgvSSCheckRecords.SelectedRows(0).Cells(0).Value.ToString() 

    If dgvSSCheckRecords.SelectedRows(0).Cells(12).Value.ToString() = "ZAM" Then 
     sql1 = "DELETE * FROM VN_ZAM WHERE Company_ID = '" & dgvSSCheckRecords.SelectedRows(0).Cells(4).Value.ToString() & "_" & dgvSSCheckRecords.SelectedRows(0).Cells(0).Value.ToString() & "' " 
     Dim cmd As OleDbCommand = New OleDbCommand(sql, myConnection) 
     Dim cmd1 As OleDbCommand = New OleDbCommand(sql1, myConnection) 

     'cmd.ExecuteNonQuery() 
     'cmd1.ExecuteNonQuery() 

     If dgvSSCheckRecords.SelectedRows(0).Cells(5).Value.ToString() = "BDO" Then 
      sql2 = "DELETE * FROM Bank_BDO WHERE Company_ID = '" & dgvSSCheckRecords.SelectedRows(0).Cells(4).Value.ToString() & "_" & dgvSSCheckRecords.SelectedRows(0).Cells(0).Value.ToString() & "' AND Check_Number ='" & dgvSSCheckRecords.SelectedRows(0).Cells(1).Value.ToString() & "'" 
      Dim cmd2 As OleDbCommand = New OleDbCommand(sql2, myConnection) 

      cmd.ExecuteNonQuery() 
      cmd1.ExecuteNonQuery() 
      cmd2.ExecuteNonQuery() 
     ElseIf dgvSSCheckRecords.SelectedRows(0).Cells(5).Value.ToString() = "BPI" Then 
      sql2 = "DELETE * FROM Bank_BPI WHERE Company_ID = '" & dgvSSCheckRecords.SelectedRows(0).Cells(4).Value.ToString() & "_" & dgvSSCheckRecords.SelectedRows(0).Cells(0).Value.ToString() & "' AND Check_Number ='" & dgvSSCheckRecords.SelectedRows(0).Cells(1).Value.ToString() & "'" 
      Dim cmd2 As OleDbCommand = New OleDbCommand(sql2, myConnection) 
      cmd.ExecuteNonQuery() 
      cmd1.ExecuteNonQuery() 
      cmd2.ExecuteNonQuery() 
     End if 

End Sub

来源

2016-12-28 Louie

我不熟悉的 “删除*” 语法。你能提供一个参考吗？ – Strawberry

我不确定你的意思是不熟悉“删除”语法，但它是一个查询，用于从数据库中永久删除记录。 https://www.tutorialspoint.com/mysql/mysql-delete-query.htm谢谢。 @Strawberry – Louie

这是'“DELETE”'，而不是'“DELETE *”' – Strawberry

草莓暗示，我找不到DELETE * FROM是有效的语法（我不知道，你可以使用它像SELECT * FROM？）任何例子。此外，如果银行表中的Check_Number已更改为number，我不确定您需要围绕值的单引号。如果将四个SQL语句更改为以下内容，会有帮助吗？

sql = "DELETE FROM SS WHERE ID = " & dgvSSCheckRecords.SelectedRows(0).Cells(0).Value.ToString()
sql1 = "DELETE FROM VN_ZAM WHERE Company_ID = '" & dgvSSCheckRecords.SelectedRows(0).Cells(4).Value.ToString() & "_" & dgvSSCheckRecords.SelectedRows(0).Cells(0).Value.ToString() & "' "
sql2 = "DELETE FROM Bank_BDO WHERE Company_ID = '" & dgvSSCheckRecords.SelectedRows(0).Cells(4).Value.ToString() & "_" & dgvSSCheckRecords.SelectedRows(0).Cells(0).Value.ToString() & "' AND Check_Number = " & dgvSSCheckRecords.SelectedRows(0).Cells(1).Value.ToString()
sql2 = "DELETE FROM Bank_BPI WHERE Company_ID = '" & dgvSSCheckRecords.SelectedRows(0).Cells(4).Value.ToString() & "_" & dgvSSCheckRecords.SelectedRows(0).Cells(0).Value.ToString() & "' AND Check_Number = " & dgvSSCheckRecords.SelectedRows(0).Cells(1).Value.ToString()

来源

2016-12-29 10:07:13 LogicalFlaps

从datagrid视图中删除记录

回答

相关问题