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]>
To: [email protected]
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 <[EMAIL PROTECTED] .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://smallbusiness.yahoo.com/webhosting
[Non-text portions of this message have been removed]
