Update Kan Bil No

[Uwais Al-Qarani 0]

dia x kuar dekat label tu

Protected Sub tambahID(ByVal strodbc As String)

        Dim Conn As OdbcConnection = New OdbcConnection(sDB)
        Dim sCmd As New OdbcCommand(strodbc, Conn)
        Dim rdset As OdbcDataReader = sCmd.ExecuteReader()

        Conn.Open()

       
        sCmd.CommandText = "SELECT MAX(sIdAduan)AS ID FROM ad_AduanHdr"

        If rdset.HasRows Then
            rdset.Read()
            If rdset("sIdAduan").ToString <> "" Then
                strID = Format(Now, "yy") & "-" & Format(Val(Right(rdset("sIdAduan"), 3) + 1), "0##")
            Else
                strID = Format(Now, "yy") & "-" & Format(1, "0##")
                lblDokumen.Text = strID
            End If
        End If

        rdset.Close()
        Conn.Close()

        Return
        Response.Write(lblDokumen)
    End Sub

ini codingnyer

tapi x kuar apa2 error,cuma x display dalam label tu,aku dah public strID as String,betui ka?

[DrASAG 0]

apesal ko letak

 sCmd.CommandText = "SELECT MAX(sIdAduan)AS ID FROM ad_AduanHdr"

kat dlm fungsi tambahID? kan kita panggil fungsi tu , kita dah hantar nilai utk command select tu? kalo ko letak situ, kat mana dia execute? apesal ko letak lblDokumen.Text = strID kat situ?

ko cakap dah wat dummy pakai access kan? takder masalah kan? kenapa ko ubah jadi gini lak... tak paham aku...

Edited April 29, 2008 by DrASAG

[Uwais Al-Qarani 0]

aku dah pening dah nie,serious aku x reti mende2 nie,aku dah usaha giler2 nie,dapat masuk dalam database pun dah bersyukur,sekarang aku nak kena buat id dokument cam yg tgh bincang nie,maaf ler klu ko rasa bengkek jer kat aku,hohoho,aku dalam proses nak blaja nie..

[DrASAG 0]

aku tak rasa apa2 pon, sebab aku pon tgh belajor. hahahaha... cuma aku pelik jer... ko cakap dah bleh pakai dummy program tu... so, aku rasa takder masalah ler kot... ubah kod tu dok kat mana sesuai jer....

[Uwais Al-Qarani 0]

thx satu masalah dah selesai,

hehe sekarang nak update kan bil no pulak XD

situasi

3 radio button,user pertama click rb1 dan secara automatik akan update dalam database iRunNo untuk rb1 naik 1 dan seterusnya bila user click benda yg sama

[DrASAG 0]

hehehe... tu ler... lenkali check database tu betui ker idak... kuikuikui...

[Uwais Al-Qarani 0]

pegawai aku nak unutk display pas submit dokumen tu baru kuar no dokumen tu...

[DrASAG 0]

oooo, senang jer <------ ayat DevGuy. hehehe

ko letak lblDokumen.Text=strID tu selepas SimpanAduan().... setel.....

[Uwais Al-Qarani 0]

mmg lar senang bagi dia,tahap mahaguru dah,hahaha,nie tarak kuar trus pas letak kat situ,jap aku main2 test