vb 获取mysql表第一行数据_vb如何将远程获取的数据插入本机数据表中

双击按钮添加如下代码

Private Sub Command1_Click()

Dim objRemoteConn       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.Close

End Sub