maaf tanya lagi,
On 2/24/06, Ronald Irawan <[EMAIL PROTECTED]> wrote:
>
> Coba ganti pake ini....
> Try
> Connection.Open()
> Dim DR As OleDbDataReader
> DR = CmdBuatKode.ExecuteReader]
> if dr.read then
' ternyata pas di sini yang di tunjuk masih record pertama
biar menunjuk ke record terakhir gimana pak?
klo di VB khan biasanya ".MoveLast"
> Angka = DR("brg_Angka")
> TxtKode.Text = INIT + Format(Angka + 1, "00000")
> LBAngka.Text = Format(Angka + 1, "00000")
> Else
> TxtKode.Text = INIT + "00001"
> LBAngka.Text = "00001"
> End If
>
> Catch ex As Exception
> MsgBox(ex.Message, MsgBoxStyle.Critical, "error")
> End Try
>
> Salam
> Ronald Irawan
> Pt. Sanghiang Perkasa
> Gd. Graha Kirana Lt.5
> Jl Yos Sudarso Kav.88
> Jakarta
TIA
--
Regards,
PALUARED
http://paluared.coconia.net/
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
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
