16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If (MessageBox.Show("确定要删除吗?", "删除!", MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation) = Windows.Forms.DialogResult.OK) Then
Dim con As New OracleConnection(strConn)
Dim com As New OracleCommand("delete from EMP where EMPNO=eno", con)
Dim eno As OracleClient.OracleParameter = com.Parameters.Add("eno", System.Data.OracleClient.OracleType.Number, 4)
eno.Value = DataGridView1.CurrentRow.Cells(0).Value
' MessageBox.Show(DataGridView1.CurrentRow.Cells(0).Value.GetType().Name) //Decimal
con.Open()
com.ExecuteNonQuery()
con.Close()
MessageBox.Show("删除成功!", "成功!", MessageBoxButtons.OK, MessageBoxIcon.Information)
da.Clear()
AddSource()
End If
End Sub