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