Minggu, 14 Oktober 2012

Penggunaan ADO untuk membuka basis data Access mdb tanpa DSN



       Dim CN1 as New ADODB.Connection
       Dim RS1 as New ADODB.Recordset
       Dim sSQL as String
      
       CN1.CursorLocation = adUseClient
       CN1.Provider = "Microsoft.Jet.OLEDB.3.51"
       CN1.Open App.Path & "MyDatabase.MDB", "", ""
      
       sSql = "Select * From Address Order By [LName]"
       RS1.Open sSql, CN1, adOpenDynamic, adLockOptimistic, adCmdText

0 komentar:

Posting Komentar

 

© 2011 e - Tutorial | by Moeh Fitrah