royaeel
چهارشنبه 21 اسفند 1387, 12:27 عصر
من کد زیر را برای حذف رکورد کلیلک شده توسط کاربر استفاده کرده ام ولی رکورد حذف نمی شود. در صورت امکان راهنمایی کنید. با تشکر.
Private
Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim connectionString AsString = "Provider=Microsoft.jet.oledb.4.0; Data Source=|DataDirectory|\RAdb-new.mdb;"
Dim myConnection AsNew OleDb.OleDbConnection(connectionString)
Dim RowNum AsInteger
RowNum = DataGridView2.CurrentRow.Index
Dim insertquery AsString = "delete from t_asset where Id ='''RowNum'''"
MessageBox.Show(
"Do you want to delete the row?", "OK", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If (MessageBox.Show("Do you want to delete the row?", "OK", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes) Then
Dim command AsNew OleDb.OleDbCommand(insertquery, myConnection)
myConnection.Open()
command.ExecuteNonQuery()
EndIf
myConnection.Close()
myConnection.Dispose()
Private
Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim connectionString AsString = "Provider=Microsoft.jet.oledb.4.0; Data Source=|DataDirectory|\RAdb-new.mdb;"
Dim myConnection AsNew OleDb.OleDbConnection(connectionString)
Dim RowNum AsInteger
RowNum = DataGridView2.CurrentRow.Index
Dim insertquery AsString = "delete from t_asset where Id ='''RowNum'''"
MessageBox.Show(
"Do you want to delete the row?", "OK", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If (MessageBox.Show("Do you want to delete the row?", "OK", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes) Then
Dim command AsNew OleDb.OleDbCommand(insertquery, myConnection)
myConnection.Open()
command.ExecuteNonQuery()
EndIf
myConnection.Close()
myConnection.Dispose()