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

Posted in: VB