Menginput data dengan TrueDBGrid

Unknown | 10:59 | vb6
Udah jam 2 malam nie...
seperti janji saya pada postingan yang lalu saya akan memposting cara menginput data dengan TrueDBGrid

oke langsung saja...

Untuk bisa menggunakan Truedatagrid sebagai objek yang bisa diinput maka terlebih dulu buat referensi seperti gambar dibawah ini :

Dari gambar diatas beri tanda centang ComponentOne XArrayDB 8.0 Object
Setelah itu baru deklarasikan object XArray tersebut seperti kode selengkapnya dibawah ini

Dim arr As New XArrayDB
Dim conn As New Connection
Dim rs As New Recordset


Private Sub cmdAdd_Click()
    '---menghapus semua nilai array di memory
    arr.Clear
    TDBGrid1.ReBind
End Sub

Private Sub cmdSave_Click()
   For iRow = arr.LowerBound(1) To arr.UpperBound(1)
   TDBGrid1.Row = 0
      If arr(i, 0) <> "" Then
         rs.AddNew
         rs.Fields("KODE") = arr(iRow, 0)
         rs.Fields("NAMA") = arr(iRow, 1)
         rs.Fields("ALAMAT") = arr(iRow, 2)
         rs.Update
      End If
   Next
End Sub

Private Sub Form_Load()
'---membuat 2 baris, 2 kolom
    arr.ReDim 0, 1, 0, 2
    Set TDBGrid1.Array = arr

    TDBGrid1.Columns(0).Caption = "KODE"
    TDBGrid1.Columns(1).Caption = "NAMA"
    TDBGrid1.Columns(2).Caption = "ALAMAT"

    conn.Provider = "Microsoft.Jet.OLEDB.4.0"
    conn.Open App.Path & "\db.mdb"

     rs.CursorLocation = adUseClient
    rs.Open "SELECT * FROM Table1", conn, adOpenStatic, adLockOptimistic

End Sub

sekarang kalo kita periksa tablenya di database access hasilnya seperti gambar dibawah ini

Nah sekarang, bagaimana kalo kita tambahkan DropDown atau ComboBox pada TrueDBGrid
Silahkan tambahkan control TDBDropDown ke form
untuk mengisi data kedalam TDBDropDown perhatikan kode dibawah ini

'---tambahkan kode dibawah ini di form load
rs2.CursorLocation = adUseClient
rs2.Open "SELECT kota FROM Table2", conn, adOpenStatic, adLockOptimistic


TDBDropDown1.DataSource = rs2
TDBDropDown1.Columns(0).Caption = "Asal Kota"

TDBGrid1.Columns(2).DropDown = TDBDropDown1

 dan hasilnya akan seperti dibawah ini

ok sekian dulu dari saya...
silahkan langsung dipraktekkan dan dikembangkan