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
>
>
>
>
>
>
>
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.
