Re: [Programmer-VB] tanya insert into

Fri, 09 Dec 2005 19:22:05 -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
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 -----
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]



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke