CriarVinculo

Setembro 23, 2008 at 3:13 pm (Access)

Public Function CriarVinculo()
Dim rVinculo As DAO.Recordset

Set rVinculo = CurrentDb.OpenRecordset(“Select * from admVinculos”)

While Not rVinculo.EOF

DoCmd.TransferDatabase acLink, “ODBC”, “ODBC;DSN=” & rVinculo.Fields(“Banco”) & “;UID=” & rVinculo.Fields(“Usuario”) & “;PWD=” & rVinculo.Fields(“Senha”) & “;LANGUAGE=us_english;DATABASE=” & rVinculo.Fields(“Base”) & “”, acTable, rVinculo.Fields(“Origem”), rVinculo.Fields(“Destino”), , True

rVinculo.MoveNext

Wend

rVinculo.Close

Set rVinculo = Nothing

End Function

Comente