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
KodeBRG = DR("BRG_Kode")
Karton = DR("BRG_Karton")
Pack = DR("BRG_Pack")
PC = DR("BRG_PC")
SldAkhir = DR("BRG_SldAkhir")
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)
Dim CMDMBarang2 As New OleDbCommand
Dim strSQL2 As String
Dim Kode, Jumlah, inDebet As String
Try
Connection.Open()
strSQL2 = " UPDATE MBarang SET BRG_SldKarton = '"
& HKarton & "', BRG_SldPack = '" & HPack & "', BRG_SldPC = '" & HPc &
"' WHERE BRG_Kode = '" & KodeBRG & "' "
CMDMBarang2.CommandText = strSQL
CMDMBarang2.Connection = Connection
CMDMBarang2.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End While
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
Finally
Connection.Close()
End Try
End Sub
sudah saya masukan ke dalah while
tapi masih muncul error
"the connection is allready open (state=open, fetching)
mohon masukan lagi :)
TIA
On 5/6/06, Ade Aan Wirama <[EMAIL PROTECTED]> wrote:
> harusnya perintah update barang itu ada didalam
> 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
>
>
>
>
> 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.
