如何在一个窗体上显示Access数据表

Question

我现在想把一张数据表显示在窗体上，以供用户在空的列里输入数据，并把新的信息保存回数据库

Answer 1

Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Rs

Answer 2

设置 DataGrid1   为允许删除，允许更新保存Rs.Update
Rs.UpdateBatch