Re: [Programmer-VB] Relational Database

Wed, 01 Feb 2006 18:34:29 -0800


Anda buat 1 form
tambahkan 1 flexgrid --> namakan Flex1,
         dan 1 button

kemudian di event button tsb, tuliskan code ini
Asumsi : Nama Koneksi adalah CN

Dim  sSQL as string
Dim iData as integer
dim rsData as adodb.recordset
set rsData=new adodb.recordset

sSQL="select a.kdbrg as kode,a.nmbrg as nama,b.jlh_tran as jumlah " & _
     " from Barang A inner join " & _
     " transaksi B on a.kdbrg=b.kdbrg"

rsData.open sSQL,cn
if not rsdata.eof() then
        flex1.rows=rsdata.recordcount() +1
        with flex1
                .textmatrix(0,0)="Kode Barang"
                .textmatrix(0,1)="Nama Barang"
                .textmatrix(0,2)="JLH Transaksi"
                for iData=1 to rsData.recordCount()
                        .textmatrix(iData,0)=rsdata!kode
                        .textmatrix(iData,1)=rsdata!Nama
                        .textmatrix(iData,2)=rsdata!Jumlah
                        rsData.movenext
                next
        end with
end if

Kalau ada yg kurang atau error, coba di track sendiri yah... yg ptg garis besarnya sudah dapat..
Kemudian kalau anda pake listview, berarti anda sesuaikan lagi coding nya...
Goodluck

Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta


"skdmdn" <[EMAIL PROTECTED]>
Sent by: [email protected]

02/02/2006 08:01 AM

Please respond to
[email protected]
To
<[email protected]>
cc
Subject
Re: [Programmer-VB] Relational Database





trus, bagaimana menampilkan hasilnya melalui vb?
----- Original Message -----
From: "budiman Lai" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Thursday, February 02, 2006 12:42 AM
Subject: Re: [Programmer-VB] Relational Database


> sSQL = "SELECT b.KDBRG as KDBRG, b.NMBRG as NMBRG,
> t.JLH_TRN as JLH_TRN "
> sSQL = sSQL & "FROM barang b "
> sSQL = sSQL & "LEFT JOIN transaksi t ON t.KD_BRG =
> b.KDBRG"
>
> Database.Query(sSQL)
>
> --- skdmdn <[EMAIL PROTECTED]> wrote:
>
> > Teman,
> >
> > Saya mempunyai tabel sbb:
> >
> > Tabel Barang:
> >

> > KDBRG     NMBRG
> >   01             B
> >   02            C
> >
> > Tabel Transaksi
> >
> > KD BRG JLH_TRAN
> >   01            12
> >   02            10
> >
> > Bagaimana syntaxnya di vb untuk menampilkan report
> > seperti ini:
> >
> > KDBRG NMBRG JLH_TRAN
> >   01         B            12
> >   02         C            10
> >
> > Thank's.Maap pertanyaanya mendasar sekali.
> >
> >    
> >
> >
> >  
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam?  Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
>
> Wahana Programmer Groups Links
>
>
>
>  
> Yahoo! Groups Links
>
>
>
>  
>
>
>
>


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/


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



Kirim email ke