.:: Media Informasi & Pembelajaran ::.

Datagrid Ke Clipboard dengan VB 6.0

Posted on: August 7, 2009

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:
  6. 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

sumber: http://trisnotri.wordpress.com/2009/03/05/datagrid-ke-clipboard-dengan-vb-60/

1 Response to "Datagrid Ke Clipboard dengan VB 6.0"

misalnya ada pasien dengan lebih dari satu penyakit,yang sudah di simpan ke datagrid.lalu diberikan tombol cari… di saat nama pasien di input dan di tekan tombol cari,bagaimana kode program untuk menampilkan seluruh penyakit dari datagrid tersebut???

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

My Gravatar

Jangan tunggu sampai esok.

Artikel

Recent Comments

karil on Datagrid Ke Clipboard dengan V…

Total Pengunjung

%d bloggers like this: