舉例如下:(最好系統學壹下,因為不知道妳用的什麽方法進行vb操作)
(我為推薦壹本書,電大的計算機大專計算機信息方向的《VB程序設計》劉世峰編,通學習妳壹切都通了)
Private Sub Command1_Click()
'定義字符
Dim strSQL As String
'定義壹個整型變量
Dim i As Integer
i = MSHFlexGrid1.Row
'處理無記錄行
If MSHFlexGrid1.TextMatrix(i, 1) = "" Then
MsgBox "請選擇壹個記錄!", vbQuestion + vbOKOnly, "信息提示"
Exit Sub
End If
'編定SQ查詢語句
strSQL = "Delete From 通訊簿 "
strSQL = strSQL + "Where 姓名='" + MSHFlexGrid1.TextMatrix(i, 1) + "'"
'提示用戶要謹慎刪除
If MsgBox("是否要刪除,請慎重!", vbQuestion + vbOKCancel, "信息提示") = vbOK Then
'執行刪除命令
ADOcn.Execute strSQL
End If
DisplayGrid1
End Sub