Re: [Programmer-VB] Tipe data

Wed, 04 Jan 2006 00:34:13 -0800


Nambahin punya rekan jenar untuk yg no 3
3. Kl isi, maka buat recordset yang diorder by nomor
tesebut.
  - move last
   - buat variavel misal x=val(rs_data!nomor)+1
  - buat string "0" sebanyak 5 dikurangi lebar x
  - y=string(5-len(trim(str(x))),"0")+trim(str(x))
  - y inilah yang nanti jadi nomor baru
    jadi kl no sebelumnya = "00001"
    x=val("00001")+1 '---isinya akan 2
    y=string(5-1,"0")+trim(str(2))
    y="00002"

gak perlu di order .. cukup pake fungsi max(nomor),misal
Dim rsNo as adodb.recordset
set rsNo = new adodb.recordset
rsno.open "Select max(nomor) as noURut from blablablablab"
if not rsno.eof() then
        y=format(rsNo!noUrut+1,"00000") --> terserah berapa banyak
else
        y="00001"
end if





Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta


Jenar Suseno <[EMAIL PROTECTED]>
Sent by: [email protected]

04/01/2006 03:21 PM

Please respond to
[email protected]
To
[email protected]
cc
Subject
Re: [Programmer-VB] Tipe data





Saya sering alamai kasu itu, aku jg belum tau apa ada
tipe data seperti itu.
Selama ini aku bikin manual saja.

Logikanya begini:
1. tentukan berapa digit nomornya misal = "000001"
berarti 6 digit
  misal = 00001 berarti 5 digit.
2. Saat proses simpan, cek data pada tabel, kalau
kosong
  langsung diisi "00001"
3. Kl isi, maka buat recordset yang diorder by nomor
tesebut.
  - move last
  - buat variavel misal x=val(rs_data!nomor)+1
  - buat string "0" sebanyak 5 dikurangi lebar x
  - y=string(5-len(trim(str(x))),"0")+trim(str(x))
  - y inilah yang nanti jadi nomor baru
    jadi kl no sebelumnya = "00001"
    x=val("00001")+1 '---isinya akan 2
    y=string(5-1,"0")+trim(str(2))
    y="00002"

Prosedur ini bisa dibuat saat input data baru atau
simpan data.

Rgd,



--- Hasan <[EMAIL PROTECTED]> wrote:

> Rekans...
> Saya mo tanya neh, saya lagi buat program vb dan sql
> server.
> Gimana seh caranya, untuk nampilin dan ngesave data
> dengan format 00001. Situasi jelas nya gini, textbox
> a
> nilainya 00001, trs pas saya klik command button dia
> akan berubah jadi 00002, dikilik lagi jadi 00003,
> begitu seterusnya, ada tipe data nya ga seh, abis
> dari
> tadi saya coba pasti angka nol nya lgs ilang( ga
> muncul). Tolong bantu saya ya...
>
> Thanx...
> Hasan
>
>
>                                  
> __________________________________________
> Yahoo! DSL – Something to write home about.
> Just $16.99/mo. or less.
> dsl.yahoo.com
>
>



                                 
__________________________________________
Yahoo! DSL – Something to write home about.
Just $16.99/mo. or less.
dsl.yahoo.com



Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


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/


Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


YAHOO! GROUPS LINKS



Kirim email ke