vb怎么把数据由datagrid1中复制到datagrid2中

vb怎么把数据由datagrid1中复制到datagrid2中

在工程里引用 microsoft activex data objects 2.7 library
然后随便画个命令控件，在命令控件的单击事件里(click)输入以下代码：
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password = 111;Data Source=" & App.Path & "\1.mdb" '1.mdb 替换成你的数据库
cn.Open
rs.Open "select * from 表1 ", cn, adOpenStatic, adLockOptimistic
Do While Not rs.EOF
cn.Execute "insert into 表2 values ('" & rs.Fields(0) & "','" & rs.Fields(1) & "')" '这里有多少列就写多少列
rs.MoveNext
Loop
rs.Close'运行完以上代码，你再刷新以下DataGrid2看看表1中的记录是不是过去了~~~