IndeksBSI-PCCalendarFAQPencarianAnggotaGroupPendaftaranLogin

Share | 
 

 bagaimana cara membuat One to Many di VB pada form transaksi

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
unvis
Pendatang Baru
Pendatang Baru


Jumlah posting : 2
Age : 28
Registration date : 18.02.10

PostSubyek: bagaimana cara membuat One to Many di VB pada form transaksi   2010-02-18, 23:35

para admin tolongin saya dunk,,,

saya mau nanya bagaimana membuat one to many pada transaksi,,,

saya dah buat

"form anggota"
"form film"

nah sekarang saya mau buat form transaksi peminjaman,,,

tapi transaksi nya bisa banyak,,,,

"Misal di form transaksi saya ada isi dari anggota, dan isi dari film,
nah isi dari film ne akan di buatkan untuk one to many, jika pelanggan menyewa lebih dari satu film,,, maka kn data filmnya akan disimpan sementara di listview,,

apakah saya harus membuat toolbox "data" lebih dari tiga,,,
(mup saya kurang mengerti dengan adodc, jadi disini saya tidak membuat module)

dalam pikiran saya c seperti ini

"Data Anggota"
"Data Film"
"Data Transaksi"
"Data Transaksi Sementara" Untuk di listview

jadi data di input dari textbox "Code Film", setelah tampil di listview, data di simpan sementara di tabel sementara pada toolbox "data", lalu di inputkan kembali
jika ingin menginput,,,, setelah selesai masuk ke "uang bayar", setelah itu
masuk ke cmdsimpan untuk penyimpanan data transaksi dan record yang ad di
tabel sementara hilang krn dah disimpan di masternya,,,

Nah yang saya bingung dengan membuat listingnya pada cmdsimpan sementara dengan cmdsimpanmaster,,,

Tolong pencerahannya yach
klo bisa berikut dengan source codenya,,,,,

sebenarnya di forum ini dah ada tentang rental film,,, cuman sourcecodenya ngk bisa di buka error melulu,,,,, Sad Sad
Kembali Ke Atas Go down
Lihat profil user
Administrator
Admin
Admin


Male
Jumlah posting : 130
Age : 28
Lokasi : Pontianak Kota Bersinar
Registration date : 07.12.08

PostSubyek: Re: bagaimana cara membuat One to Many di VB pada form transaksi   2010-02-27, 09:13

pada bagian "one" cara simpannya biasa, dan pada bagian "many" cara menyimpannya dengan menggunakan perintah perulangan
contoh:

Code:

dim kodefilm as string
dim nopinjam as string

nopinjam = "A-101"
kodefilm = "F01"

'---------menyimpan pada bagian "one"-------
koneksi.execute "INSERT INTO peminjaman (nopinjam, tanggal) VALUES('" & nopinjam & "','2010-02-28')"

'----menyimpan pada bagian "many"-------
for i = 1 to listview1.ListItems.count step 1
  'jika kode film berada pada kolom ke 1
    kodefilm = listview1.ListItems(i).text
 
  'jika kode film pada kolom ke 2 (atau seterusnya): nokolom-1
  'kodefilm = listview1.ListItems(i).subItems(nokolom)
  kodefilm = listview1.ListItems(i).subItems(1)
 
koneksi.execute "INSERT INTO Detailpinjam (nopinjam, kodefilm) VALUES" & _
                        "('" & nopinjam & "', '" & kodefilm & "'")"
next i

Kembali Ke Atas Go down
Lihat profil user http://bsi-ptk.forumotion.com
 
bagaimana cara membuat One to Many di VB pada form transaksi
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
 :: Programming :: Pemrograman Visual :: Visual Basic-
Navigasi: