while..end while
tks & rgds,
Aan
--- PALUARED <[EMAIL PROTECTED]> wrote:
> maaf saya gak pakek itu, harusnya gini
> sebelumnya isih berdasarkan kode barang terntentu
> tapi saya ingin semua barang
>
> Public Sub Konversi()
> Dim JumPC, JumPack, HKarton, HPack, HPc,
> Karton, Pack, PC,
> KodeBRG, SldAkhir As String
>
> Try
> Dim CMDMBarang As New OleDbCommand
> Dim i As Integer
> Dim strSQL As String
>
> Dim CMDBaca As New OleDbCommand("select *
> from MBarang ",
> Connection)
>
> Connection.Open()
> Dim DR As OleDbDataReader
> DR = CMDBaca.ExecuteReader
> Dim a, Baris As Integer
>
>
> While DR.Read
> ' If DR.Read Then
> KodeBRG = DR("BRG_Kode")
> Karton = DR("BRG_Karton")
> Pack = DR("BRG_Pack")
> PC = DR("BRG_PC")
> SldAkhir = DR("BRG_SldAkhir")
>
> 'JumPC = CInt(Karton) * CInt(Pack) *
> CInt(PC)
> JumPack = CInt(PC) * CInt(Pack)
> HKarton = CInt(SldAkhir) \
> CInt(JumPack)
> HPack = CInt((SldAkhir Mod JumPack))
> \ CInt(PC)
> HPc = CInt((SldAkhir Mod JumPack))
> Mod CInt(PC)
>
> MsgBox(" sldakhir=" & SldAkhir & "
> Jumpack=" & JumPack
> & " pc=" & PC)
> MsgBox("" & HKarton & ":" & HPack &
> ":" & HPc)
>
> End While
> Catch ex As Exception
> MsgBox(ex.Message, MsgBoxStyle.Critical,
> "Error")
> Finally
> Connection.Close()
> End Try
>
> Dim CMDMBarang As New OleDbCommand
> Dim i As Integer
> Dim strSQL As String
> Dim Kode, Jumlah, inDebet As String
> Try
> Connection.Open()
>
> strSQL = " UPDATE MBarang SET BRG_SldKarton =
> '" & HKarton &
> "', BRG_SldPack = '" & HPack & "', BRG_SldPC = '" &
> HPc & "' WHERE
> BRG_Kode = '" & Kode & "' "
>
>
> CMDMBarang.CommandText = strSQL
> CMDMBarang.Connection = Connection
> CMDMBarang.ExecuteNonQuery()
> Catch ex As Exception
> MsgBox(ex.Message, MsgBoxStyle.Critical,
> "Error")
> Finally
> Connection.Close()
> End Try
> End Sub
>
>
> On 5/2/06, Ade Aan Wirama <[EMAIL PROTECTED]>
> wrote:
> > next i -nya MANNNAA???
> >
> > --- PALUARED <[EMAIL PROTECTED]> wrote:
> >
> > > Aku punya script di bawah ini,
> > > kenapa ya... yang terupdate cuma baris
> terakhir....
> > >
> > >
> > > Public Sub Konversi()
> > > Dim JumPC, JumPack, HKarton, HPack, HPc,
> > > Karton, Pack, PC,
> > > KodeBRG, SldAkhir As String
> > >
> > > Try
> > > Dim CMDMBarang As New OleDbCommand
> > > Dim i As Integer
> > > Dim strSQL As String
> > >
> > > Dim CMDBaca As New
> OleDbCommand("select
> > > * from MBarang ",
> > > Connection)
> > >
> > > Connection.Open()
> > > Dim DR As OleDbDataReader
> > > DR = CMDBaca.ExecuteReader
> > > Dim a, Baris As Integer
> > >
> > >
> > > While DR.Read
> > > ' If DR.Read Then
> > > KodeBRG = DR("BRG_Kode")
> > > Karton = DR("BRG_Karton")
> > > Pack = DR("BRG_Pack")
> > > PC = DR("BRG_PC")
> > > SldAkhir = DR("BRG_SldAkhir")
> > >
> > > 'JumPC = CInt(Karton) *
> CInt(Pack) *
> > > CInt(PC)
> > > JumPack = CInt(PC) * CInt(Pack)
> > > HKarton = CInt(SldAkhir) \
> > > CInt(JumPack)
> > > HPack = CInt((SldAkhir Mod
> JumPack))
> > > \ CInt(PC)
> > > HPc = CInt((SldAkhir Mod
> JumPack))
> > > Mod CInt(PC)
> > >
> > > MsgBox(" sldakhir=" & SldAkhir &
> "
> > > Jumpack=" & JumPack
> > > & " pc=" & PC)
> > > MsgBox("" & HKarton & ":" &
> HPack &
> > > ":" & HPc)
> > >
> > > End While
> > > Catch ex As Exception
> > > MsgBox(ex.Message,
> MsgBoxStyle.Critical,
> > > "Error")
> > > Finally
> > > Connection.Close()
> > > End Try
> > >
> > > Dim CMDMBarang As New OleDbCommand
> > > Dim i As Integer
> > > Dim strSQL As String
> > > Dim Kode, Jumlah, inDebet As String
> > > Try
> > > Connection.Open()
> > > For i = 0 To LVBeli.Items.Count - 1
> > >
> > >
> > >
> > > strSQL = " UPDATE MBarang SET
> BRG_SldKarton
> > > = '" & HKarton &
> > > "', BRG_SldPack = '" & HPack & "', BRG_SldPC =
> '" &
> > > HPc & "' WHERE
> > > BRG_Kode = '" & Kode & "' "
> > >
> > >
> > > CMDMBarang.CommandText = strSQL
> > > CMDMBarang.Connection = Connection
> > > CMDMBarang.ExecuteNonQuery()
> > > Catch ex As Exception
> > > MsgBox(ex.Message, MsgBoxStyle.Critical,
> > > "Error")
> > > Finally
> > > Connection.Close()
> > > End Try
> > > End Sub
> > >
> > > TIA
> > > regards,
> > > andik
> > >
> >
> >
> > __________________________________________________
> > 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
>
=== message truncated ===
__________________________________________________
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
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
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.
