SHARE
TWEET

MS Access VBA DAO : Test Koneksi Ke Database

stevennathaniel Mar 14th, 2016 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Compare Database
  2.  
  3. Public Sub VBADAO()
  4.  
  5. Dim DAM As String
  6.  
  7. Dim db As DAO.Database
  8.  
  9. Dim rst  As DAO.Recordset
  10.  
  11. Dim query As String
  12.  
  13. DAM = "VBA DAO"
  14.  
  15. 'Open pointer to current database
  16.  
  17. Set db = CurrentDb()
  18.  
  19. Debug.Print DAM & ": Sucessfully connected to database. Data source name: " & vbNewLine & " "; db.Name
  20.  
  21.  
  22. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top