tapi tetap error akhirnya saya pakek cara laen
dan solve terima kasih banyak atas pencerahanya
kapan2 klo ada kesusahan tanya lg
On 5/8/06, Ade Aan Wirama <[EMAIL PROTECTED]> wrote:
> Connectionnya sudah terbuka, jadi tidak perlu dibuka
> 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
>
>
>
>
> 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.
