Langkah pertama, buatlah terlebih dahulu database sederhana melalui localhost/phpmyadmin.
Misalnya database belajar_vb dengan nama
tabel biodata, field nama, alamat, jenis_kelamin,
dan agama. Cara membuat database
bisa anda pelajari di sini.
Buat datasource dengan nama dsn_belajarvb
dan koneksikan melalui ODBC. Input
Data Visual Basic ini, menggunakan database mysql. Aplikasi yang dibutuhkan dan
cara mengkoneksikan bisa anda pelajari di sini.
Setelah kita membuat database, kita buat design input dari visual basic.
caranya sebagai berikut :
1.
Run Program Visual Basic. Pilih Start
> All Program > Microsoft Visual Basic 6.0
 |
| Gambar 1. Membuka Aplikasi Visual Basic dari Start |
 |
| Gambar 2. Memilih Aplikasi Visual Basic |
2.
Setelah
muncul kotak dialog New Project, pilih jenis aplikasi Standard EXE.
 |
| Gambar 3. Halaman Awal Visual Basic |
3. Klik
tombol open untuk memulai, maka akan segera muncul lingkungan kerja
Visual Basic.
 |
| Gambar 4. Lingkungan Kerja Visual Basic 6.0 |
4.
Tambahkan
komponen Adodc dan DataGrid. Anda bisa menambahkannya
dari Menu
Bar. Pilih Project > Components, lalu beri tanda centang
pada komponen Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0
(OLEDB).
 |
| Gambar 5. Menambahkan Komponen |
 |
| Gambar 6. Menambahkan Adodc dan DataGrid |
5. Buatlah
design di Form. Silahkan anda pilih
Label
(Ubah Caption-nya), Text (Kosongkan Text-nya), CommandButton
(Ubah Text-nya), OptionButton (Ubah Captionnya), dan ComboBox dari Toolbox,
kemudian desain seperti gambar di bawah ini.
 |
| Gambar 7. Mendesign Form |
- · Untuk CommandButton SIMPAN dan RESET pada properties-nya ubah visible-nya menjadi false, hal ini menyebabkan kedua tombol ini tidak terlihat pada saat di Run.
6. Drag Adodc
ke dalam form kemudian anda lihat pada jendela properties-nya. Setting
sebagai berikut :
a.
Klik ConnectionString,
akan muncul (...) klik kemudian pilih Use ODBC Data Source Name dan pilih datasource
name yang sudah anda buat dan anda koneksikan melalui ODBC yaitu dsn_belajarvb.
 |
| Gambar 8. Memilih Data Source Name |
b.
Klik Recordsource
(...) pilih 2-adCmdTable dan pilih tablename
dari database yang sudah anda buat tadi yaitu tabel biodata.
 |
| Gambar 9. Menyetting ConnectionString dan Recordsource dari properties |
 |
| Gambar 10. Memilih Tabel pada RecordSource |
7.
Drag DataGrid
ke dalam form, kemudian anda lihat pada jendela properties-nya.
a.
Pada
bagian DataSource anda pilih Adodc1.
 |
| Gambar 11. Setting Datasource pada DataGrid |
b. Pada AllowUpdate,
pilih False agar DataGrid tidak bisa diedit ssecara
langsung. Hal tersebut untuk menghindari adanya data terhapus atau berubah
karena ketidak sengajaan.
 |
| Gambar 12. Mengunci DataGrid |
Sekarang anda buat koding untuk
tombolnya. Klik 2 X pada CommandButtton ketik koding ini :
1.
Tombol Tambah
sebagai berikut :
Private Sub CommandTAMBAH_Click()
CommandTambah.Visible = False
CommandEdit.Visible = False
CommandHapus.Visible = False
CommandSimpan.Visible = True
CommandReset.Visible = True
CommandKeluar.Caption = "BA&TAL SIMPAN"
End Sub
·
Koding di atas adalah untuk menampilkan tombol SIMPAN dan RESET dan menyembunyikan tombol yang lain serta mengubah tombol KELUAR menjadi tombol BATAL SIMPAN.
2.
Tombol SIMPAN
sebagai berikut :
Private Sub CommandSIMPAN_Click()
If TextNama.Text =
"" Then
MsgBox ("ANDA BELUM
MEMASUKKAN NAMA")
TextNama.SetFocus
Else
If TextAlamat.Text =
"" Then
MsgBox ("ANDA BELUM
MEMASUKKAN ALAMAT")
TextAlamat.SetFocus
Else
If ComboAgama.Text =
"PILIH AGAMA" Then
MsgBox ("ANDA BELUM
MEMILIH AGAMA")
ComboAgama.SetFocus
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("nama") = TextNama.Text
Adodc1.Recordset.Fields("alamat") = TextAlamat.Text
Adodc1.Recordset.Fields("agama") = ComboAgama.Text
If Option1.Value = True Then
Adodc1.Recordset.Fields("jenis_kelamin") =
Left(Option1.Caption, 1)
Else
Adodc1.Recordset.Fields("jenis_kelamin") =
Left(Option2.Caption, 1)
End If
MsgBox ("DATA SUDAH DISIMPAN")
Call bersih
Adodc1.Recordset.Update
Adodc1.Refresh
CommandTambah.Visible =
True
CommandEdit.Visible = True
CommandHapus.Visible =
True
CommandSimpan.Visible =
False
CommandReset.Visible =
False
CommandKeluar.Caption =
"KEL&UAR"
End If
End If
End If
End Sub
·
Koding yang saya beri warna merah di atas
berfungsi untuk memberi informasi jika ada salah satu field yang belum diisi.
·
Koding yang saya beri warna hitam adalah koding
untuk menyimpan data yang sudah ditambahkan.
·
Koding yang saya beri warna biru adalah koding
untuk memunculkan kembali tombol-tombol yang tadinya disembunyikan.
3.
Tombol KELUAR
sebagai berikut :
Private Sub
CommandKeluar_Click()
If CommandTambah.Visible = True Then
Unload Me
Else
CommandTambah.Visible
= True
CommandEdit.Visible
= True
CommandHapus.Visible
= True
CommandSimpan.Visible
= False
CommandReset.Visible
= False
CommandKeluar.Caption
= "KEL&UAR"
Call bersih
End If
End Sub
· Koding yang saya berwarna merah maksudnya adalah
jika tombol TAMBAH ditampilkan maka
tombol KELUAR berfungsi untuk
menghentikan Program, dan jika tombol TAMBAH
sedang disembunyikan yang berarti pula sedang dalam proses akan menyimpan data,
maka tombol KELUAR berfungsi untuk
menghentikan proses menyimpan saja tapi tidak menghentikan program.
4.
Tombol RESET
sebagai berikut :
Private Sub
CommandReset_Click()
Call bersih
TextNama.SetFocus
End Sub
·
Tombol Reset ini fungsinya untuk mengosongkan
semua textbox dengan memanggil Private
sub bersih.
5.
Untuk membuat item-item pilihan pada ComboBox,
klik
form lalu isikan koding berikut ini di bawah Private Sub Form_Load()
ComboAgama.AddItem "ISLAM"
ComboAgama.AddItem "KRISTEN"
ComboAgama.AddItem "KATOLIK"
ComboAgama.AddItem "HINDU"
ComboAgama.AddItem "BUDHA"
ComboAgama.AddItem "KONGHUCHU"
6.
Kita membutuhkan private sub bersih untuk
mengosongkan form. Masukan koding di bawah ini :
Private Sub bersih()
TextNama.Text = ""
TextAlamat.Text = ""
ComboAgama.Text = "PILIH AGAMA"
End Sub
Sekarang coba anda jalankan
program yang sudah anda buat. Jika berhasil, akan tampil seperti di bawah ini :
 |
| Gambar Hasil Program setelah di Run |
***********************************Selamat Belajar****************************************
Mantab Gan info nya numpang di coba ya gan maklum baru belajar ttg vb
BalasHapussalam dari
Barcode Scanner
sama-sama. saling berbagi ilmu mas bro/mbak sis...
Hapusfajarfebrysularto.blogspot.com
Hapussmartzeva.blogspot.com
HapusOk :)
HapusTerimakasih banyak mbak, sangat bermanfaat, cuma saya lagi nyari cara buat program surat masuk keluar yang terkoneksi dengan ms. access
Hapusdeviyulianti33.blogspot.com
BalasHapusgood blog
BalasHapusthank you, and where is your blog?
Hapusevilistyani.blogspot.com
BalasHapusOk :)
HapusAw Yunita
BalasHapushttp://yunitaaw.blogspot.com/
sip!
Hapusdesibelyuni.blogspot.com
BalasHapustugas sudah dilaksanakan...
BalasHapusCahyanita Larasati
http://ayashcorner.blogspot.com/
Ok, Sip! :)
Hapusiinrohati.blogspot.com
BalasHapusOk :)
Hapusanasputri.blogspot.com
BalasHapusok
HapusMampir kunjungan malam, Follow Back :)
BalasHapusmakasih neng aisyah ^,^ ,
BalasHapusaku juga mau tanya nih, beda nya apa kalau gunakan ADODB
kalau untuk hasilnya sama, hanya di adodc memakai penambahan komponen sedangkan di adodb tidak. di adodb memakai sourcce kode pada koneksi dan adodc tingal setiing saja
Hapuscoding untuk command EDIT sama HAPUSnya mana min?
BalasHapussimple saja, tinggal diganti baris pertama yang tadinya adodc1.recordset.addnew menjadi adodc1.recordset.delete pada HAPUS DATA dan adodc1.recordset.update pada EDIT DATA. tinggal diingat saja bahwa hapus itu bahasa inggrisnya delete dan edit itu update hehe. maaf belum sempet posting artikel lanjutan :)
HapusMba, maaf sebelumnya. saya sedang mengerjakan project input data dosen seperti program yang mba upload disini. tapi kodingan untuk button edit dan hapus masih belum bisa. gimana caranya yah biar setiap ngedit sm hapus itu kalo kita milih dari data yg tampil di datagridnya?
HapusTugas sudah dilaksanakan...
BalasHapushttp://prabowoteknikinformatika.blogspot.com
ok. silahkan cek di blog anda.
Hapuswaktu itu saya pernah pake kode ini pas saya lihat' dan entah dapet dari mana (inged bged saya pakai kode sperti it). dan saya lupa untuk kodenya - thanks atas infonya yah.. :)
BalasHapusmaaf permisi numpang tannya nh.. klo andaikan saya menginputkan data yang sama, contoh. kode, nim , nis, NO_RS, nip. ( pokoknya data field yg bersifat unik, atau (data yg seharusnya di input tidak boleh sama)), tapi pas saya coba saya inputkan berhasil kesimpan. itu kenapa yah ' kok aneh.??
contoh : nim , nama, alamat, ttl, ket. nah pas saya input untuk data nim.
nim= 0000001 , nama=woltdy , alamat= gang_buntu , ttl=9 otober 1992 , ket=lumayan
nim= 0000001 , nama=finer , alamat= Jl-damai , ttl=2 mei 1994 , ket=cukup
nah kesimpulannya' dari data field dari nim itu kan sama pas di inputkan seharusnya tidak kesimpen. kok kesimpen .
mohon penjelasan kodenya m'bak, kenapa alasannya kok begitu ??
terimakasih :'(
punya anda belum bisa masuk data dengan valid kalau cuma pakai koding saya di atas gan,
Hapusitu karena kodingnya belum diberi validasi hehe
jadi koding di atas masih diberi tambahan lagi. logika kodingnya seperti dibawah ini gan :
cek field nim pada tabel mahasiswa, dimana field nim=textnim.text
jika nim sudah ada di database maka muncul pesan "NIM SUDAH ADA. MASUKKAN NIM YANG LAIN"
jika nim belum ada di database maka masukkan dalam database, dimana
field nim=textnim.text
field nama=textnama.nama dan seterusnya
untuk kodingnya seperti ini gan :
Adodc1.Recordset.Find "NIM='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
MsgBox "NIM SUDAH ADA. MASUKKAN NIM YANG LAIN"
else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("NIM") = Textnim.Text
Adodc1.Recordset.Fields("NAMA") = Textnama.Text (dan seterusnya lanjut sendiri ya gan?)
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox ("DATA SUDAH DISIMPAN")
End If
End Sub
silahkan dicoba ya gan? terima kasih gan sudah mampir :)
terimakasih mba'ak berhasil.. terimakasih banyak yah !!
Hapusmohon maaf kalo bikin relasi gimana yah ?? dalam satu database dari tabel -> memanggil isi field nya dari tabel lain , itu relasi kan ?
menghubunginnya gimana yah kodenya seperti apa ??
beri contoh kasusnya ya Gan? Saya kurang faham maksudnya untuk menampilkan data atau input data dari tabel berbeda Gan?
Hapusmohon bantuanny, saya mengerjakan program input data serupa, yang saya bingungkan adalah petunjuk nomor 6 yg " Klik ConnectionString, akan muncul (...) klik kemudian pilih Use ODBC Data Source Name dan pilih datasource name yang sudah anda buat dan anda koneksikan melalui ODBC yaitu dsn_belajarvb." saya sudah membuat tabel di phpmyadmin tapi kok dipilihan Use ODBC Data Source Name pilihan tabel yang saya buat ko gak ada ya, mohon bantuanya
BalasHapuslangkahnya dari awal sudah betul belum mas? anda sudah Buat Data Source ODBC belum?
HapusBuka control panel, masuk ke administrative tools dan pilih Data Source (ODBC)
Tekan tombol Add..
Pada kolom name pilih MySQL ODBC Driver, lalu tekan tombol finish
Isikan pada textbox seperti di bawah ini :
-Data Source Name : (beri nama data source, misalnya : dsnbelajarprogram)
-Description :
-Server : localhost
-User : root
-Password :
-Database :(isi dengan nama database anda) klik tanda panah dan pilih
http://aiswahyu-aisyah.blogspot.com/2013/07/membuat-aplikasi-dengan-visual-basic-60.html
silahkan dicoba. good luck :)
untung nemu blog ini kemarin waktu dapet tugas dari dosen. mudah difahami min. kalau mau ganti text field pakenya enter bukan mouse kodenya gimana mbak? terima kasih
HapusAlhamdulillah :) untuk membuat textfield pindah otomatis dengan enter, klik di desain textfield-nya mas, kita beri koding di text fieldnya.
HapusSebagai contoh, dalam tutorial ini kita klik TextNama, masuk halaman koding lihat di kanan atas, di situ event nya change. di rubah menjadi KeyPress.
Otomatis koding textfieldnya akan menjadi seperti ini :
Private Sub TextNama_KeyPress(KeyAscii As Integer)
Setelah itu, masukkan koding ini di bawahnya :
If KeyAscii = 13 Then
TextAlamat.SetFocus
End If
End Sub
Logika dari koding tersebut adalah :
Andai TextNama ditekan enter, maka
Kursor berada di TextAlamat
Perandaian Selesai
SetFokus artinya ketika tombol ini ( tentunya tempat kita meletakan code ini)
di click maka satu(nama variabel) menjadi focus dari pointer
Sedangkan maksud "KeyAscii = 13" adalah kode keyboard =13 (13 adalah nama lain dari tombol enter).
Semoga bermanfaat :)
numpang mampir bu
BalasHapusok. aduh... anda komentnya di mana-mana ya? ^_^
Hapuskalau mau membalikan record yang sudah terlanjut kita edit gimana ya mba?
BalasHapustombol batal simpannya listingnya gmn?
terima kasih
mengembalikan record melalui aplikasi yang kita buat dalam vb tidak mungkin. yang bisa dilakukan adalah mencegah terjadinya human erorr.
HapusJadi dalam membuat edit data, yang dilakukan terlebih dahulu adalah membuat "pencarian dengan kunci" jika itu berkaitan dengan barang biasanya memakai kode barang, jika berkaitan dengan mahasiswa memakai NIM dan sebagainya.
anda buat satu textfield kemudian diberi button "cari" yang kodingnya seperti di bawah ini :
Adodc1.Recordset.Find "NIM='" + TextCari.Text + "'", , adSearchForward, 1
If Adodc1.Recordset.EOF Then
MsgBox "NIM YANG ANDA MASUKKAN BELUM TERDAFTAR. MASUKKAN NIM YANG LAIN"
TextCari.Text=""
else
Textnim.Text=Adodc1.Recordset.Fields("NIM")
Textnama.Text=Adodc1.Recordset.Fields("NAMA") (dan seterusnya lanjut sendiri ya gan?)
End If
End Sub
*penjelasan koding :
Temukan NIM sesuai yang diinputkan di TextCari.Text
Jika di dalam Recordset Tidak Terdaftar Maka
Munculkan KOtak Pesan "NIM YANG ANDA MASUKKAN BELUM TERDAFTAR. MASUKKAN NIM YANG LAIN"
TextCari kosongkan
Selain itu (JIKA TERDAFTAR)
Tampilkan di dalam TextNIM.Text sesuai isi dari Recordset.Fields("NIM")
Tampilkan di dalam TextNama.Text sesuai isi dari Recordset.Fields("NAMA") (dan seterusnya)
Pengandaian Selesai
***
setelah data tampil, baru di situ dibuat tombol simpan dan reset. untuk mencegah human erorr, maka pada tombol simpan, diberi koding untuk menampilkan pesan memastikan apakah user benar-benar ingin menyimpan data yang sudah diedit.
Koding di tombol simpan sebagai berikut :
MsgBox("ANDA YAKIN AKAN MENYIMPAN DATA YANG DIEDIT?", vbQuestion + vbYesNo, "Pesan")
If vbYes Then
>>masukkan koding yang simpan yang sudah saya jelaskan di materi
else
call bersih
end if
end sub
*penjelasan koding :
Tampilkan Kotak pesan("ANDA YAKIN AKAN MENYIMPAN DATA YANG DIEDIT?", vbQuestion + vbYesNo, "Pesan")
jika vbYes maka data disimpan
selain itu (JIKA PILIHAN NO) maka
bersihkan seluruh textfield
perandaian selesai
***
atau bisa juga anda menyediakan tombol reset, dimana tombol reset atau batal berfungsi untuk mengosongkan semua text field yang sudah diedit.
kodingnya adalah :
Call bersih
*penjelasan : untuk sub bersih sudah saya jelaskan di materi
silahkan dicoba, semoga bermanfaat
mba ko aku kalau mau edit tidak ada pilihan
BalasHapusadodc1.recordset.edit tapi adanya adodc1.recordset.EditMode..
kalau aku pakai adodc1.recordset.editmode itu tidak bisa mba..
sedangkan kalau pakai adodc1.recordset1.AddNew terus field primary key-nya aku ga masukin ke daftar edit simpan itu tetap tidak bisa karna kan pada dasarnya adodc1.recordseT.AddNew itu untuk penambahan..
tolong pencerahannya ya mba..
terima kasih :)
memang bukan pakai adodc1.recordset.editmode tapi pakainya adodc1.recordset.update
Hapusjangan lupa untuk "id"-nya tidak diedit. untuk itu pada form simpan edit data "id" tidak diberi textfield masukan atau boleh juga ditampilkan di dalam textfield tapi enabled dari textnim nilai saat ditampilkan adalah FALSE, caranya pada koding "CARI" yang sudah saya berikan di komentar, sebelum koding END IF tambahkan koding ini :
TextNIM.Enabled=FALSE
silahkan dicoba ^_^
success mba..
BalasHapusmakasih banyak ya mba atas pencerahannya.. (^ - ^)
sama-sama ^_^
HapusSaya ingin membuat hak akses admin,operator dan kasir dengan vb 6.0 dengan mysql memakai mysql, mhn pencerahannya mbak, terimakasih
BalasHapus1. Buat Form Utama, yang nantinya akan menjadi Form yang pertama kali tampil setelah Login berhasil dilakukan.
HapusPada Form Utama ini, Klik Menu Editor, dan Buatlah Menu Untuk Admin, Operator, dan Kasir.
Beri 2 Label pada Form Utama untuk menempatkan hasil dari username dan hak akses dari database. Untuk password ada baiknya tidak ditampilkan untuk keamanan.
2. Buatlah Tabel User di database terdiri dari field username, password, dan hak_akses.
Isi field tersebut untuk 3 hak akses Admin, Operator, dan Kasir
3. Buatlah Form Login dan beri 2 Textfield pad Form Login untuk username name dan password serta Button untuk Login.
Masukkan koding di bawah ini pada Tombol Login :
Private Sub CommandLogin_click ()
If TextUser.Text = “” then
MsgBox (“Anda Belum Memasukkan Username”)
Else
If TextPassword.Text = “” then
MsgBox (“Anda Belum Memasukkan Password”)
Else
Adodc1.Recordset.Find "username='" + TextUser.Text + "'and password=”’ + TextPassword.Text +"’”, , adSearchForward, 1
If Adodc1.Recordset.EOF Then
MsgBox ("Data Yang Anda Masukkan Salah. Akses Ditolak!")
else
FormLogin.Visible=False
FormUtama.Show
FormUtama.LabelUser.Caption= Adodc1.Recordset.Fields("username")
FormUtama.LabelHakAkses.Caption= Adodc1.Recordset.Fields("hak_akses")
If FormUtama.LabelHakAkes.Caption= (“admin”) then
FormUtama.MenuOperator.Enabled=False
FormUtama.MenuKasir.Enabled=False
Else
If FormUtama.LabelHakAkes.Caption= (“Operator”) then
FormUtama.MenuAdmin.Enabled=False
FormUtama.MenuKasir.Enabled=False
Else
FormUtama.MenuAdmin.Enabled=False
FormUtama.MenuOperator.Enabled=False
End If
End If
End If
End If
End If
End Sub
*Penjelasan koding :
Jika TextUser.Text kosong maka
Muncul pesan : Anda Belum Memasukkan Username
Selain itu
JIka TextPassword.Text kosong maka
Muncul pesan : Anda Belum Memasukkan Password
Selain itu
Temukan di dalam database, record dari field username, yang sesuai dengan isi dari TextUser.Text dan field password yang sesuai dengan isi dari TextPassword.Text
Jika tidak ada maka
Muncul pesan : Data Yang Anda Masukkan Salah. Akses Ditolak!
TextUser.Text dikosongkan
TextPassword.Text dikosongkan
Selain itu (berarti Login berhasil)
FormLogin tidak tampil
FormUtama tampil
Caption pada Label User di Form Utama berisi username dari data yang dimasukkan untuk login
Caption pada Label Hak Akses di Form Utama berisi hak akses dari pengguna
Jika Caption pada Label Hak Akses di Form Utama adalah Admin maka
Menu untuk Operator pada Form Utama tidak aktif
Menu untuk Kasir pada Form Utama tidak aktif
Selain itu
Jika Caption pada Label Hak Akses di Form Utama adalah Operator maka
Menu untuk Admin pada Form Utama tidak aktif
Menu untuk Kasir pada Form Utama tidak aktif
Selain itu (jika hak akses adalah kasir)
Menu untuk Menu untuk Admin pada Form Utama tidak aktif
Menu untuk Menu untuk Operator pada Form Utama tidak aktif
Perandaian selesai
Perandaian selesai
Perandaian selesai
Perandaian selesai
Perandaian selesai
Silakan dicoba. Semoga bermanfaat.
mba aku ingin melanjuti pertanyaan ida hamidah..
BalasHapuskalau di hak akses operator misalnya ada 3 user,
operator 1 menangani mesin a-h
operator 2 menangani mesin i-o
operator 3 menangani mesin p-z
itu bagai mana ya mba?
terus aku coba listing loginnya itu masih ada yang debug di bagian:
Adodc1.Recordset.Find "username='" + TextUser.Text + "'and password=”’ + TextPassword.Text +"’”, , adSearchForward, 1
mohon pencerahannya ya mba..
-terima kasih-
tinggal memakai pencabangan if-then-else saja. tambahkan saja level di hak akses-nya. untuk contoh pada balasan saya di komentar ida hamidah, operatornya diganti dengan operator 1, operator 2, operator 3. untuk logikanya tinggal menyesuaikan saja.
Hapusjika terjadi debug, akan diberitahukan letak erorr-nya jadi ketika terjadi debug bisa dilihat troublenya dimana. mungkin saja pada database anda tidak ada field "username" atau sebab yang lain. silahkan dicek dulu ^_^
mbak itu materi yang di atas masih ada yang kurang tuh, yaitu tombol edit dan hapus ??
Hapusmohon di bantu donk kodingnya :D :D :D
apakah kode edit seperti ini :
adodc1.recordset.update
adodc1.recordset.fields ("Nama") = ""
msgbox ("Data sudah diperbaharui")
itu hanya misalkan, tapi apakah bener seperti itu ??
terimakasih
www.surgasoftware.com
betul betul betul...
Hapuspada intinya kodingnya hampir sama dengan insert, logikanya begini :
jika pada insert berarti menambahkan baru, maka pakainya .addnew, sedangkan pada edit kita hanya merubah atau mengupdate maka kita pakainya .update
satu hal, setelah koding call bersih, juga tetap memakai koding berikut :
-------------------------------------
Adodc1.Recordset.Update
Adodc1.Refresh
-------------------------------------
fungsinya mengupdate databasenya kemudian merefresh tampilannya.
iya nih Gan, artikelnya belum lengkap, belum sempat posting lagi.
maaf juga gan, baru sempat balas,
semoga bermanfaat ^_^
http://galangsa.esy.es/
BalasHapuskk kalau mau memanggil isi dari database yang sudah ada caranya bagaimana ?
BalasHapuskasus:
saya sudah ada aplikasi vb dan menggunakan database mysql (misal nama database = test1)
dan saat ini akan membangun aplikasi menggunakan vb 6 dan berfungsi untuk memanggil data beberapa field dari beberapa tabel di database test1
mohon pencerahannya kk
Silahkan baca artikel yang ini ya gan : http://aiswahyu-aisyah.blogspot.com/2013/07/membuat-aplikasi-dengan-visual-basic-60.html
Hapusboleh minta alamat email mb aisyah...
BalasHapussaya ingin belajar ke mb aisyah untuk problem vb yang saat ini saya hadapi mb
terima kasih
permisi mbak, untuk nginput data yg berhubungan gimana mbak???
BalasHapuscontoh :
saya membuat database bangunan... saya membuat 5 tabel : 1.proyek : (kodeproyek,namaproyek) 2.pekerjaan : (kodepekerjaan,namapekerjaan) 3.bahan : (kodebahan,namabahan,satuan,hargabahan) 4.tenaga : (kodetenaga,namatenaga,upahtenaga) 5.pengerjaan : (kodepengerjaan,namapengerjaan,kodeproyek,kodepekerjaan,kodebahan,kodetenaga).
disini saya mau nginput ditabel pengerjaan... kasus nya saya kan nginput ditabel proyek : ( kodeproyek 001 namaproyek pembangunan kelas). dan tabel pekerjaan : (kodepekerjaan pk01 namapekerjaan pekerjaan dinding). dan tabel bahan : (kodebahan b001 namabahan semen, kodebahan b002 namabahan pasir). dan tabel tenaga : (kodetenaga t001 namatenaga kepala tukang, kodetenaga t002 namatenaga tukang semen).
jadi tepat di tabel pengerjaan : (kodepengerjaan pg001 namapengerjaan pemasangan dinding, kodeproyek=kodeproyek ditabel proyek, begitu pula kodepekerjaan,kodebahan & kodetenaga.
pertanyaan saya ditabel pengerjaan itu misal namapengerjaan pemasangan dinding, bahan yg diperlukan ada semen dan juga pasir begitu pula tenaga juga ada kepala tukang dan tukang semen yg mengerjakan pemasangan dinding... jadi bagaimana agar semen,pasir,kepala tukang,tukang semen bisa dimasukkan bersamasama di tabel pengerjaan dengan kodepengerjaan yg sama dinamapengerjaan pemasangan dinding. terimakasih
maaf Gan, ada beberapa pekerjaan yang harus saya selesaikan sehingga tidak sempat membuka blog.
HapusSaran saya, sebaiknya agan membuat terlebih dahulu master-nya (misal master bahan, master tenaga, baiay dan lain sebagainya) baru setelah itu agan membuat input pengerjaan.
Jadi pada tabel pengerjaan agan tambahkan lagi field kodebahan, kodetenaga.
Pada proses input pengerjaan itulah, agan tinggal memberikan combobox untuk memilih nama proyek, nama pekerjaan, nama bahan, dan tenaga yang semuanya diambil dari master.
Semoga jawaban ini membantu.
Assalamu'alaikum mba...
BalasHapuskalo mau buat tombol cari berdasarkan pake combo gmn y mba?
trus hasil pencarian itu bisa di cetak ?
Wa'alaikum Salam.
HapusAnda bisa menggunakan aplikasi crystal report dikoneksikan melalui ODBC. Pilih database yang ingin dibuat sebagai laporan, desain terlebih dahulu, lalu di aplikasi visual basic-nya ditambahkan komponent Crystal Report. Anda bisa memilih apakah akan langsung dicetak, atau hanya peview saja.
Ass......Nice blog
BalasHapusmampir ke blog ane juga gan
http://nyekripvb6.blogspot.com
mba saya mau tanya untuk tombol simpan saya sudah coba ngikutin koding mba, dan pas di input dari textbox ke grid sudah bisa. tapi pas saya close form nya dan pas saya masuk lagi data yg barusan tadi saya input gaada di data grid nya. saya pakai project saya sendiri. saya pakai select from di from load nya. jadi mengambil field yg saya butuhin untuk di tampilkan ke grid. apa itu ngaruh juga mba untuk koding simpan? dan koding edit tombol nya juga gitu, pas saya close from di grid nya gaada data yg sudah saya masukin. mohon solusinya ya mba. fast respon
BalasHapuscoba cek di database sudah tersimpan atau belum Gan.
Hapuskalau sudah tersimpan, coba dicek untuk kodingnya dibagian bawah ada koding berikut belum :
Adodc1.Recordset.Update
Adodc1.Refresh
kalau sudah ada juga, jika tidak keberatan agan share design form tersebut beserta kodingnya dan design database-nya ke email saya supaya bisa cek kesalahannya.
(dijamin design tidak akan saya salah gunakan) ^_^
Mbak,,, Saya buat tugas akhir.
BalasHapusPake Visual Basic. Program, Inventaris barang.
Selalu eror nih.
Bisa bantu, Jnengan.
Insha Alloh, dimana letak erorrnya?
Hapusmbaa maaf kalo kodingnya debug di setiap Koding *Call Bersih* kenapa ya mba, thaxs
Hapuscoba kirim kodingnya via inbox fb ya gan?
HapusKoding relasi antar tabelnya gmna mbk????
BalasHapusmaaf agan, baru sempat dibalas ^_^
Hapusuntuk relasi antar tabel, bisa pakai adodc dari form lain gan.
Misalnya agan memiliki tabel anggota, tabel buku dan tabel Peminjaman,
berbasis IPO (Input-proses-output), maka agan membuat form master (yang berisi data pokok sebagai data input yang akan diproses) terlebih dahulu dari anggota, dan buku. Misalnya kita namakan Form Master Anggota dan Form Master Buku. Pada 2 form master ini agan membuat input, edit, hapus, dan cari data.
Sekarang logikanya gini Gan, relasi tabel akan terjadi pada Proses yang terjadi pada Form Peminjaman.
Pada Form Peminjaman, saat input data agan memerlukan data dari tabel anggota dan tabel buku. Padahal form yang menghubungkan dengan tabel anggota adalah form master anggota (lewat adodc1 di form anggota) dan tabel buku adalah form master buku (lewat adodc1 di form buku).
------------------------------------------------------------------------------
Maka, di form peminjaman agan bisa membuat pencarian terlebih dahulu.
Buat Pencarian data anggota (misalnya yang dibutuhkan adalah nim dan nama, maka pencariannya berdasarkan field "NIM") kodingnya jadi seperti ini :
Form_Master_Anggota.Adodc1.Recordset.Find "NIM='" + TextCari.Text + "'", , adSearchForward, 1
If Form_Master_Anggota.Adodc1.Recordset.EOF Then
MsgBox "NIM YANG ANDA MASUKKAN BELUM TERDAFTAR. MASUKKAN NIM YANG LAIN"
TextCari.Text=""
else
Textnim.Text=Form_Master_Anggota.Adodc1.Recordset.Fields("NIM")
Textnama.Text=Form_Master_AnggotaAdodc1.Recordset.Fields("NAMA")
End If
*Penjelasannya begini :
Temukan NIM pada adodc1 di form_master_anggota, sesuai yang diinputkan di TextCari.Text
Jika di dalam Recordset-nya adodc1 di Form_Master_Anggota Tidak Terdaftar Maka
Munculkan KOtak Pesan "NIM YANG ANDA MASUKKAN BELUM TERDAFTAR. MASUKKAN NIM YANG LAIN"
TextCari kosongkan
Selain itu (JIKA TERDAFTAR)
1. Tampilkan di dalam TextNIM.Text sesuai isi dari Form_Master_Anggota.adodc1.Recordset.Fields("NIM")
2. Tampilkan di dalam TextNama.Text sesuai isi dari Form_Master_Anggot.Recordset.Fields("NAMA")
Pengandaian Selesai
---------------------------------------------------------------------
setelah itu agan juga membuat pencarian untuk buku, sama seperti koding di atas hanya diganti form-nya adalah Form_Master_Buku
--------------------------------------------------------------------------
Kalau sudah, maka pada input peminjaman, agan tinggal memakai koding input biasa, seperti yang saya jelaskan di materi.
tidak perlu memmakai koding yang lain, karena text field dari nim, nama, kode buku, judul buku sudah terisi dan bisa digunakan sebagai data input.
------------------------------------------------------------------------------
JIka yang diamksud adalah menampilkan data peminjaman, lengkap dengan data anggota agan tinggal setting pada recordsource-nya adodc1 seperti ini Gan :
"select*"&_"from anggota inner join Peminjaman"&_"on anggota.NIM=peminjaman.NIM"
*penjelasan :
memilih dari tabel anggota yang direlasikan dengan tabel peminjaman, dimana NIM pada tabel anggota sama dengan NIM pada tabel peminjaman.
begitu ya agan? semoga bermanfaat ^_^
Kak itukan datagrid, adodc, dan command button simpan/save ada dalam 1 form, nah bisa ga kalo kita buat dalam form 1 itu kita input data lalu klik simpan dan masuk ke database yg sblumnya uda dbuat, nah setelah itu di form kedua kita buat datagrid dan adodc serta keyword dan command button open . Saat di klik nanti muncul data yg sudah di simpan d form sbelumnya . Mohon bantu ya kak
BalasHapusbisa. masukkan koding inputnya saja.
Hapusuntuk menyembunyikan adodc dan datagrid pada form input, pada object properties visible-nya dipilih false.
pada form input, setelah koding input, tambahkan saja form_tampil_data.show
jangan lupa masukkan adodc dan datagrid juga pada form tampil data.
Sore Jeng, tolong bantu sy, sy mau bikin tombol close tidak bisa keluar sebelum tobol save data diclick, dan ada pesannya klo tombol save harus diclick dulu baru bisa keluar. contoh coding bgmn ya, mksh sbelumnya atas bantuannya. sy pake vb6
BalasHapusmBA UNTUK HAPUS ENGGAG BISA
BalasHapusTHANKS GAN...SANGAAT MEMBANTU
BalasHapustugas test dan impplementasi sistem ..
BalasHapushttp://rbtsdriyanto.blogspot.co.id/2017/03/perbedaan-white-box-dan-black-box.html
tugas terlaksana
BalasHapushttp://rbtsdriyanto.blogspot.co.id/2017/03/perbedaan-white-box-dan-black-box.html
mba saya mau nanya ,kalau cara bikin form login menggunakan data base gimana ya saya masih pemula mba dan saya lagi belajar ..saya pengin bnget bisa..email ke kesaya mba diniepelong@gmail.com.terimakasih mba
BalasHapusSudah saya kirim. Silahkan dicek email ya gan?
HapusSangat membantu sekali sista
BalasHapusThanks Alot ..
Semoga rejekinya di tambah, amiin...
Aamiin... Terimakasih doanya.
HapusSemoga sedikit coretan saya bermanfaat ya gan? 😊
Untuk menampilkan datagird gmana ya mbk . Codingnya . Ngak mau muncul
BalasHapusSudah ada di blog mas. Silahkan lakukan seperti langkah yg saya tulis
Hapustugas rekayasa perangkat lunak buk... terimakasih :)
BalasHapushttp://zona-eko.blogspot.co.id/2018/04/kriptografi-dan-steganografi.html
https://yenikarisma9.blogspot.co.id/2018/04/kriptografi-cryptography-berasal-dari.html
BalasHapus(TGS 2 YENI KARISMA/160101252)
TUGAS 2
BalasHapusRibut Sugeng Driyanto
150101206
Semester 6
http://rbtsdriyanto.blogspot.co.id/2018/04/kriptografi-dan-steanografi.html
Klo sy buat aplikasi absen...tp inpiyx pakai scan barcode gmn ya mbk?biar tambah menggunakan keyboard...mohon pencerahanx...terima kasih
BalasHapus