vb如何将远程获取的数据插入本机数据表中

1、远程数据库说明远程数据库是一个SQL Server 2012 R2标准版，其中有一个名称为Test的数据库，下面有一张名称为student_score的数据表，表中有三笔数据。

2、本地数据库说明本地数据库是一个SQL Server 2008 R2标准版，其中有一个名称为LocalTest的数据库，下面有一张名称为student_score的数据表，表格内容为空。

3、新建VB工程新建一个标准的VB EXE工程，只有一个Form，Form上有一个按钮。

4、添加ADODB的引用点击工程(Project)菜单，再点击引用(Reference)，打开引用对话框，浏览选择"稆糨孝汶;Microsoft ActiveX Object 2.8 Library"，点"确定"按钮。

5、双击按钮添加如下代码Private Sub Command1_Click() Dim o水瑞侮瑜bjRemoteConn As New ADODB.Connection Dim objLocalConn As New ADODB.Connection Dim objRs As ADODB.Recordset Dim strSql As String objRemoteConn.Open "provider=SQLOLEDB;Data Source=192.168.0.1;Initial Catalog=Test;User id=sa;Password=123" objLocalConn.Open "provider=SQLOLEDB;Data Source=(Local);Initial Catalog=LocalTest;User id=sa;Password=123456" strSql = "select * from student_score" Set objRs = objRemoteConn.Execute(strSql) Do While Not objRs.EOF strSql = "insert into student_score(name,score) values(N'" & objRs.Fields("name").Value & "'," & objRs.Fields("score").Value & ")" objLocalConn.Execute strSql objRs.MoveNext Loop objRemoteConn.Close objLocalConn.CloseEnd Sub

6、运行代码按F8开始单步调试代码，点击按钮1，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了从远程获取数据并插入到本机的数据表。

7、确认数据是否已经插入到了本机的数据表再次刷新数据表内容，就可以看到数据已经插入到了本机的数据表了。