Basis data akses kueri excel vba

Fokus artikel ini adalah untuk mendemonstrasikan cara menggunakan ADO/ADOX, dalam proyek Excel VBA, untuk memanipulasi tampilan dan prosedur Access, secara kolektif disebut sebagai 'kueri'. Sebenarnya, umumnya saat berhadapan dengan Microsoft Access, DAO (Data Access Objects) akan menjadi pustaka objek yang lebih baik daripada ADO. ADOX, bagaimanapun, dapat diperluas ke database lain, bukan hanya Microsoft Access

ADOX (Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security ) adalah ekstensi untuk objek ADO dan model pemrograman. ADOX menyertakan objek untuk pembuatan dan modifikasi skema, serta keamanan. Itu memaparkan objek tambahan untuk membuat, memodifikasi, dan menghapus objek skema, seperti tabel, kueri, dan prosedur

Kemampuan ADOX jauh melampaui apa yang dijelaskan dalam artikel ini. Untuk informasi lebih lanjut tentang ADOX, lihat tautan di

Menyimpan pernyataan SQL yang panjang dan rumit dalam kode Excel VBA Anda bisa jadi berantakan. Itu juga membuatnya sedikit lebih sulit untuk dimodifikasi, apalagi fakta bahwa beberapa prosedur SQL mungkin dapat digunakan kembali, baik dalam proyek yang sama atau oleh proyek lain. Sebaiknya pertahankan kueri SQL Anda di dalam database itu sendiri. Oleh karena itu, seseorang harus menggunakan Excel VBA untuk mengeksekusi kueri, daripada berisi kode dan logika kueri

Artikel berikut bertujuan untuk mengilustrasikan bagaimana Anda bisa membuat, mengubah, menghapus, dan mengeksekusi kueri basis data, menggunakan Excel VBA. Lihat lebih jauh ke bawah untuk konteks tentang cara mengimplementasikan sub-rutin berikut

Kode VBA untuk membuat kueri atau prosedur Access

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

Publik Enum ViewOrProc

    Lihat

    Proses

Akhir Enum

Publik Sub CreateQuery(ByVal strDBPath As String, ByVal strSql As String, ByVal strQueryName As String, ByVal vpType As ViewOrProc)

    Redup objCat Sebagai Objek

    Redup objCmd Sebagai Objek

    Aktif Kesalahan GoTo exit_point

    Set objCat = CreateObject(Class:="ADOX. Katalog")

    objCat. ActiveConnection = "Provider=Microsoft. KARTU AS. OLEDB. 12. 0;" & _

                             "Data Source=" & strDBPath &