实现数据的批量输入

Question

如何实现实现数据的批量输入,一次保存(vb60+sql server2000),使用datagrid控件

Answer 1

'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    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
    '批更新方式adLockBatchOptimistic
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic   Set DataGrid1.DataSource = Rs
保存代码：
 Rs.Update
 Rs.UpdateBatch