Re: [Programmer-VB] Tanya VB.Net Buat Kode

Thu, 23 Feb 2006 22:38:25 -0800

Ampuh tenan
Problem solve,
terima kasih banyak pak Ronald

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


PALUARED <[EMAIL PROTECTED]>
Sent by: [email protected]

24/02/2006 01:09 PM

Please respond to
[email protected]

To
[email protected]
cc
Subject
[Programmer-VB] Tanya VB.Net Buat Kode




Dear all,

Public Sub BuatKode()
       Dim CmdBuatKode As New OleDbCommand(" Select * from Mbarang ",
Connection)
       Dim INIT As String
       Dim Angka As Integer
       INIT = LBCD.Text
       Try
           Connection.Open()
           Dim DR As OleDbDataReader
           DR = CmdBuatKode.ExecuteReader
           While DR.Read
               If DR.HasRows = True Then
                   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
           End While
       Catch ex As Exception
           MsgBox(ex.Message , MsgBoxStyle.Critical, "error")
       End Try
end sub

Dengan script diatas,
Kenapa ya... pas datanya kosong
Else
                   TxtKode.Text = INIT + "00001"
                    LBAngka.Text = "00001"
script tersebut tidak jalan...

saya pakek If DR.HasRows = True Then untuk liat data ada record atau tidak
klo di VB khan biasanya pakek Recordcount klo di VB.net apa ya?

mohon penjelasan
TIA

--
Regards,
PALUARED


Wahana Programmer 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



Kirim email ke