Menampilkan Nama Tabel dari SQL Server ke DataGrid (ADO)

Berikut ini trik untuk menampilkan nama-nama tabel yang terdapat di suatu database pada SQL Server ke dalam control DataGrid. Dalam contoh ini, saya menggunakan SQL Server 2000 dengan metode koneksi "Trusted Connection", atau koneksi ke SQL Server menggunakan otentifikasi Windows. Bagi yang belum tahu dengan "Trusted Connection", artinya adalah: username dan password untuk menghubungi SQL Server diverifikasi saat Anda login ke sistem operasi Windows Anda (Windows XP, Windows 2000). Jadi, di code program, Anda tidak perlu lagi menginput data username dan password untuk connect ke SQL Server 2000 Anda.

Deskripsi: 
Menampilkan nama-nama tabel di database SQL Server 2000
ke dalam control DataGrid1. Dalam contoh ini, koneksi ke
SQL Server menggunakan metode "Trusted Connection"
atau menggunakan Otentifikasi Windows. Bagi yang belum
tahu dengan "Trusted Connection", bahwa username dan password
untuk menghubungi SQL Server diverifikasi saat Anda login
ke sistem operasi Windows Anda (Windows XP, Windows 2000)

Persiapan: 
1. Buat satu project standard exe dengan satu Form.
2. Klik menu Project -> Component... lalu beri tanda
centang pada "Microsoft DataGrid Control 6.0 ... lalu
klik tombol OK
3. Tambahkan satu control DataGrid ke atas form
4. Copy-kan code berikut ke editor form yang Berkaitan.

Dim CN As ADODB.Connection
Dim rsTables As ADODB.Recordset

Public Function ConnectSQLServer() As Boolean
On Error GoTo ErrConn
Set CN = New ADODB.Connection
CN.CursorLocation = adUseClient
'This connection string uses Trusted_Connection!
CN.Open "PROVIDER=MSDataShape;" & _
"Data Provider=SQLOLEDB.1;" & _
"Integrated Security=SSPI;" & _
"Persist Security Info=False;" & _
"Initial Catalog=vrman;" & _
"Data Source=XXX\blogvrman;"
'vrman <-- ganti dengan nama database Anda
'XXX\blogvrman = <-- ganti dengan
'                       nama SQL Server Anda
ConnectSQLServer = True
Exit Function
ErrConn:
ConnectSQLServer = False
End Function

Private Sub Form_Load()
If ConnectSQLServer = True Then
'MsgBox "Koneksi ke SQL Server sukses!", 
vbInformation
Else
MsgBox "Koneksi ke SQL Server gagal!",
vbExclamation
End If
'Tampung nama tabel ke variabel ADODB.Recordset
GetTablesName
'Siap-siap tampung ke control DataGrid
DataGrid1.AllowUpdate = False
'Masukkan nilai variabel rsTables ke DataGrid
Set DataGrid1.DataSource = rsTables
End Sub

Private Sub GetTablesName()
Dim rCriteria As Variant
'Kriteria pengaksesan tabel menggunakan array
rCriteria = Array(Empty, Empty, Empty, "Table")
'Buka skema tabel dgn mengoptimalkan 
variabel Connection
Set rsSchema = CN.OpenSchema
(adSchemaTables, rCriteria)
'Siapkan variabel untuk membuat recordset baru
Set rsTables = New ADODB.Recordset
'Buat satu field baru bernama NamaTabel dengan
'tipe VarChar dan length = 50 karakter
rsTables.Fields.Append "NamaTabel", 
adVarChar, 50
'Buka tabel untuk menampung nama tabel
rsTables.Open
'Telusuri skema tabel
While Not rsSchema.EOF
For Each fld In rsSchema.Fields
'Untuk mengambil nama tabel, verifikasi dengan
'mengambil nilai dari TABLE_NAME
If fld.Name = "TABLE_NAME" Then
'Untuk setiap nama tabel, 
sediakan record baru
rsTables.AddNew
'Tampung nama tabel
rsTables.Fields("NamaTabel") = fld.Value
'Simpan nama tabel
rsTables.Update
End If
Next 'Maju ke record berikutnya
rsSchema.MoveNext 'Maju ke skema 
tabel berikutnya
Wend 'Akhir loop skema tabel
End Sub