Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
Function Open() Try Static acc As Microsoft.Office.Interop.Access.Application Dim db As dao.Database acc = New Microsoft.Office.Interop.Access.Application acc.Visible = True db = acc.DBEngine.OpenDatabase(m_cheminBase, False, False, ObtenirInfoConnexion(2)) acc.OpenCurrentDatabase(m_cheminBase) db.Close() db = Nothing Catch ex As Exception MsgBox("Une erreur est survenue lors de l'ouverture de la base : " & ex.Message & " " & ex.Source) End Try End Function
|Help with deleting records in File2 when no matching records in both File1 and File2||4||32|
|Access VBA script to unzip a SQL Server backup file to a selected folder||12||23|
|How do I default to NULL in Date Time Picker, when there is no applicable date in vb.net||9||11|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!