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