雙擊按鈕添加如下代碼

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

總結

以上是生活随笔為你收集整理的vb 获取mysql表第一行数据_vb如何将远程获取的数据插入本机数据表中的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。