Re: [Programmer-VB] Menghapus dan menambahkan data di listbox

Mon, 12 Sep 2005 22:41:51 -0700

Terima kasih atas bantuan temen2 semua..
 
Masalah yang tadi sudah bisa..
tapi sekarang masalah nya seperti ini.
 
ID Company : 01                   ID Company :02
 
Listbox2                               Listbox2
a                                         a
b                                         b
                                           b
                                           a
 
|<  <  >  >|
 
kalau kita mau ke record selnjutnya dengan menekan tombol navigasi (>), listbox2 terus melooping
 
Saya punya coding untuk tampildata seperti ini :
 
Sub Tampildata()
dim cariactive as new ADODB.Recordset
dim strcariactive as string
 
strcariactive="select * from TAB_TRANSAKSI_COMPANY"
Set cariactive = New ADODB.Recordset
cariactive.open strcariactive,con,adlockoptimistic,
 
    txtID.Text = Trim(rectranscompany!ID_COMPANY)
    txtNama.Text = Trim(rectranscompany!NM_COMPANY)
    txtAlamat.Text = Trim(rectranscompany!ALAMAT_COMPANY)
    txttype.Text = Trim(rectranscompany!TIPE_COMPANY)
    txtKodPos.Text = Trim(rectranscompany!KODE_POS)
    txtArea1.Text = Trim(rectranscompany!KODE_TELP1)
    txtArea2.Text = Trim(rectranscompany!KODE_TELP2)
    If txtArea3.Text <> "" Then
        txtArea3.Text = Trim(rectranscompany!KODE_FAX)
    Else
        txtArea3.Text = ""
    End If
    txtTelp1.Text = Trim(rectranscompany!TELP1_COMPANY)
    txtTelp2.Text = Trim(rectranscompany!TELP2_COMPANY)
    If txtFax.Text <> "" Then
    txtFax.Text = Trim(rectranscompany!FAX_COMPANY)
    Else
    txtFax.Text = ""
    End If
    txthome.Text = Trim(rectranscompany!HOMEPAGE_COMPANY)
    txtemail.Text = Trim(rectranscompany!EMAIL_COMPANY)
    txtexec1.Text = Trim(rectranscompany!NM_EKSEKUTIF1)
    txtexec2.Text = Trim(rectranscompany!NM_EKSEKUTIF2)
    If txtexec3.Text <> "" Then
    txtexec3.Text = Trim(rectranscompany!NM_EKSEKUTIF3)
    Else
    txtexec3.Text = ""
    End If
    txtpos1.Text = Trim(rectranscompany!POSISI_EKSEKUTIF1)
    txtpos2.Text = Trim(rectranscompany!POSISI_EKSEKUTIF2)
    If txtpos3.Text <> "" Then
    txtpos3.Text = Trim(rectranscompany!POSISI_EKSEKUTIF3)
    Else
    txtpos3.Text = ""
    End If
    txtemail1.Text = Trim(rectranscompany!MAIL_EKSEKUTIF1)
    txtemail2.Text = Trim(rectranscompany!MAIL_EKSEKUTIF2)
    If txtemail3.Text <> "" Then
    txtemail3.Text = Trim(rectranscompany!MAIL_EKSEKUTIF3)
    Else
    txtemail3.Text = ""
    End If
   

Set cariactive = New ADODB.Recordset
stractive = "select * from viewlistact where ID_COMPANY='" & txtID.Text & "'"
cariactive.Open stractive, con, adOpenDynamic, adLockOptimistic
Do Until cariactive.EOF
    lstdis.AddItem Trim(cariactive.Fields("NM_AKTIFITAS"))
        cariactive.MoveNext
Loop
 
Set cariline = New ADODB.Recordset
strline = "select * from viewlistline where ID_COMPANY='" & txtID.Text & "'"
cariline.Open strline, con, adOpenDynamic, adLockOptimistic
Do Until cariline.EOF
      lstdisline(0).AddItem Trim(cariline.Fields("NM_LINE_BISNIS"))
        cariline.MoveNext
    
Loop
End Sub
 
 
kira2 salah dimananya ya...
 
Mohon bantuannya..
 
Thanks Before...
 


Asral Sukma <[EMAIL PROTECTED]> wrote:
untuk hapus pada listbox,pake code "List1.RemoveItem
List1.ListIndex" udah coba belum,code ini hanya akan
menghapus data yang kita pilih dari list,tetapi tidak
menghapus dari table,apabila kita pengen hapus juga
dari table nya,lanjutkan peritah nya dengna perintah
penghapusan data pada table..

thanks

--aL--


           
__________________________________
Yahoo! Mail - PC Magazine Editors' Choice 2005
http://mail.yahoo.com

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

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



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke