Memindahkan Isi DataGridView Ke Textbox Ketika diklik

Private Sub dgv_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles dgv.MouseDoubleClick
        form_detail_buku.Show()
        Dim i As Integer
        i = Me.dgv.CurrentRow.Index
        With dgv.Rows.Item(i)
            Me.txt_id_buku.Text = .Cells(0).Value
            Me.txt_judul.Text = .Cells(1).Value
            Me.txt_halaman.Text = .Cells(2).Value
            Me.cmb_tahun.Text = .Cells(3).Value
            Me.lbl_path.Text = .Cells(4).Value
            Me.dtp_tanggal_beli.Value = .Cells(5).Value
            Me.txt_harga_beli.Text = .Cells(6).Value
            Me.txt_jumlah_buku.Text = .Cells(7).Value


        End With
        'frmTambahBarang.Show()
        'frmTambahBarang.Text = "Ubah Data Barang"
        'frmTambahBarang.btnSimpan.Text = "Perbarui"
        'Me.Close()
    End Sub

Cara Memilih Foto dan Mengcopynya ke Folder Baru

    Private Sub btn_telusuri_Click(sender As Object, e As EventArgs) Handles btn_telusuri.Click
        On Error Resume Next
        OpenFileDialog1.Filter = "JPG Files(*.jpg)|*.jpg|JPEG Files(*.jpeg)|*.jpeg"
        OpenFileDialog1.FileName = ""
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            pct_gambar.SizeMode = PictureBoxSizeMode.StretchImage
            pct_gambar.Image = New Bitmap(OpenFileDialog1.FileName)
            'btnPilih.Enabled = True
            PathFile = OpenFileDialog1.FileName
            'txt_nmgambar.Text = PathFile.Substring(PathFile.LastIndexOf("\") + 1)
            'lbl_path.Text = OpenFileDialog1.FileName

            Dim lokasi_gambar As String
            lokasi_gambar = OpenFileDialog1.FileName

            Dim namabaru As String
            namabaru = PathFile.Substring(PathFile.LastIndexOf("\") + 1)

            pct_gambar.Image = Image.FromFile(lbl_path.Text)


            System.IO.File.Copy(lokasi_gambar, "D:\" + namabaru + "")

            lbl_path.Text = "D:\" + namabaru + ""

        End If
    End Sub

Validasi Input Angka pada TextBox

Textbox hanya bisa diisi angka dan tombol back

If Not ((e.keychar > = "0" and e.keychar < = "9") or e.keychar = vb.back) then
     e.handled() = true
end if

Cara Menampilkan 2 Tabel MySQL ke DataGrid VIew

Private Sub Tampilkan()
        da = New OdbcDataAdapter("SELECT buku.id_buku, buku.judul, buku.halaman, buku.tahun, buku.path_foto, pembelian.tgl, pembelian.harga, pembelian.jumlah FROM buku, pembelian WHERE buku.id_buku = pembelian.id_buku", conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "buku")
        dgv.DataSource = (ds.Tables("buku"))
        dgv.ReadOnly = True
        dgv.Columns(0).Width = 50
        dgv.Columns(1).Width = 200
        dgv.Columns(2).Width = 50
        dgv.Columns(3).Width = 50
        dgv.Columns(4).Width = 100
        dgv.Columns(5).Width = 100
        dgv.Columns(6).Width = 50
        dgv.Columns(7).Width = 50
        dgv.Columns(0).HeaderText = "ID"
        dgv.Columns(1).HeaderText = "JUDUL BUKU"
        dgv.Columns(2).HeaderText = "Hlm"
        dgv.Columns(3).HeaderText = "Thn"
        dgv.Columns(4).HeaderText = "Path Foto"
        dgv.Columns(5).HeaderText = "Tgl. BELI"
        dgv.Columns(6).HeaderText = "HARGA"
        dgv.Columns(7).HeaderText = "JML"
        With dgv
            .RowHeadersVisible = True
            .AlternatingRowsDefaultCellStyle.BackColor = Color.Silver
        End With
    End Sub

Membuat Method Kosongkan

Private sub kosongkan()

'Untuk mengosongkan textbox
txt_id_buku.clear

'Untuk mengosongkan label
lbl_path.text = ""

'Untuk mengosongkan ComboBox
cmb_pengarang.text = ""

'Untuk mengongkan picturebox
picturebox1.image = nothing

end sub

Cara Membuat System DSN

Klik kanan Windows Button
Klik control panel
Klik System and security
Klik Administraive tools
Klik ODBC Data Source (32 bit)

Pada tab User DSN klik add
Klik MySQL ODBC 3.51 Driver
Klik Finish

Pada tab logi isi :
Data Source name : namadsn
server : localhost
user : root
database name : (dipilih dengan cara mengklik combo box)

klik Finish

Cara Menampilkan Foto di Crystal Report

1. Klik kanan pada bagian detail, pilih inset, pilih Ole Object, Create New
2. Pada Object Type pilih Pain Brush Picture, ok
3. Kemudian klik kanan Ole Object, Format Object
4. Klik Tab Picture, klikgrapich location, klik pada tombol x2, klik pada field name dimana alamat photo tersimpan, klik save & close
5. Agar ukuran foto sesuai cetakan ole object : klik Ole Objek, klik format object, pada tab common hilangkan tanda centang pada can grow, ok