Dear Joe,
Coba contoh database dan coding ini, Silakan sempurnakan sendiri
declarasi variablenya.
/* ============================================================ */
/* Table: DSUPL */
/* ============================================================ */
create table DSUPL
(
DSUKD VARCHAR(5) not null,
DSUNM VARCHAR(30) null ,
DSUALMT VARCHAR(200) null ,
DSUKOTA VARCHAR(5) null ,
DSUTELP1 VARCHAR(13) null ,
DSUTELP2 VARCHAR(13) null ,
DSUFAX VARCHAR(13) null ,
DSUEMAIL VARCHAR(50) null ,
DSUWEB VARCHAR(50) null ,
DSUKET VARCHAR(200) null ,
DSUSTS VARCHAR(5) null ,
constraint PK_DSUPL primary key (DSUKD)
)
go
create table MBRGJD
(
MBJKD VARCHAR(6) not null,
--MBJKAT VARCHAR(5) null ,
MBJNM VARCHAR(100) null ,
MBJKET VARCHAR(250) null ,
--MBJGBR IMAGE null ,
constraint PK_MBRGJD primary key (MBJKD)
)
go
/* ============================================================ */
/* Table: TPO */
/* ============================================================ */
create table TPO
(
TPOKD VARCHAR(20) not null,
TPOTGL VARCHAR(8) null ,
TPOSUPL VARCHAR(5) null ,
TPOTTL MONEY null ,
TPODISC MONEY null ,
TPOGTTL MONEY null ,
TPOSTS VARCHAR(5) null ,
constraint PK_TPO primary key (TPOKD)
)
go
/* ============================================================ */
/* Table: RPO */
/* ============================================================ */
create table RPO
(
RPOPO VARCHAR(20) not null,
RPOBRG VARCHAR(6) not null,
--RPOSATUAN VARCHAR(5) not null,
RPOJLH INT null ,
RPOHRG MONEY null ,
RPOSTTL MONEY null ,
--constraint PK_RPO primary key (RPOPO, RPOBRG, RPOSATUAN)
constraint PK_RPO primary key (RPOPO, RPOBRG)
)
go
==============================================================
==== CODING UNTUK SIMPAN =====================================
Function SimpanData() as boolean
'BUAT KONEKSI (conn)
'SET CONNECTION DAN RECORDSET (rs)
'eg. set rs = new adodb.recordset
conn.beginTrans
'Buat No. Pembelian (Auto Generate Number)
NoPO = GetKodePO() 'buat fungsi ini sesuai dengan kebutuhan
'---- insert Header Pembelian ----------------
Sqlstm = "Insert Into TPO (TPOKd, TPOTgl, TPOSupl, TPOTtl, TPODisc,
TPOGttl, TPOSts) "
sqlstm = sqlstm & " values ('" & NoPO & "', '" & Tgl & "', "
& .............')"
rs.open sqlstm, conn
if typename(rs) = "Nothing" then goto errmsg
'-------- Insert Detail Transaksi ----------
'Loop data yang ada pada table (grid)
For i =0 to grid.rows
Sqlstm = "Insert Into RPO (RPOPO, TPOBrg, RPOJlh, RPOHrg,
RPOSTtl) "
sqlstm = sqlstm & " values ('" & NoPO & "', '" & Kdbrg
& "', " & JlhBrg & ", " & Hrg & ", " & SubTotal & ")"
rs.open sqlstm, conn
if typename(rs) = "Nothing" then goto errmsg
Next
conn.commitTrans
SimpanData = true
Msgbox "Data sudah tersimpan", vbInformation, "KwetChiro - Save Data
Pembelian"
exit Function
ErrMsg:
conn.RollbackTrans
SimpanData = false
Msgbox "Simpan Data Gagal", vbCritical, "KwetChiro - Save Data
Pembelian"
End Function
Regards,
Yulianto
KwetChiro
--- In [email protected], indra gunawan
<[EMAIL PROTECTED]> wrote:
>
> table anda kayaknya belum normal deh...
> coba di pilah lagi...saran saya..:
>
> 1. table pembelian
> field2nya
> notransaksi
>
> 2. table pembelian detail
> notransaksi
> tanggal
> no
> noitem
> quantity
> hargabeli
> total
> kodepemasok
> status
> totalquantity
> totalbeli
>
> semua refer ke table master tersebut....
>
> kalau bisa untuk totalquantity dan total beli dan
> total pake query / view
> aja...jadi g usah dimasukin kedalam table
>
> ----- Original Message -----
> From: "joe_ista" <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Monday, January 16, 2006 8:06 PM
> Subject: [Programmer-VB] database input problem
>
>
> master2 vb yang baik, saya mau nanya nich..(maklum
> masih newbie -
> :) ). mohon dijawab ya...please...
> saya lagi nyoba buat aplikasi untuk toko komputer
> nich. n yang jadi
> masalah adalah form untuk pembeliannya. saya punya 2
> tabel untuk
> pembelian :
> 1. table pembelian
> field2nya
> notransaksi
> tanggal
> kodepemasok
> status
> totalquantity
> totalbeli
>
> 2. table pembelian detail
> notransaksi
> no
> noitem
> quantity
> hargabeli
> total
>
> yang mau saya tanyakan bagimana memasukan data untuk
> ke 2 tabel
> tersebut dari 1 from.
> kira2 begini formnya :
>
>
> notransaksi :
> tanggal :
> status :
> novendor :
>
> ----------------------------------------------------
> | no | noitem | quantity | harga beli | total |
> ---------------------------------------------------
> | |
> | dbgrid |
> |__________________________________________________|
> |totalquantity| |totalbeli|
> --------------- -----------
>
>
>
>
>
>
>
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
