Open Schema adalah membongkar semua object yang ada di database secara detail,baik itu di SQL Server maupun jenis database yang lainnya. Kali ini saya akan contohkan SQL Server saja yang banyak digunakan dan mudah dipelajari. Dengan Open Shema ini kita dapat mengetahui database apa saya yang terinstal, table apa saja yang terdapat di setiap database termasuk column, type data, sampai hal yang lebih detail lagi.
Gambar diatas adalah contoh program sederhana yang saya buat untuk posting kali ini. Cara kerjanya simple, saat kita click nama database, maka List Tables/Views akan terisi dengan daftar tabel/view yang terdapat di database yang kita pilih, kemudian saat kita click Nama Tabel/view nya maka List Columns akan terisi sesuai dengan table yang kita pilih. Ok Langsung saja ke codingnya ya... saya buat se-simple mungkin agar mudah di mengerti.
Siapkan saja 1 project, 1 form, 3 datagridview (name=djieDatagridview1,2,3), optional 3 label untuk judul diatas datagridnya.
Dim con As New Odbc.OdbcConnection("dsn=local")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'buka koneksi
con.Open()
'gunakan dulu database master
con.ChangeDatabase("master")
'select semua database
Dim adp As New Odbc.OdbcDataAdapter("SELECT name as [Nama Database] FROM SYSDATABASES", con)
'load database ke grid
Dim datatable As New DataTable
adp.Fill(datatable)
djieDataGridView1.DataSource = datatable
djieDataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
End Sub
Private Sub djieDataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles djieDataGridView1.CellClick
'ganti database sesuai yang dipilih
con.ChangeDatabase(djieDataGridView1.CurrentRow.Cells(0).Value.ToString)
'select semua table / view di database yang dipilih
Dim sql As String = "SELECT TABLE_NAME as [Nama Table], TABLE_TYPE AS [Type] FROM INFORMATION_SCHEMA.TABLES ORDER BY TABLE_NAME"
Dim adp As New Odbc.OdbcDataAdapter(sql, con)
Dim datatable As New DataTable
adp.Fill(datatable)
'load database ke grid
djieDataGridView2.DataSource = datatable
djieDataGridView2.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
End Sub
Private Sub djieDataGridView2_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles djieDataGridView2.CellClick
'select semua column di table / view yang dipilih
Dim sql As String = "SELECT COLUMN_NAME AS [Nama Column], DATA_TYPE AS [Type Data] FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME='" + djieDataGridView2.CurrentRow.Cells(0).Value.ToString + "' ORDER BY ORDINAL_POSITION"
Dim adp As New Odbc.OdbcDataAdapter(sql, con)
Dim datatable As New DataTable
adp.Fill(datatable)
'load database ke grid
djieDataGridView3.DataSource = datatable
djieDataGridView3.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
End Sub
Open Schema ini bisa di kembangkan lebih luas lagi.. Contohnya kita bisa membuat "Sql Server Management Studio" buatan sendiri, atau "Sql Analizer" dan lainnya. Sekian dan semoga bermanfaat.
Tags:
how to open schema database, get full schema table, get schema database, sqlserver, information_schema, retrive , get detail table, meta table, get all object database, get column name table, get information database, schema table, schema column, get all field table, get schema object to datagridview, connection schema database, open schema table, view, stored procedure, vbnet, c#, visual studio
Tags:
how to open schema database, get full schema table, get schema database, sqlserver, information_schema, retrive , get detail table, meta table, get all object database, get column name table, get information database, schema table, schema column, get all field table, get schema object to datagridview, connection schema database, open schema table, view, stored procedure, vbnet, c#, visual studio
0 komentar:
Posting Komentar