Rabu Kliwon 07 Januari 2009 04:19

learn make rich

share make it perfect

Ayat Suci

Dan berjihadlah kamu pada jalan Allah dengan jihad yang sebenar-benarnya. Dia telah memilih kamu dan Dia sekali-kali tidak menjadikan untuk kamu dalam agama suatu kesempitan. (Ikutilah) agama orang tuamu Ibrahim. Dia (Allah) telah menamai kamu sekalian orang-orang muslim dari dahulu, dan (begitu pula) dalam (Al quran) ini, supaya Rasul itu menjadi saksi atas dirimu dan supaya kamu semua menjadi saksi atas segenap manusia, maka dirikanlah sembahyang, tunaikanlah zakat dan berpeganglah kamu pada tali Allah. Dia adalah Pelindungmu, maka Dialah sebaik-baik Pelindung dan sebaik-baik Penolong.
(QS. AL HAJJ:78)

otomatis refresh

Javascript ayat

Proyek Saat Ini

Aplikasi SMS
Download aplikasi dan source

SMS Autorespond (VB)

Para Rekan

FlazX.com - Your Computer & IT Learning Center & eBook Directory

Link Exchange

Lain-lain

User online: 257
User login: 1

user/passwd: bpuser

Desain Table dengan Excel

Tips untuk mempermudah dalam melakukan desain tabel melalui Microsoft Excel

Rabu Wage, 6 Juli 2005

Salah satu pekerjaan utama seorang system analyst ketika membangun sebuah sistem database adalah mendesain table. Dalam proses desain tersebut tidak jarang seorang system analyst menggunakan tools untuk mempermudah pekerjaannya. Banyak sekali tools yang bisa digunakan antara lain Visio, Rational Rose, Enterpise Architect dan lain sebagainya. Tapi tidak bisa dipungkiri untuk bisa menggunakan tools tersebut, kita harus merogoh kantong untuk membeli lincense-nya, dan jujur saja untuk sekelas saya harga tools tersebut banyak tidak terjangkaunya, kecuali kita main akal-akalan toolsnya di crack, tapi untuk nge-crack tools tersebut, sebenarnya bukan pekerjaan yang simple ( lho kok malah lari ke masalah crack sih...)

Kembali ke subject aslinya, jadi tujuan kita kali ini bagaimana caranya membuat tools yang powerfull untuk mendesain table dengan fasilitas yang kita punyai saat ini.

Saya yakin hampir semua orang IT pasti pernah menggunakan MS-Excel untuk hal-hal tertentu mulai dari hanya sekedar ngetik, sampai membuat laporan-laporan pekerjaan dan lain sebagainya. Disini saya ingin menunjukkan bagaimana cara membuat format table di excel sampai dengan membuat program macro sehingga desain table yang telah dibuat tersebut bisa di-auto generate menjadi script transact-SQL.

Langkah-langkah desain table dan pembuatan program macro adalah sebagai berikut :

1. Buka Excel anda, kemudian tentukan dahulu table-table yang akan anda buat. Untuk lebih jelasnya lihat gambar dibawah ini :

Gambar 1: Menentukan Daftar Table

Pada gambar diatas "Sheet1" telah dirubah namanya menjadi "Master", sebenarnya tidak dirubah juga tidak apa-apa, tergantung selera anda. Hal yang sama juga dilakukan untuk Sheet2. Pada gambar diatas, Sheet2 telah dirubah namanya menjadi "Table". Selanjutnya sheet table tersebut digunakan untuk mendefinisikan semua struktur table mulai dari nama table, nama field, data type dan sebagainya. Untuk lebih jelasnya lihat gambar dibawah ini :

Gambar 2 : Menentukan Struktur Table

Pada gambar diatas dapat anda lihat ada beberapa kolom yang digunakan mulai dari kolom A sampai dengan H.

Silahkan anda amati kolom A1, B1 dan C1. Pada Kolom A1 terdapat huruf "Y". di kolom itu sebenarnya hanya sebagai flag (tanda) dimana jika terdapat huruf "Y" maka table yang bersangkutan akan di generate menjadi script.Flag ini nantinya akan sangat berguna di program macro. Kolom B1 terdapat nama table, dimana nama table tersebut harus sama persis dengan nama table di sheet master. Sedangkan kolom C1 berisi keterangan dari nama table yang bersangkutan.

Selanjutnya anda lihat di kolom B2 sampai kolom H2. Disitu ada tulisan COLUMNS sampai dengan RCOL, berikut ini keterangan masing-masing fungsinya :

Kolom	Fungsi
COLUMNS	Berfungsi untuk mendefinisikan field-field apa saja yang terdapat dalam table yang bersangkutan.
TYPE	Berfungsi untuk mendefinisikan type data apa yang digunakan untuk masing-masing field.
REQ'D	Berfungsi untuk mendefinisikan field tersebut harus terisi (NOT NULL) atau boleh tidak diisi (NULL)
KEY	Key disini terdapat jenis 3 flag yaitu "PK" yang melambangkan Primary Key, "FK" yang melambangkan "Foreign Key" atau "PF" Primary Foreign Key. Anda bisa menambahkan flag yang lain misalkan "DF" = default "TR"= trigger dan lain sebagainya sesuai dengan kebutuhan anda.
OBJ	Pada SQL Server atau di Database engine lainnya seperti Oracle atau MySql, sebuah constraint diwajibkan diberi nama yang unik. Penamaan constraint tersebut disimpan pada kolom OBJ, misalkan jika terdapat constraint foreign key untuk CAT_ID, maka foreign key tersebut diberi nama FK__MSPRD002_MSPRD001_CAT_ID dan sebagainya. Aturan penamaan ini saya mengikuti aturan penamaan constraint di SQL Server.
REF	Kolom ini hanya berfungsi untuk menjelaskan key tersebut direferensikan ke table mana. Jadi misalkan pada table product (MSPRD002) terdapat foreign key yang mengarah ke table kategori product (MSPRD001), maka kolom ini berisi nama table yang direferensi oleh key yang bersangkutan.
RCOL	Hampir sama dengan kolom REF, yang membedakan adalah jika kolom REF berisi nama table yang direferensi, maka pada kolom ini berisi nama field yang direferensi.

Sebenarnya format tersebut tidaklah harus seperti itu, format tersebut masih bisa anda modifikasi sesuai dengan selera dan kebutuhan anda.

Setelah anda selesai membuat formatnya, maka langkah selanjutnya adalah membuat macro yang berfungsi untuk men-generate desain table tersebut menjadi script transact-SQL. Berikut ini langkah-langkah membuat macronya :

Step 1. Pilih menu Tools-Macro-Visual Basic Editor

Step 2. Desain interfacenya seperti gambar berikut ini :

Gambar 3 : Interface Macro

Step 3. Susun property component-componentnya seperti dibawah ini

No	Component	Property
1	Form	Name = frmMain
2	ListBox	Name = Lst
3	Command1	Name = CmdFill, Caption = Fill
4	Command2	Name = CmdDel, Caption = Del
5	Command3	Name = CmdGen, Caption = Generate

Step 4. Click frmMain, kemudian tekan F7 untuk mnampilkan window Code, selanjutnya silahkan copy paste code programnya dibawah ini :

Private Sub CmdFill_Click() Dim O As Object For Each O In Excel.Sheets Lst.AddItem O.Name Next End Sub Private Sub CmdDel_Click() Lst.RemoveItem Lst.ListIndex End Sub Private Sub CmdGen_Click() Call CreateSQL End Sub '----------------------------- Private Sub setdef() Dim i As Long For i = 1 To 5000 If Sheet13.Cells(i, 8) = "(GETDATE())" Then Sheet13.Cells(i, 5) = "DF" End If Next i End Sub Private Sub CreateSQL() Dim SQL As String Dim FileName As String FileName = "C:\Generated.sql" Dim i As Integer Dim ketemu As Boolean Dim O As Object For Each O In Excel.Sheets ketemu = False i = 0 While (i <= Lst.ListCount - 1) And Not ketemu 'ListBox1.AddItem o.Name If O.Name = Lst.List(i) Then GenerateSQL SQL, O, "table" 'ITEM 1 GenerateSQL SQL, O, "keys" 'ITEM 1 GenerateSQL SQL, O, "update_triggers" 'ITEM 1 GenerateSQL SQL, O, "triggers" ketemu = True Else i = i + 1 End If Wend Next 'GenerateSQL SQL, Sheet3, "insert" 'GenerateSQL SQL, Sheet17, "insert" SQL = "Begin tran " & vbCrLf & SQL & vbCrLf & "rollback tran" Open FileName For Output As #1 Print #1, , SQL Close #1 If MsgBox("Scrip sudah disimpan dalam file " & FileName & ", anda ingin membuka file tsb?", vbYesNo, "Konfirmasi") = vbYes Then Shell "notepad.exe " & FileName, vbNormalFocus End If End Sub Private Sub GenerateSQL(ByRef SQL As String, Sheet As Object, Part As String) Dim i As Long Dim RowReff As String Dim TableN() As String Dim StartFrom() As Long Dim StartTo As Long Dim PKString As String Dim IsString As Boolean Dim TrgString As String Dim LastRow As Long Dim ObjName As String Dim PF As String Dim PK As String Dim ColString As String Dim ValString As String ReDim TableN(0) ReDim StartFrom(0) 'cari lastrow SQL = SQL & vbCrLf & "/* ============ " & Sheet.Name & " : " & Part & " ============== */" & vbCrLf J = 0 Do Until i > 2 J = J + 1 If Sheet.Cells(J, 2) <> "" Then i = 0 Else i = i + 1 End If Loop LastRow = J - 3 For i = 2 To LastRow RowReff = Sheet.Cells(i, 2) If (RowReff = "TABLE" Or RowReff = "COLUMNS" Or RowReff = "TRIGGER") Then ReDim Preserve TableN(UBound(TableN) + 1) ReDim Preserve StartFrom(UBound(StartFrom) + 1) TableN(UBound(TableN)) = Sheet.Cells(i - 1, 2) Select Case RowReff Case "COLUMNS" StartFrom(UBound(StartFrom)) = i + 1 Case "TABLE" StartFrom(UBound(StartFrom)) = i + 3 Case "TRIGGER" StartFrom(UBound(StartFrom)) = i + 1 End Select End If Next i Select Case Part Case "table" 'CREATE TABLE For i = 1 To UBound(TableN) If i < UBound(TableN) Then StartTo = StartFrom(i + 1) - 5 Else StartTo = LastRow End If If Sheet.Cells(StartFrom(i) - 2, 1) = "Y" Then SQL = SQL & vbCrLf & "CREATE TABLE [" & TableN(i) & "] (" For J = StartFrom(i) To StartTo SQL = SQL & vbCrLf & Sheet.Cells(J, 2) & " " & Sheet.Cells(J, 3) & " " & Sheet.Cells(J, 4) If J <> StartTo Then SQL = SQL & "," End If Next J SQL = SQL & vbCrLf & ") ON [PRIMARY]" SQL = SQL & vbCrLf & "GO" & vbCrLf End If Next i 'PRIMARY KEY For i = 1 To UBound(TableN) If i < UBound(TableN) Then StartTo = StartFrom(i + 1) - 5 Else StartTo = LastRow End If If Sheet.Cells(StartFrom(i) - 2, 1) = "Y" Then SQL = SQL & vbCrLf & "ALTER TABLE [dbo].[" & TableN(i) & "] WITH NOCHECK ADD" 'DEFAULT VALUE For J = StartFrom(i) To StartTo RowReff = Sheet.Cells(J, 5) If RowReff = "DF" Or RowReff = "PD" Then SQL = SQL & vbCrLf & "CONSTRAINT [DF__" & TableN(i) & "__" & Sheet.Cells(J, 2) & "] DEFAULT (" & Sheet.Cells(J, 8) & ") FOR [" & Sheet.Cells(J, 2) & "]," End If Next J SQL = SQL & vbCrLf & "CONSTRAINT [PK__" & TableN(i) & "] PRIMARY KEY CLUSTERED" SQL = SQL & vbCrLf & "(" PKString = "" For J = StartFrom(i) To StartTo RowReff = Sheet.Cells(J, 5) If RowReff = "PK" Or RowReff = "PF" Or RowReff = "PD" Then PKString = PKString & vbCrLf & Sheet.Cells(J, 2) & "," End If Next J PKString = Left(PKString, Len(PKString) - 1) SQL = SQL & PKString SQL = SQL & vbCrLf & ") ON [PRIMARY]" SQL = SQL & vbCrLf & "GO" & vbCrLf End If Next i Case "keys" 'FOREIGN KEY For i = 1 To UBound(TableN) If i < UBound(TableN) Then StartTo = StartFrom(i + 1) - 5 Else StartTo = LastRow End If If Sheet.Cells(StartFrom(i) - 2, 1) = "Y" Then PF = "" PK = "" For J = StartFrom(i) To StartTo RowReff = Sheet.Cells(J, 5) If Sheet.Cells(J, 1) <> "O" And (RowReff = "FK" Or RowReff = "PF") Then ObjName = Sheet.Cells(J, 6) If Trim(ObjName) <> "" Then PF = PF & IIf(PF = "", "", "," & vbCrLf) & Sheet.Cells(J, 2) PK = PK & IIf(PK = "", "", "," & vbCrLf) & Sheet.Cells(J, 8) SQL = SQL & vbCrLf & "ALTER TABLE [dbo].[" & TableN(i) & "] ADD" SQL = SQL & vbCrLf & "CONSTRAINT [" & ObjName & "] FOREIGN KEY" SQL = SQL & vbCrLf & "(" SQL = SQL & vbCrLf & PF SQL = SQL & vbCrLf & ") REFERENCES [dbo]." & Sheet.Cells(J, 7) & " (" SQL = SQL & vbCrLf & PK SQL = SQL & vbCrLf & ")" SQL = SQL & vbCrLf & "GO" & vbCrLf PK = "" PF = "" 'MsgBox SQL Else PF = PF & IIf(PF = "", "", "," & vbCrLf) & Sheet.Cells(J, 2) PK = PK & IIf(PK = "", "", "," & vbCrLf) & Sheet.Cells(J, 8) End If End If Next J End If Next i Case "update_triggers" 'CREATE UPDATE TRIGGER For i = 1 To UBound(TableN) If i < UBound(TableN) Then StartTo = StartFrom(i + 1) - 5 Else StartTo = LastRow End If If Sheet.Cells(StartFrom(i) - 2, 1) = "Y" Then PKString = "" For J = StartFrom(i) To StartTo RowReff = Sheet.Cells(J, 5) If RowReff = "PK" Or RowReff = "PF" Then PKString = PKString & "+'/'+" & Sheet.Cells(J, 2) End If Next J PKString = Right(PKString, Len(PKString) - 5) SQL = SQL & vbCrLf & "CREATE TRIGGER [TR__" & TableN(i) & "__MODIFY_DATE] ON dbo." & TableN(i) & " FOR UPDATE AS " & vbCrLf & "update " & TableN(i) & " set MODIFY_DATE=getdate() where " & PKString & " in (select " & PKString & " from inserted)" SQL = SQL & vbCrLf & "GO" & vbCrLf End If Next i Case "triggers" 'CREATE TRIGGER For i = 1 To UBound(TableN) If i < UBound(TableN) Then StartTo = StartFrom(i + 1) - 3 Else StartTo = LastRow End If If Sheet.Cells(StartFrom(i) - 1, 1) = "Y" Then TrgString = "" For J = StartFrom(i) To StartTo PKString = Sheet.Cells(J, 2) TrgString = TrgString & IIf(TrgString <> "", vbCrLf, "") & Sheet.Cells(J, 2) Next J SQL = SQL & vbCrLf & TrgString SQL = SQL & vbCrLf & "GO" & vbCrLf End If Next i End Select End Sub

Step 5. Masih di Visual Basic editor, silahkan anda lihat project explorer, disitu terdapat terdapat dua folder yaitu Microsoft Excel objects dan Forms. Pada folder Microsoft Excel objects terdapat object Sheet1(Master), Sheet2(Table), Sheet3(Sheet3) dan ThisWorkbook. Sekarang silahkan click ThisWorkbook, kemudian tekan F7. Setelah mucul window code anda copy-paste code program dibawah ini :

Sub main() Dim f As frmMain Set f = New frmMain f.Show End Sub

Sampai step ke 5, proses desain table dan pembuatan macro sudah selesai, langkah selanjutnya tinggal menjalankan macro untuk proses generate script transact SQL. Untuk menjalankan macro ada dua cara yang pertama di window Visual Basic editor, silahkan tekan tombol F5. Cara yang kedua di window excel anda pilih menu Tools > Macro > Macros (Alt+F8). Setelah muncul window Run, click ThisWorkbook.main kemudian click Run.

Setelah macro anda dalam kondisi runing, maka selanjutnya adalah mengoperasikan program macronya. Pertama tekan tombol Fill. Tombol Fill ini berfungsi untuk menampilkan semua Sheet mulai dari Sheet Master sampai dengan Sheet3 pada Listbox yang telah anda buat tadi. Dikarenakan Sheet yang dipakai hanya Sheet Table, maka hapus Sheet Master dan Sheet3 di Listbox tersebut dengan cara meng-click tombol Del. Terakhir click tombol Generate, tombol generate ini nantinya akan menghasilkan sebuah file yang bernama Generate.sql dimana file ini tersimpan di Drive C.

Sampai disini mudah-mudahan artikel sederhana ini bermanfaat bagi kita semua. Trimakasih...

Eko Heri Susanto
Patria Computer
Jl.Cikini IV No 18 Jakarta Pusat
Jakarta-Indonesia, 10330
Phone/Fax : +62 21-3910750
HP : +62 815 11254389

Kirim via Email :: Tampilkan Versi Cetak

Komentar

Halaman Komentar: < 1 2 3 >

agunki

malez_bangeet@...

Kamis Legi, 15 November 2007

WAH BAGUZ JG KREASINYA , aq lagi kesulitan neh dalam photoshop, and aplikasi pembuatan disain web, boleh ngak minta tipz biar bisa bikin yang perfect

dby

dp_140279@...

Kamis Wage, 13 Desember 2007

hi.. lam kenal to bengkel excel sy ada file excel dan menggunakan password... masalah sy lupa passwordnya... gmn solusinya supaya bs membukanya excel dan password di vba dan macro... thanks regard dby

AGus Romadlon

enzomarsca@...

Rabu Wage, 2 Januari 2008

Mau tanya soal Print Out for Macro Excel. Maksud saya adalah Begitu Tampilan Print Out di klik masuk ke Printer (data yang sudah di layout) Saya sampe hari ni belum bisa menemukannya> thanks,s sebelumnya

bale_gol

t.abang.pln@...

Rabu Pon, 20 Februari 2008

> tutorial buat belajar macro excel ada ga kirim ke e-mail gw dong di t_abang@yahoo.com

gandhi

gandoel_kardus@...

Sabtu Legi, 23 Februari 2008

tlng dong kasih tau tentang editor vb pada excel

zailani

sl04@...

Kamis Kliwon, 13 Maret 2008

Kalo mengconvert file text ke excel dengan VB macro excel gimana ya...?

lalu

laluedi_sb@...

Jum'at Legi, 14 Maret 2008

mas gimana caranya buat setting printer untuk laporan di crystall report ?????

sandy

sandys_gant@...

Jum'at Pahing, 4 April 2008

boleh tanya nih, gimana ya cara membuka password exce, yang lupa, sayangkan kalo datanya ga bisa dibuka dan harus harus dibuat dari awal lagi. itu aja thanks

Taofik

taofik@...

Rabu Pahing, 9 April 2008

O ya thank ya ..dah bantu gw buat aplikasi pph21 pake excel..o ya kira2 bisa ngak ya excel bikin aplikasi yang tool didalamnya bisa kita customize..biar excelnya ng lock...

nopie

nopi_smansa@...

Selasa Pon, 15 April 2008

keren tapi minta tentang excel lebih lengkap dunks

Halaman Komentar: < 1 2 3 >

Mengisi Komentar

Daftar Artikel Lain-lain

» Membuat Variabel Pada Javascript Berfungsi Sama Dengan Variabel $_GET Pada PHP (4)

Minggu Wage, 23 Desember 2007

Kita bisa membuat variabel yang mempunyai sifat sama dengan $_GET pada PHP dengan menggunakan Javascript sehingga untuk menangkap variabel yang dilemparkan dari URL tidak perlu menggunakan PHP lagi

» MIDlet: Mencari Neptu dan Pasaran (36)

Jum'at Kliwon, 17 Februari 2006