datagrid的问题!!!

Question

我将查询的内容显示在datagrid里面,我想任意删除datagrid中的几条记录,能实现吗?

Answer 1

Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
 
   Set DataGrid1.DataSource = Rs

Answer 2

Rs.Delete adAffectCurrent  删除当前选择行

Answer 3

lihonggen0(李洪根,用.NET，标准答案来了），你这个答案根本就不对啊，象你那样做了以后，第一我一运行程序，点删除按纽后，并没有删除我点中的记录，而总是删除第一条记录，第二它并没有真正删除这条记录啊，数据库里仍然有这条记录啊，再次运行程序时datagrid里仍显示这条记录啊！！！

Answer 4

Dim s As String
  DataGrid.AllowDelete = True    With RS
    .Delete
    .MoveNext
    If .EOF Then .MoveLast
    End With
    Else
  Exit Sub
  End If

Answer 5

Dim Rs   As New ADODB.RecordsetPrivate Sub Command1_Click()
    Rs.Delete adAffectCurrent
End SubPrivate Sub Command2_Click()
    Rs.Update
End SubPrivate Sub Form_Load()
    Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=saleTesttmp;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from test", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs
End Sub

Answer 6

to： susanxiaoshan() 
你删除的时候选中DATAGRID的记录，让这条记录；变黑
就可以了保存到数据库中Rs.Update
你还是多看一下数据库的书吧