Pindah data antar DataGrid (Tanya Code)

Baca Juga

Tanya :

mas cara mindah data yang ada di datagrid1 ke datagrid2 dalam 1 form gimana caranya ya?

cha***_geo****@yahoo.co.id

Jawab :
Prinsipnya saya tidak bisa memindahkan data antar datagrid, mungkin bila ada pembaca yang bisa, dapat di share di sini. :D

Datagrid hanya bertugas untuk menampilkan data. mungkin secara teori pemindahan tersebut dengan  langkah-langkah sebagai berikut :
1. Menyiapkan dua buah datagrid yang masing-masing memiliki sumber data (tabel dari database)
2. Menampilkan data kedalam datagrid 1
3. Mengambil nilai dari datagrid 1 untuk di simpan ke datagrid 2 
4. Menampilkan data ke dalam datagrid 2

Langkah-langkah membuatnya adalah sebagai berikut :

• Tambahkan 2 buah Datagrid dan 4 buah command ke dalam form, susun seperti gambar di bawah ini

• Kemudian copy pastekan semua code dibawa ini ke jendela code Form1

Private Sub Command1_Click()con.Execute "INSERT INTO TbayarTemp (no_invoice,kode_supplier,nama_supplier,jumlah) " & _
"VALUES ('" & DataGrid1.Columns(0).Value & "','" & _
DataGrid1.Columns(1).Value & "','" & _
DataGrid1.Columns(2).Value & "','" & _
DataGrid1.Columns(3).Value & "')"
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "select * from tbayartemp", con
Set DataGrid2.DataSource = rs1
DataGrid2.Columns(4).Alignment = dbgRight
DataGrid2.Refresh
End Sub

Private Sub Command2_Click()con.Execute "DELETE * from tbayartemp"
Do Until rs.EOF
con.Execute "INSERT INTO TbayarTemp (no_invoice,kode_supplier,nama_supplier,jumlah) " & _
"VALUES ('" & DataGrid1.Columns(0).Value & "','" & _
DataGrid1.Columns(1).Value & "','" & _
DataGrid1.Columns(2).Value & "','" & _
DataGrid1.Columns(3).Value & "')"
rs.MoveNext
Loop
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "select * from tbayartemp", con
Set DataGrid2.DataSource = rs1
DataGrid2.Refresh
End Sub

Private Sub Command3_Click()con.Execute "DELETE * from tbayartemp"
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "select * from tbayartemp", con
Set DataGrid2.DataSource = rs1
DataGrid2.Columns(4).Alignment = dbgRight
DataGrid2.Refresh
'rs1.Close
End Sub

Private Sub Command4_Click()End
End Sub

Private Sub Form_Load()Connects
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from Qutang", con
Set DataGrid1.DataSource = rs
DataGrid1.Columns(3).Alignment = dbgRight
'DataGrid1.Columns(3).NumberFormat = "#,###"
DataGrid1.Refresh
con.Execute "DELETE * from tbayartemp"
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "select * from tbayartemp", con
Set DataGrid2.DataSource = rs1
DataGrid2.Columns(4).Alignment = dbgRight
DataGrid2.Refresh
'rs1.Close
End Sub

Screen Shot

Source Code

http://www.ziddu.com/download/18676224/pindahdatagrid.rar.html

LINK BARU :

DOWNLOAD

Semoga bisa membantu.