ADO的问题，寻求解答？

Question

我说过了，你用的是ADO控件。我所说的用SQL来解决，最好用ADO对象~！！

Answer 1

是的。
我用想改用ADO对象。
但是我不知道ADO对象的增加一条记录、删除一条记录、以及怎样连接DataGird控件

Answer 2

创建command对象，然后用Sql语句啊

Answer 3

Private Sub Command1_Click(Index As Integer)
    If Adodc1.Recordset.RecordCount > 0 Then
        
        For i = 1 To Adodc1.Recordset.RecordCount
            If Not Adodc1.Recordset.EOF Then
                Adodc1.Recordset.MoveFirst
                Adodc1.Recordset.Delete
               
            End If
        Next i
    Else
        Exit Sub
    End If
End Sub学习.关注.

Answer 4

Private Sub Command1_Click(Index As Integer)
dim a as integer
a=adodc1.recordset.recordcount
    If a> 0 Then
        Adodc1.Recordset.MoveFirst
        For i = 1 To a-1
           
                Adodc1.Recordset.Delete
                Adodc1.Recordset.MoveNext
            
        Next i
        Adodc1.Recordset.Delete
    Else
        Exit Sub
    End If
End Sub错误原因：在DELETE最后一条记录后，有一句Adodc1.Recordset.MoveNext
在空记录集里用MOVENEXT会出错还有，可以省去判断，以加快速度

Answer 5

1.创建一个数据环境：DataEvionment1
2.建立其与您数据库的联接：Connection1
3.建立一个命令：Cmdxxx
执行代码：
'---------------------------
DataEvionment1.rsCmdxxx.Open
SQL = "delete * from 表名"
DataEvionment1.Connection1.Execute SQL
DataEvionment1.rsCmdxxx.Update
DataEvionment1.rsCmdxxx.Close
'----------------------------
可一次性删除所有记录注：用数据环境操作ADO有很多优点，您可参考一下有关资料。
 

Answer 6

怎样用datareport制作动态报表？？？

Answer 7

kongmj(自由人)：
怎么用它连接DataGird控件？

Answer 8

aichangfeng(锋) :DataReprot功能很差，无法做出满意的报表（根本不是动态！）推荐使用ActiveReport。delboy(黛斐) :推荐使用MSFlexGrid控件，虽然是只读属性，却很有用。

Answer 9

Private Sub Command1_Click(Index As Integer)
    If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveFirst
        For i = 1 To Adodc1.Recordset.RecordCount
            If Not Adodc1.Recordset.EOF Then
                Adodc1.Recordset.Delete
                doevents 
                Adodc1.Recordset.MoveNext
            End If
        Next i
    Else
        Exit Sub
    End If
End Sub