Rabu, 17 Agustus 2011

Menampilkan data dari list MSFlexGrid ke TextBox

Apabila kita membuat suatu aplikasi tentunya ada form untuk input data. contohnya form input data konsumen, apabila data konsumen sudah di masukkan di databse mysql dan akan di edit karena datanya salah maka kita membutuhkan kode untuk menampilkan data dari list MSFlexGrid ke kotak TextBox atau yang lainnya. Anda bisa melihat artikel sebelumnya klik disini.

Berikut adalah contoh kode menampilkan data list MSFlexGrid ke TextBox.
Private Sub TableCabdin_Click()
    Dim kdCabdin As String
    kdCabdin = Table.TextMatrix(Table.row, 1)
    rsClose rs
    rs.Open "select * from t_cabdin where kd_cabdin='" & kdCabdin & "'", cn, adOpenDynamic, adLockOptimistic
    
    If Not rs.EOF Then
        txtKodeCabDin.Text = rs.Fields(0)
        txtCabdin.Text = rs.Fields(1)
        cmdEdit.Enabled = True
        cmdHapus.Enabled = True
    Else
        txtKodeCabDin.Text = ""
        txtCabdin.Text = ""
    End If

1 komentar:

Anonim mengatakan...

Thank you very much

Posting Komentar

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Justin Bieber, Gold Price in India