Re: [Programmer-VB] nanya combo box

Mon, 01 May 2006 01:14:10 -0700

Untuk Isi combobox dengan data di Tabel :
 
Private Sub IsiCombo()
    Dim Cn as Adodb.Connection
    Dim Rs as Adodb.Recordset
   
    Set Cn = New Adodb.Connection
        Cn.ConnectionString = "........." ' Isi dengan connection stringnya
        Cn.CursorLocation = adUseClient
        Cn.Open
   
    Set Rs = New Adodb.Recordset
        Rs.Open "Select * from Tabel order by ID",Cn
    Combo1.Clear
    If Not Rs.Eof Then
        Do While Not Rs.Eof
            Combo1.AddItem Rs("Id") & "   " & Rs("Nama")
            Rs.MoveNext
        Loop
    End if
End Sub
 
Untuk Simpannya :
 
Private Sub CmdSimpan_Click()
    Set Rs = New Adodb.Recordset
        Rs.Open "Tabel",Cn
    Rs.AddNew
    Rs("Id") = Left(Combo1.Text,1)
    Rs("Nama") = TxtNama.Text
    Rs.Update
End Sub
 
Semoga sesuai dengan pertanyaan... dan semoga membantu
Heri
----- Original Message -----
Sent: Monday, May 01, 2006 1:19 PM
Subject: [Programmer-VB] nanya combo box

Hallo semua...
 
Saya mo tanya nich....
Kira-kira gimana caranya klo kita mengisi combo box dgn code program. agar kelihatan seperti combo box nya ms access
contohnya begini :
Saya mau ngisi kombo dgn data dibawah tapi yg tersimpan ke database adalah angkanya ( 1,2 ato 3)
1 Master
2 Partshipment
3 Barang Out
 

Terima kasih atas bantuannya
 
Sincerely yours,
Nyoman Gunartha


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



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

YAHOO! GROUPS LINKS



Kirim email ke