Datagrid Ke Clipboard dengan VB 6.0

Biasanya kalo lagi ada proyek, pasti ada aja permintaan baru dari user. Salah satunya copy datagrid ke clipboard. Cukup menarik permintaan ini, Biar cepet dapet hasilnya, kita pake database NWIND.mdb bawaan Microsoft Visual Studio 6.0 , ok kita lihat sekarang:

1. Buat tombol dengan nama command1.
2. Buat datagrid dengan nama DataGrid1 (kalo ga ada di toolbox tekan ctrl+t ntar plilih Microsoft Datagrid Control 6.0 (OLDB)).
3. Tambahkan references (Klik menu Project trus klik references dan beri centang pada Microsoft ActiveX Data Object 2.0 Library) klik OK.
4. Berikutnya di tinggal ke koding (code) klik menu View trus klik Code
5. Copy dan paste kode program berikut:

Dim conn As New ADODB.Connection
Dim rsdata As New ADODB.Recordset

Private Sub Command1_Click()
Dim NumFields As Integer
Dim strData As String

Clipboard.Clear
rsdata.Bookmark = DataGrid1.Bookmark

Do While Not rsdata.EOF
For NumFields = 0 To rsdata.Fields.Count – 1
strData = strData & Chr(9) & rsdata.Fields(NumFields).Value

Next
strData = strData & Chr(10)

rsdata.MoveNext
Loop

Clipboard.SetText Trim(strData)
End Sub

Private Sub Form_Load()
conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.mdb;” & _
“Persist Security Info=False”

With rsdata
If .State Then .Close
.CursorLocation = adUseClient
.Open “Select EmployeeID,LastName,FirstName FROM Employees”, conn
Set DataGrid1.DataSource = rsdata
DataGrid1.Refresh
End With
End Sub

Ok, satu lagi biasanya kalo dicopy langsung ke program Anda tu Code (syntax) tanda petik dua (“) suka error so…jangan lupa tu si petik 2 di ketik ulang.

Untuk mengujinya F5 trus klik tombol command1 trus paste ke microsoft excel.

Database bisa diubah sesuai yang Anda inginkan. Semoga bermanfaat