我有一个大程序试图从我的 SQL Servers 数据库中删除一条记录。我最初创建此代码以使用 Microsoft Access,但我决定将其转换为使用 MS SQL 2008。
现在这就是我所拥有的:
Dim dbConnection As SqlConnection
Dim dbCommand As SqlCommand
Dim strSQL As String
Dim dgvSelectRow As Integer 'Represents the selected row in the DataGridView
Public Sub SQLConnect()
dbConnection = New SqlConnection("Data Source=w7gbnewmfg2143\sqlexpress;Initial Catalog=master_plan;Integrated Security=True")
dbConnection.Open()
End Sub
Public Sub SQLCommand()
dbCommand = New SqlCommand(strSQL, dbConnection)
End Sub
Public Sub SQLDisconnect()
dbConnection.Close()
End Sub
Private Sub btnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.Click
If dgvLine1.RowCount = 0 Then
MsgBox("No Rows to Delete")
Else
dgvSelectRow = dgvLine1.CurrentRow.Index
If MsgBox("Are you sure to remove this job?", MsgBoxStyle.Critical + MsgBoxStyle.YesNo, "Remove Job") = MsgBoxResult.Yes Then
SQLConnect()
strSQL = "DELETE FROM [LinePlan] WHERE DateTime = '" & dgvLine1.Item(8, dgvSelectRow).Value & "'" 'Removes selected row from DataGridView at position column 8
SQLCommand()
dbCommand.ExecuteNonQuery()
SQLDisconnect()
tmrUpdate.Enabled = True
tmrUpdate.Start()
Else
End If
End If
End Sub
基本上我正在尝试从 DataGridView 中的选定行中删除记录。在该行中,它删除了我的 DGV 中列处的 DateTime 值。现在,当我在 MS Access 中创建此查询时,我完全没有问题,它运行良好。现在我已经将它迁移到 MS SQL,我遇到了各种各样的问题。我得到了很多我现在已经解决的语法错误(我认为)。我一直在使用 Catch ex As Exception 来尝试确定任何错误。我现在已经清除了所有错误。现在,当我单击删除按钮时,我没有收到任何错误,但是记录并没有删除,它仍然保留在数据库中。该程序不会崩溃或显示任何错误,并且似乎已经完成了它需要做的事情,但它不会删除记录。我尝试过使用不同的连接字符串方法,但无济于事。
我是否错过了一些直接的东西?因为我无法弄清楚问题可能是什么。这似乎是一个非常直接的查询,并没有想到真的会出错,但我错了:)。
任何帮助或指导将不胜感激。谢谢你的时间!
问候,詹姆斯