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!
- Option Compare Database
- Public Sub VBADAO()
- Dim DAM As String
- Dim db As DAO.Database
- Dim rst As DAO.Recordset
- Dim query As String
- DAM = "VBA DAO"
- 'Open pointer to current database
- Set db = CurrentDb()
- Debug.Print DAM & ": Sucessfully connected to database. Data source name: " & vbNewLine & " "; db.Name
- End Sub
RAW Paste Data