lagi (yg diatas strsql2...)
--- PALUARED <[EMAIL PROTECTED]> wrote:
> 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
> 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
> > > > >
>
=== 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.
