Pada tutorial sebelumnya
telah diterangkan apa itu stored procedure. Pada tutorial kali ini saya
akan sedikit menjelaskan penerapan stored procedure pada MySQL di
Visual Basic 6. Dengan syarat MySQL nya versi 5 ke atas, karena untuk
versi 5 ke bawah belum mendukung Stored Procedure. Sebelumnya buat
database baru dengan nama dbmhs setelah itu buat tabel dengan nama
tblmahasiswa dengan struktur sebagai berikut ini :
Kemudian buat stored procedure untuk menghapus data mahasiswa dengan nama stored procedure HapusMhs dengan mengetikan perintah berikut ini :
Jika sudah bukalah visual basic 6 kemudian desainlah satu form seperti yang tampak pada gambar berikut ini :
Jika sudah kemudian buatlah koding untuk input data, ubah data dan hapus data. Di sini kita akan memanggil stored procedure yang telah kita buat tadi. Kodingnya tampak seperti di bawah ini.
Sebelumnya aktifkan dulu Microsoft ActiveX Data Object Library 2.8. Untuk koding lengkapnya silahkan download source code dan tutorialnya.
Selamat Mencoba. Semoga tutorial ini bermanfaat…..!
NIM | Char (4) | Primary Key |
Nama | Varchar (40) | |
Alamat | Varchar (50) | |
Jurusan | Varchar (30) |
Jika sudah buat stored procedure untuk
input ke tabel mahasiswa dengan nama stored procedure InputMhs dengan
mengetikan perintah seperti berikut ini:
Kemudian buat stored procedure untuk ubah data mahasiswa dengan nama
stored procedure UbahMhs dengan mengetikan perintah seperti berikut ini:Kemudian buat stored procedure untuk menghapus data mahasiswa dengan nama stored procedure HapusMhs dengan mengetikan perintah berikut ini :
Jika sudah bukalah visual basic 6 kemudian desainlah satu form seperti yang tampak pada gambar berikut ini :
Jika sudah kemudian buatlah koding untuk input data, ubah data dan hapus data. Di sini kita akan memanggil stored procedure yang telah kita buat tadi. Kodingnya tampak seperti di bawah ini.
Sebelumnya aktifkan dulu Microsoft ActiveX Data Object Library 2.8. Untuk koding lengkapnya silahkan download source code dan tutorialnya.
Selamat Mencoba. Semoga tutorial ini bermanfaat…..!
Bagaimanakah caranya mengkoneksikan database MySQL dengan Visual
Basic 6 dan menampilkan datanya? Dalam pembuatan tutorial ini saya
menggunakan driver untuk MySQL versi 5.1 dan tentunya sudah terinstall
MySQL nya dunk hehehehe. Disini Saya memakai full koding untuk
koneksinya tanpa menggunakan kontrol ADODC. Dengan asumsi kita sudah
buat database dalam MySQL dengan nama DbMhs dan tabel TblMahasiswa.
Semoga tutorial ini bermanfaat.
-Buka Visual Basic 6
-kemudian klik menu project-references-kemudian beri tanda centang Microsoft ActiveX Data Object Library 2.8. Kalau tidak ada 2.8 silahkan 2.7 atau 2.6 juga tidak apa2. kemudian klik OK.
-Kalau sudah tambahkan sebuah modul yang nantinya di gunakan untuk koneksi ke MySQL. Dengan cara klik menu Project-Add Modul kemudian klik open. Dan berinama ModCon. Kemudian tuliskan koding berikut ke dalam modul
Ket: PWD adalah password MySQL. Passwordnya di sesuaikan dengan yang ada di komputer masing2 tentunya.
-Kemudian desainlah sebuah form untuk menampilkan datanya dari tabel mahasiswa. Dan tambahkan control msflexgrid. Kalau belum ada controlnya tambahkan lewat klik menu project pilih component maka akan muncul jendela seperti di bawah ini. Pilih microsoft Flexgrid Control 6.0 kemudian klik OK.
-Kalau sudah tambahkan flexgrid ke dalam form. Seperti yang tampak pada gambar berikut ini
Kemudian kita mulai kodingnya. Pada bagian General Declaration ketikan koding berikut :
Kemudian ketik koding berikut ini, ini adalah koding untuk mendesain tampilan msflexgrid.
Kemudian ketik koding berikut. Koding ini berfungsi untuk menampilkan data dari MySQL untuk tabel mahasiswa ke msflexgrid
Kemudian pada bagian form load ketikan koding berikut.
NB : call buka berfunggsi memanggil koneksi ke mysql nya yang telah di buat di dalam modul.
-Kalau sudah semua lalu jalankan…
Selesai. Semoga dapat membantu. Jika menginginkan source code dan tutorialnya silahkan download di link bawah ini.
-Buka Visual Basic 6
-kemudian klik menu project-references-kemudian beri tanda centang Microsoft ActiveX Data Object Library 2.8. Kalau tidak ada 2.8 silahkan 2.7 atau 2.6 juga tidak apa2. kemudian klik OK.
-Kalau sudah tambahkan sebuah modul yang nantinya di gunakan untuk koneksi ke MySQL. Dengan cara klik menu Project-Add Modul kemudian klik open. Dan berinama ModCon. Kemudian tuliskan koding berikut ke dalam modul
01 | Public Conn As New ADODB.Connection |
02 | Public Sub Buka() |
03 | Set Conn = New ADODB.Connection |
04 | Conn.ConnectionString = "Provider=MSDASQL.1;" _ |
05 | & "Persist Security Info=False;" _ |
06 | & "DRIVER={MySQL ODBC 5.1 Driver};" _ |
07 | & "DATABASE=dbMhs;" _ |
08 | & "OPTION=0;" _ |
09 | & "PORT=3306;" _ |
10 | & "SERVER=localhost;" _ |
11 | & "UID=root;" _ |
12 | & "PWD=1234;" |
13 | Conn.Open |
14 | Conn.CursorLocation = adUseClient |
15 | End Sub |
-Kemudian desainlah sebuah form untuk menampilkan datanya dari tabel mahasiswa. Dan tambahkan control msflexgrid. Kalau belum ada controlnya tambahkan lewat klik menu project pilih component maka akan muncul jendela seperti di bawah ini. Pilih microsoft Flexgrid Control 6.0 kemudian klik OK.
-Kalau sudah tambahkan flexgrid ke dalam form. Seperti yang tampak pada gambar berikut ini
Kemudian kita mulai kodingnya. Pada bagian General Declaration ketikan koding berikut :
1 | Dim RsMhs As New ADODB.Recordset |
01 | Private Sub AktifGrid() |
02 | MSFlexGrid.Clear |
03 | MSFlexGrid.Rows = 2 |
04 | MSFlexGrid.Cols = 5 |
05 | MSFlexGrid.RowHeightMin = 300 |
06 | '----------------------------------------- |
07 | MSFlexGrid.Col = 0 |
08 | MSFlexGrid.Row = 0 |
09 | MSFlexGrid.Text = "NO" |
10 | MSFlexGrid.CellFontBold = True |
11 | MSFlexGrid.ColWidth(0) = 500 |
12 | MSFlexGrid.AllowUserResizing = flexResizeColumns |
13 | MSFlexGrid.CellAlignment = flexAlignCenterCenter |
14 | '------------------------------------------ |
15 | MSFlexGrid.Col = 1 |
16 | MSFlexGrid.Row = 0 |
17 | MSFlexGrid.Text = "NIM" |
18 | MSFlexGrid.CellFontBold = True |
19 | MSFlexGrid.ColWidth(1) = 800 |
20 | MSFlexGrid.AllowUserResizing = flexResizeColumns |
21 | MSFlexGrid.CellAlignment = flexAlignCenterCenter |
22 | '----------------------------------------- |
23 | MSFlexGrid.Col = 2 |
24 | MSFlexGrid.Row = 0 |
25 | MSFlexGrid.Text = "NAMA MHS" |
26 | MSFlexGrid.CellFontBold = True |
27 | MSFlexGrid.ColWidth(2) = 3000 |
28 | MSFlexGrid.AllowUserResizing = flexResizeColumns |
29 | MSFlexGrid.CellAlignment = flexAlignCenterCenter |
30 | '------------------------------------------ |
31 | MSFlexGrid.Col = 3 |
32 | MSFlexGrid.Row = 0 |
33 | MSFlexGrid.Text = "ALAMAT" |
34 | MSFlexGrid.CellFontBold = True |
35 | MSFlexGrid.ColWidth(3) = 3000 |
36 | MSFlexGrid.AllowUserResizing = flexResizeColumns |
37 | MSFlexGrid.CellAlignment = flexAlignCenterCenter |
38 | '----------------------------------------- |
39 | MSFlexGrid.Col = 4 |
40 | MSFlexGrid.Row = 0 |
41 | MSFlexGrid.Text = "JURUSAN" |
42 | MSFlexGrid.CellFontBold = True |
43 | MSFlexGrid.ColWidth(4) = 2500 |
44 | MSFlexGrid.AllowUserResizing = flexResizeColumns |
45 | MSFlexGrid.CellAlignment = flexAlignCenterCenter |
46 | End Sub |
01 | Private Sub TampilGrid() |
02 | Dim Baris As String |
03 | MSFlexGrid.Clear |
04 | Call AktifGrid |
05 | '--------------------- |
06 | MSFlexGrid.Rows = 1 |
07 | Baris = 0 |
08 | Set RsMhs = New ADODB.Recordset |
09 | RsMhs.Open "SELECT * FROM tblmahasiswa ORDER BY nim ASC", Conn, adOpenDynamic, adLockOptimistic |
10 | '--------------------- |
11 | If RsMhs.BOF Then |
12 | Exit Sub |
13 | Else |
14 | RsMhs.MoveFirst |
15 | Do While Not RsMhs.EOF |
16 | On Error Resume Next |
17 | Baris = Baris + 1 |
18 | MSFlexGrid.Rows = Baris + 1 |
19 | MSFlexGrid.TextMatrix(Baris, 0) = Baris |
20 | MSFlexGrid.TextMatrix(Baris, 1) = RsMhs.Fields("nim") |
21 | MSFlexGrid.TextMatrix(Baris, 2) = RsMhs.Fields("nama") |
22 | MSFlexGrid.TextMatrix(Baris, 3) = RsMhs.Fields("alamat") |
23 | MSFlexGrid.TextMatrix(Baris, 4) = RsMhs.Fields("jurusan") |
24 | RsMhs.MoveNext |
25 | Loop |
26 | End If |
27 | End Sub |
1 | Private Sub Form_Load() |
2 | Call Buka |
3 | TampilGrid |
4 | End Sub |
-Kalau sudah semua lalu jalankan…
Selesai. Semoga dapat membantu. Jika menginginkan source code dan tutorialnya silahkan download di link bawah ini.
Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi.
Untuk membuat splash scren tersebut caranya sebagai berikut :
- Buat dulu form utamanya.
- Tambahkan form yang akan digunakan sebagai splash screen. Beri nama form tersebut dengan Splash atau apa saja sesuka anda.
- Kemudian desain form seperi gambar di atas. tambahkan kontrol timer sebanyak 5 buah
- Dan tambahkan label sebanyak 2 buah terus kasih nama LblAnim dan LblStatus seperti yang tampak pada gambar di atas.
- Berikut pengaturan ppropertinya
BorderStyle = None
StartUpPosition = CenterScreen
ShowInTaskbar = False
Atur properti Masing2 Timer :
Enable=True
Interval=1000
Kemudian buat koding berikut:
01 | Private Sub AnimateText() |
02 | On Error Resume Next |
03 | If LblAnim.Caption = "[-]" Then |
04 | LblAnim.Caption = "[\]" |
05 | ElseIf LblAnim.Caption = "[\]" Then |
06 | LblAnim.Caption = "[|]" |
07 | ElseIf LblAnim.Caption = "[|]" Then |
08 | LblAnim.Caption = "[/]" |
09 | ElseIf LblAnim.Caption = "[/]" Then |
10 | LblAnim.Caption = "[-]" |
11 | End If |
12 | End Sub |
1 | Private Sub Timer1_Timer() |
2 | LblStatus.Caption = "Tunggu... Pemeriksaan File.." |
3 | Timer1.Enabled = False |
4 | Timer2.Enabled = True |
5 | End Sub |
1 | Private Sub Timer2_Timer() |
2 | LblStatus.Caption = "Tunggu... Periksa Database..." |
3 | Timer2.Enabled = False |
4 | Timer3.Enabled = True |
5 | End Sub |
01 | Private Sub Timer3_Timer() |
02 | Me .MousePointer = 11 |
03 | On Error GoTo Koneksidatabase |
04 | 'Call Buka |
05 | LblStatus.Caption = "Koneksi Database Sukses..." |
06 | Timer3.Enabled = False |
07 | Timer4.Enabled = True |
08 | Exit Sub |
09 | Koneksidatabase: |
10 | LblStatus.Caption = "Koneksi Gagal; Periksa Setting Database..." |
11 | MsgBox "Koneksi Ke Database Gagal..." & vbCrLf & "" _ |
12 | & "Coba Periksa Settingan Database..." , vbCritical, "Connection Database Error..." |
13 | Set Splash = Nothing |
14 | End |
15 | End Sub |
1 | Private Sub Timer4_Timer() |
2 | Timer4.Interval = 10 |
3 | Timer4.Enabled = True |
4 | LblStatus.Caption = "Exit..." |
5 | Unload Me |
6 | FormMenu.Show |
7 | End Sub |
1 | Private Sub Timer5_Timer() |
2 | AnimateText |
3 | end sub |
http://visualbasicx.wordpress.com/category/visual-basic-6/
Tidak ada komentar:
Posting Komentar