Il blog di Emilio Scaccaglia

Dedicato al VB ed al VBA
posts - 165, comments - 3058, trackbacks - 1

febbraio 2012 Blog Posts

Access & VBA - connettere e disconnetere tabelle esterne

Il tutto è molto semplice. In una tabella scrivo i nomi di tutte le tabelle che devo collegare all'applicativo Access o che devo scollegare e poi chiamo le seguenti funzioni ... una alla volta. I nomi delle funzioni sono auto-esplicativi. Public Function Disconnetti() As Boolean Dim RS As New ADODB.Recordset Dim Tabella As String On Error Resume Next Disconnetti = False RS.ActiveConnection = CurrentProject.Connection RS.Open "SELECT * FROM ElencoTabelle;", , adOpenStatic, adLockReadOnly RS.MoveFirst Do Until RS.EOF     Tabella = RS.Fields("NomeTabella").value     CurrentDb.TableDefs.Delete Tabella     RS.MoveNext Loop RS.Close Set RS = Nothing Disconnetti = True End Function --------------------------------------------------------------------------------------------------------------------------------------------------- Public Function RiconnettiTab(mPathBE As String) As Boolean Dim RS As New ADODB.Recordset Dim Tabella As String On Error Resume Next RiconnettiTab = False RS.ActiveConnection = CurrentProject.Connection RS.Open "SELECT...

posted @ martedì 7 febbraio 2012 20:33 | Feedback (26) |

Powered by:
Powered By Subtext Powered By ASP.NET