Koneksi odc di excel vba

Microsoft Excel dapat menggunakan driver TSM ODBC untuk mendapatkan informasi dari tabel database server TSM. Biasanya opsi menu "Data/Get External Data" dapat digunakan untuk memuat informasi ini. Namun, metode tersebut memerlukan penggunaan Microsoft Query sebagai mekanisme perantara untuk memperoleh data dan agak manual. Dokumen ini menyediakan model untuk menggunakan bahasa makro tertanam Microsoft Excel, Visual Basic for Applications (VBA) untuk mengotomatiskan pelaporan melalui Excel. Dokumen ini bukanlah panduan untuk menggunakan Excel, Visual Basic, atau driver TSM ODBC. Oleh karena itu diasumsikan bahwa pembaca dokumen ini paling tidak sudah terbiasa menggunakan alat-alat ini. Jika Anda memerlukan bantuan dengan prosedur dalam dokumen ini, Anda harus berkonsultasi dengan seseorang di situs Anda yang memiliki pengalaman dengan Excel dan Visual Basic. Administrator server TSM Anda dapat memberikan panduan untuk driver TSM ODBC

Menyelesaikan Masalah

Contoh yang disajikan dalam dokumen ini akan menjelaskan cara membuat buku kerja Excel yang, ketika dibuka, akan secara otomatis menampilkan data dari tabel EVENTS server TSM

1. Pastikan driver TSM ODBC diinstal pada mesin Windows yang sama dari mana Anda akan menjalankan Excel. Versi 5. 3. 4 (atau lebih tinggi) dari driver ODBC direkomendasikan. Anda harus menggunakan ODBC Driver Administrator untuk menentukan nama sumber data (DSN) yang dapat digunakan oleh Excel untuk terhubung ke server TSM. Lihat file README driver TSM ODBC, README. ODBC. TXT, untuk informasi tentang menginstal driver ODBC dan menentukan sumber data

2. Mulai Excel

3. Pilih item menu "Tools/Macro/Visual Basic Editor". Ini akan memulai editor Visual Basic

4. Di editor Visual Basic, pilih 'Tools/References. " item menu. Pastikan bahwa "Microsoft ActiveX Data Objects 2. Item 5 Library" dicentang. Catatan. Versi perpustakaan dapat 2. 5 atau lebih tinggi

5. Di editor Visual Basic, temukan objek "Buku Kerja Ini" di jendela "Proyek - Proyek VBA". Klik dua kali pada "Buku Kerja Ini" untuk memunculkan editor kode untuk objek buku kerja

6. Di editor kode, masukkan kode berikut (Anda dapat menggunakan salin dan tempel). Demi kenyamanan Anda, kode tersebut juga diberikan dalam lampiran terpisah pada dokumen ini. Perhatikan bahwa Anda perlu menyesuaikan nilai untuk variabel dsn, uid, dan pwd

Sub Buku Kerja Pribadi_Buka()
Panggil QueryEvents
Akhir Sub

SubPeristiwa Kueri()
Redupkan koneksi Sebagai ADODB Baru. Koneksi
Redupkan Sebagai ADODB Baru. Kumpulan rekaman
Redupkan wb Sebagai Excel. Buku kerja
Lembar redup Sebagai Excel. Lembar kerja
Baris redup Selama
Dim sql Sebagai String
Redup hari ini Sebagai String
Redup kemarin Sebagai String
Redupkan minTimeStamp Sebagai String
Redupkan maxTimeStamp Sebagai String
Dim dsn Sebagai String
Dim uid Sebagai String
Dim pwd Sebagai String
Dim col Sebagai Integer

baris = 0

' =================================================
' Ini harus disesuaikan dengan lingkungan Anda
' =================================================
dsn = "mydsn"     'Nama sumber data
uid = "myadmin"   'ID Admin TSM
pwd = "xxxx"      'Kata sandi Admin TSM

' =================================================
' Contoh ini menjalankan pernyataan SQL SELECT berikut terhadap
' tabel PERISTIWA
'
'   PILIH * DARI ACARA
   '            WHERE SCHEDULED_START >= AND SCHEDULED_START <=
'            ORDER BERDASARKAN STATUS, HASIL, ALASAN, DOMAIN_NAME,
'                     SCHEDULE_NAME, NODE_NAME
'
   '     is yesterday at 00:00:00 (midnight).
   '     is today at 23:59:59 (just before midnight tomorrow).
'
' Anda perlu menyesuaikan ini untuk lingkungan Anda
' =================================================
hari ini = Tanggal$
kemarin = DateAdd("d", -1, hari ini)

' =================================================
' Buat nilai SQL TIMESTAMP dengan format 'YYYY-MM-DD HH. MM. SS'
' =================================================
minTimeStamp = Tahun(kemarin) & "-" & _
Benar$("0" & ​​Bulan(kemarin), 2) & "-" & _
Kanan$("0" & ​​Hari(kemarin), 2) & " " & _
"00. 00. 00"

maxTimeStamp = Tahun(hari ini) & "-" & _
Benar$("0" & ​​Bulan(hari ini), 2) & "-" & _
Kanan$("0" & ​​Hari(hari ini), 2) & " " & _
"23. 59. 59"

sql = "pilih * dari acara di mana " & _
"scheduled_start >= '" & minTimeStamp & "' dan " & _
"scheduled_start <= '" & maxTimeStamp & "'" & _
"dipesan oleh " & _
"status, hasil, alasan, nama_domain, nama_jadwal, " & _
"nama_simpul"

' =================================================
' Buka koneksi ke server TSM
' =================================================
samb. String Koneksi = "DSN=" & dsn & ";UID=" & uid dan ";PWD=" & pwd
samb. Membuka

' =================================================
' Jalankan kueri (PILIH)
' =================================================
rs. ActiveConnection = samb
rs. Sumber = sql
rs. Membuka

Tetapkan wb = Buku Kerja Ini
Setel lembar = wb. Lembar Kerja("sheet1")

' =================================================
' Kode berikut melewati set hasil dan menyimpan masing-masing
' baris data di lembar kerja. Perhatikan bahwa kolom keluaran adalah
' yang dikembalikan oleh pernyataan SQL di atas. Anda perlu menyesuaikan
' kode di bawah sedemikian rupa sehingga sesuai dengan kolom keluaran
' dalam pernyataan SQL Anda
' =================================================
Lakukan Sampai rs. EOF
baris = baris + 1
lembaran. Sel(baris, 1). Nilai = Format(rs. terjadwal_mulai, _
"yyyy/mm/dd hh. mm. ss")
lembaran. Sel(baris, 2). Nilai = Format(rs. aktual_mulai, _
"yyyy/mm/dd hh. mm. ss")
lembaran. Sel(baris, 3). Nilai = rs. nama domain
lembaran. Sel(baris, 4). Nilai = rs. nama_jadwal
lembaran. Sel(baris, 5). Nilai = rs. node_name
lembaran. Sel (baris, 6). Nilai = rs. Status
lembaran. Sel(baris, 7). Nilai = rs. hasil
lembaran. Sel(baris, 8). Nilai = rs. alasan
rs. Pindah Berikutnya
Lingkaran

' =================================================
' Lingkaran ini hanya kosmetik. Ini mengatur lebar setiap kolom
' bahwa data cocok dengan baik di kolom
' =================================================
Untuk col = 1 Sampai 8
lembaran. Kolom ("A. H"). Paskan Otomatis
Lanjut

wb. Menyimpan

rs. Menutup
samb. Menutup
Akhir Sub

7. Di editor Visual Basic, pilih item menu "File/Tutup dan Kembali ke Microsoft Excel".

8. Dari menu Excel, pilih "File/Exit". Saat diminta untuk menyimpan perubahan Anda, klik "Ya". Simpan buku kerja dengan nama apa pun yang Anda inginkan

9. Mulai Excel lagi, lalu buka buku kerja yang Anda simpan di langkah sebelumnya. Makro VBA harus dijalankan. Waktu yang diperlukan untuk menjalankan pernyataan SELECT bervariasi dari satu situs ke situs lain, tetapi dalam beberapa detik atau menit, lembar kerja akan dimuat dengan hasil dari kueri

CATATAN PENTING

Informasi dalam dokumen ini belum diserahkan untuk pengujian formal apa pun, dan diberikan atas dasar "sebagaimana adanya". Penulis dokumen ini telah melakukan pengujian minimal dan informal dengan Excel 2000, Excel 2002, dan Excel 2003. Pengguna dokumen ini bertanggung jawab untuk memvalidasi hasil yang diperoleh dari penggunaan prosedur ini

Jika keamanan makro Excel diatur ke "Tinggi", maka makro tidak akan berjalan karena tidak ditandatangani. Jika keamanan makro diatur ke "Sedang", maka saat buku kerja yang berisi makro dibuka, Anda akan diminta untuk mengaktifkan atau menonaktifkan makro. Makro harus diaktifkan agar prosedur dalam dokumen ini berfungsi. Keamanan makro dapat diubah dengan memilih "Tools/Macro/Security. "item menu dari dalam Excel

Informasi dalam dokumen ini tidak mengandung apa pun yang dapat membahayakan data Anda. Namun, tim keamanan komputasi situs Anda mungkin memiliki standar khusus terkait dengan keamanan makro Excel. Anda harus berkonsultasi dengan tim keamanan situs Anda dan memahami panduan situs apa pun sebelum menjalankan makro atau mengubah keamanan makro Excel

[{"Produk". {"kode". "SSGSG7", "label". "Tivoli Storage Manager"},"Unit Bisnis". {"kode". "BU058", "label". "Infrastruktur IBM dengan\/TPS"},"Komponen". "Klien", "Platform". [{"kode". "PF033", "label". "Windows"}],"Versi". "Semua Versi yang Didukung", "Edisi". "","Bidang usaha". {"kode". "LOB26", "label". "Penyimpanan"}}]

Bagaimana cara saya terhubung ke database di Excel VBA?

Langkah 1. Menambahkan referensi untuk Perpustakaan Objek Data Microsoft Activex. .

Langkah 2. Buat String Koneksi dengan opsi Penyedia dan Sumber Data. .

Langkah 3. Buka Koneksi ke sumber data. .

Langkah 4. Buat String Perintah SQL. .

Langkah 5. Dapatkan rekaman dengan Membuka Kueri ini di sumber data Terhubung

Bagaimana cara terhubung ke ODBC di Excel?

Di Excel, buka tab Data. Klik Dari Sumber Lain, lalu klik Dari Wisaya Sambungan Data. Pada dialog yang terbuka, pilih ODBC DSN dan klik Next untuk melanjutkan. Sekarang pilih sumber data yang ingin Anda sambungkan, dan klik Berikutnya

Bagaimana cara menguji koneksi ODBC di Excel?

Menguji DSN ODBC Menggunakan Excel .

Buka Microsoft Excel, lalu pilih Data > Dapatkan Data Eksternal > Dari Sumber Lain > Dari Microsoft Query

Saat kotak dialog Pilih Sumber Data terbuka. .

Saat kotak Dialog Sambungan Vertica terbuka, masukkan informasi sambungan untuk DSN, dan klik OK

Bagaimana cara membuat sumber data ODBC di Excel?

Tambahkan sumber data ODBC .

Klik Mulai, lalu klik Panel Kontrol

Di Panel Kontrol, klik dua kali Alat Administratif

Di kotak dialog Alat Administratif, klik dua kali Sumber Data (ODBC). .

Klik User DSN, System DSN, atau File DSN, bergantung pada tipe sumber data yang ingin Anda tambahkan. .

Klik Tambahkan