Re: [Programmer-VB] tanya insert into

edi Thu, 08 Dec 2005 20:29:59 -0800

untuk menambahkan data ke tabel 1 ke tabel lainnya dengan kondisi tertentu saya menggunakan metode ini :

With rs_posting
    .CursorLocation = adUseClient
    .Open "SELECT tblLPB.KodeLPB, TglLPB, Posting, KodeBarang, QtyLPB FROM tblLPB INNER JOIN tblSubLPB ON tblLPB.KodeLPB = tblSubLPB.KodeLPB WHERE Posting = 0", Conn, adOpenStatic, adLockOptimistic
    .Requery
    If .RecordCount <= 0 Then
        jumlah_record = 0
        lstLog.AddItem "Semua transaksi Lap Penerimaan Barang sudah terposting ..."
    Else
        jumlah_record = .RecordCount
        pgBar.Min = 0
        pgBar.Max = jumlah_record
        proses = 0
        lstLog.AddItem "Posting Lap Penerimaan Barang mulai ....."
        pgBar.Value = proses
        .MoveFirst
        Do While Not .EOF
            strInsert = "INSERT INTO tblKartuStok(KodeBarang, Keterangan, TglTrans, STO, LPB, MMD, MMK, SKB, RPj, RPb) VALUES ('" & .Fields("KodeBarang") & "', '" & .Fields("KodeLPB") & "', '" & .Fields("TglLPB") & "', 0, " & Format(.Fields("QtyLPB"), "#0") & ", 0, 0, 0, 0, 0)"
            Conn.Execute strInsert
            proses = proses + 1
            pgBar.Value = proses
            .MoveNext
        Loop
        strUpdatestatus = "UPDATE tblLPB SET Posting = 1 WHERE Posting = 0"
        Conn.Execute strUpdatestatus
        lstLog.AddItem "Posting Lap Penerimaan Barang selesai dengan jumlah data terposting " & jumlah_record & " ....."
    End If

End With

dan saya flag nya adalah field posting, saya buat loop karena client saya ingin melihat detail setiap transaksi yang barusan di posting......

thx

----- Original Message -----

From: Eko

To: [email protected]

Sent: Wednesday, December 07, 2005 1:11 PM

Subject: Re: [Programmer-VB] tanya insert into

kucoba kok

as datarow dan table2.rows ndak ada ya

ini butuh reference apa,

saya reference dataset nya cuma pake microsoft ado datacontrol 6

----- Original Message -----

From: Andry Hilman

To: [email protected]

Sent: Wednesday, December 07, 2005 11:09 AM

Subject: Re: [Programmer-VB] tanya insert into

gini aja logikanya.
di table2 kamu bikin satu lagi field berupa flag, namanya terserah misal sts
nah terus kamu buat looping di table2 untuk baca tiap2 record
misal
dim drow1 as datarow
dim drow2 as datarow

for each drow2 in table2.rows

      for each drow1 in table1.rows
          if drow2("kode") = drow1("kode") then
             drow2("sts") = ' * '
          end if
      next
    if drow("sts") = ' * ' then
          'insert ke table1
    end if
next

mudah2an bisa membantu

Eko <[EMAIL PROTECTED]> wrote:
saya punya data misal tabel1 Kode    Nama GH       General Hardware MC      Machinery tabel2 Kode    Nama GH       General Hardware MC      Mchinery HE       Heavy Equipment CS       Conveyor Sistem gmn caranya insert into data HE dan CS dari table2 ke tabel1 jadi diidentifikasi kode mana yg blm ada di tabel1 saya udah coba pake inner join, dan join2 lainnya tapi msh salah

Yahoo! DSL Something to write home about. Just $16.99/mo. or less

Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED]

YAHOO! GROUPS LINKS

Visit your group "Programmer-VB" on the web.
To unsubscribe from this group, send an email to: [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

Re: [Programmer-VB] tanya insert into

Kirim email ke