[讨论][求助]使用ADO连接远程数据库更新本地表

fannky

Private Sub DownLoad_Click()
On Error GoTo Err_DownLoad_Click

Dim conn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim a As String
Dim sql As String
a = "rovider='Microsoft.Jet.OLEDB.4.0';Data Source='\\Dateserver\Access数据库\数据分析主体.mdb'"
sql = "select * from 排单表"
Set conn = New ADODB.Connection
Set Rst = New ADODB.Recordset
conn.Open a
Rst.Open sql, conn, adOpenKeyset, adLockOptimistic

'//到这里我不会写了，本地有一个名为“排单表”的表，怎样用远程的数据替换现有的本地数据？
Exit_DownLoad_Click:
    Exit Sub

Err_DownLoad_Click:
    MsgBox Err.Description
    Resume Exit_DownLoad_Click
   
End Sub

fannky

怎么没有人帮我解答啊？都在线等了半小时了

andymark

try:

Dim Conn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim NetRst As New ADODB.Recordset
Dim NetConn As New ADODB.Connection
Dim Server As String
Dim sql As String
Server = "\\Dateserver\Access数据库\数据分析主体.mdb"
Set Conn = CurrentProject.Connection
NetConn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Trim(Server) + ";"
sql = "select * from 排单表"

NetRst.Open "select * from 排单表", NetConn, adOpenDynamic, adLockOptimistic

Rst.Open sql, Conn, adOpenDynamic, adLockOptimistic
'把记录写到本地表
Do While Not NetRst.EOF
   Rst.AddNew
   Rst.Fields("A") = NetRst.Fields("A")
   Rst.Update
   NetRst.MoveNext
   Loop
Set NetRst = Nothing
Set Rst = Nothing
   

fannky

谢谢Andymark的解答，那么这样做就必须先清掉所有的本地记录才行啊，这方法我先去试试，有其他更好的办法没有？

andymark

   上面只是举例用ADO连接其他的数据库

    用连接表操作起来会简单些