ok mas hendra....
itu sudah benar, untuk kasus ini :
(Mis:001 utk IT, 002 utk HRD,dst,,,)
isikan data tsb ke dalam combo box (cbDebt)
mis : 001 - IT
002 - HRD
dst...
gunakan logika index
001 - IT indexnya adalah "0"
002 - HRD indexnya adalah "1"
dst.....
Jika melakukan save data dengan code
rsSave.field("dept")=cbDept.index
maka yang tersimpan adalah indexnya
untuk menampilkan kembali gak perlu menggunakan if.... lagi
langsung aja ambil field dari table dengan perintah
cdDept.ListIndex= rsSave.field("dept")
maka jika field dalam table isinya "0" maka pada cbDept --- isinya adalah '001
- IT'
"1" maka pada
cbDept --- isinya adalah '002 - HRD
Ok mas hendra logikanya sperti itu, selanjutnya silahkan di modifikasi dengan
mungkin merelasikan deng table2x utility,,
Ok...
Salam,,,,
----- Original Message ----
From: hendra <[EMAIL PROTECTED]>
To: [email protected]
Sent: Wednesday, July 4, 2007 2:23:30 PM
Subject: Re: [indoprog-vb] cara simpan file
Mas, Yohan utk yg jenis kelamin saya sdh bisa.
Saya buat seperti ini. (Kalau salah tolong di koreksi)
if cmbkelamin.text= "Pria" then
rssystem!jeniskelam in="L"
elseif cmbkelamin.text= "Wanita" then
rssystem!jeniskelam in="P"
end if
Sekarang saya mau pakai dept dengan menggunakan code (Mis:001 utk IT, 002 utk
HRD)
Masalahnya mas yohan, dept di tmp kami byk sekali macamnya sampai 79 dept.
Kalau saya buat seperti di atas, waduhhhh lama mas.
Maaf mas Yohan saya ini baru dlm program jadi saya agak bingung dgn apa mas
yohan maksud. Tolong kasih masukan yg sederhana aja.
Thanks and best regards,
Hendra P Sirait
~~~~~~~~~~~~ ~~~~~~~~~ ~~~
Office Add;
PT Sentraco Garmindo
Jl. Raya jati Pasar Kemis
Jl. Putera Utama No.39
Tangerang Banten
----- Original Message -----
From: Yohan Widodo
To: indoprog-vb@ yahoogroups. com
Sent: Wednesday, July 04, 2007 12:51 PM
Subject: Re: [indoprog-vb] cara simpan file
mas hendra ini mungkin akan sedikit membantu
coba mas hendra yang simpan adalah index data dalam combo
mis
misalnya data.field(" JenisKelamin" )= cbojeniskelamin. index
maka nantinya akan tersimpan dalam table index saja yaitu numeric
(dengan default index dalm combo adalah index -1 = kosong, 0 data ke 1, 1
data ke=2 dst.....)
untuk menampilkan tinggal membalik saja
cbojeniskelamin. listIndex= data.field( " JenisKelamin" )
Ok semoga membantu..
----- Original Message ----
From: hendra <[EMAIL PROTECTED] .net>
To: indoprog-vb@ yahoogroups. com
Sent: Wednesday, July 4, 2007 1:14:23 PM
Subject: Re: [indoprog-vb] cara simpan file
Thx kang andi utk infonya dan skr sdh bisa.
Tapi saya ada sedikit masalah, bgm kalau codenya byk? kan capek juga kang
ngetik if..then.. elseif
Kira2 solusi yg enak bgm ya. Thx buat infonya
Thanks and best regards,
Hendra P Sirait
~~~~~~~~~~~~ ~~~~~~~~~ ~~~
Office Add;
PT Sentraco Garmindo
Jl. Raya jati Pasar Kemis
Jl. Putera Utama No.39
Tangerang Banten
----- Original Message -----
From: Kang Andi
To: indoprog-vb@ yahoogroups. com
Sent: Friday, June 29, 2007 6:24 PM
Subject: Re: [indoprog-vb] cara simpan file
Gunakan fungsi Left(string, Length) untuk mengambil
string atau karakter sejumlah tertentu dari suatu
string.
misalnya data.field(" JenisKelamin" )= _
left(cbojeniskelami n.text,1)
maka nanti akan terseimpan satu huruf dari combo yang
terpilih
untuk menampilkan kembali kedalam combo gunakan
pencabangan If .. else...
Jangan lupa validasinya. ..
--- hendra <sir_hendra@ softhome .net> wrote:
>
> Teman2 saya mau tanyak dekit.
> Saya punya database mis: karyawan dan field-nya
> jenis kelamin (Perempuan dan laki2, di databse-nya
> hanya codenya aja P dan L).
> Di Aplikasi saya dgn menggunakan vb6, combobox yg
> text-nya adalah perempuan dan laki2. Waktu saya save
> di database-nya kesimpan perempuan atau laki2, bgm
> cara-nya waktu saya nyimpan yg kesimpan di database
> adalah code jenis kelamin aja.
> Terimakasih utk masukkanya dan saya minta maaf bila
> penjelasannya kurang di mengerti dan harap maklum
> krn saya org baru di VB.
>
> NB: Database-nya menggunakan access
>
> Thanks and best regards,
> Hendra P Sirait
> ~~~~~~~~~~~~ ~~~~~~~~~ ~~~
> Office Add;
> PT Sentraco Garmindo
> Jl. Raya jati Pasar Kemis
> Jl. Putera Utama No.39
> Tangerang Banten
>
>
>
>
>
> [Non-text portions of this message have been
> removed]
>
>
____________ _________ _________ _________ _________ _________ _
Sick sense of humor? Visit Yahoo! TV's
Comedy with an Edge to see what's on, when.
http://tv.yahoo. com/collections/ 222
[Non-text portions of this message have been removed]
<!--
#ygrp-mlmsg {font-size:13px; font-family: arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit; font:100% ;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height: 1.22em;}
#ygrp-text{
font-family: Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family: Arial;
clear:both;}
#ygrp-vitnav{
padding-top: 10px;font- family:Verdana; font-size: 77%;margin: 0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin: 25px 0;white-space: nowrap;color: #666;text- align:right; }
#ygrp-actbar .left{
float:left;white- space:nowrap; }
.bld{font-weight: bold;}
#ygrp-grft{
font-family: Verdana;font- size:77%; padding:15px 0;}
#ygrp-ft{
font-family: verdana;font- size:77%; border-top: 1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom: 10px;}
#ygrp-vital{
background-color: #e0ecee;margin- bottom:20px; padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77% ;font-family: Verdana;font- weight:bold; color:#333;
text-transform: uppercase; }
#ygrp-vital ul{
padding:0;margin: 2px 0;}
#ygrp-vital ul li{
list-style-type: none;clear: both;border: 1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight: bold;color: #ff7900;float: right;width: 2em;text- align:right;
padding-right: .5em;}
#ygrp-vital ul li .cat{
font-weight: bold;}
#ygrp-vital a {
text-decoration: none;}
#ygrp-vital a:hover{
text-decoration: underline; }
#ygrp-sponsor #hd{
color:#999;font- size:77%; }
#ygrp-sponsor #ov{
padding:6px 13px;background- color:#e0ecee; margin-bottom: 20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0; }
#ygrp-sponsor #ov li{
list-style-type: square;padding: 6px 0;font-size: 77%;}
#ygrp-sponsor #ov li a{
text-decoration: none;font- size:130% ;}
#ygrp-sponsor #nc {
background-color: #eee;margin- bottom:20px; padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family: Arial;font- weight:bold; color:#628c2a; font-size: 100%;line-
height:122% ;}
#ygrp-sponsor .ad a{
text-decoration: none;}
#ygrp-sponsor .ad a:hover{
text-decoration: underline; }
#ygrp-sponsor .ad p{
margin:0;}
o {font-size:0; }
.MsoNormal {
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120% ;}
blockquote{margin: 0 0 0 4px;}
.replbq {margin:4;}
-->
____________ _________ _________ _________ _________ _________ _
Building a website is a piece of cake. Yahoo! Small Business gives you all
the tools to get online.
http://smallbusines s.yahoo.com/ webhosting
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a {
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc {
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
-->
____________________________________________________________________________________
Need a vacation? Get great deals
to amazing places on Yahoo! Travel.
http://travel.yahoo.com/
[Non-text portions of this message have been removed]
