Membuat Program Kontak Berfoto dengan VB.NET dan SQLServer

Comments

1. ajatbdg says:

   March 4, 2011 at 10:10 am

   Mantep nih, versi javanya ada ga pak ?

   Reply
2. ajat sudrajat says:

   March 6, 2011 at 11:51 pm

   Kunjungan keduax, baca artikel juga yang keduaxnya, maka komentarpun harus ada yang keduax. Ditunggu postingan terbarunya pak

   Reply
3. louis antonio ranjo says:

   March 11, 2011 at 6:07 am

   pak boleh minta program VB.NET

   Reply
   • Mas Anto says:

     March 11, 2011 at 9:10 pm

     program VB.NET atau Microsoft Visual Studio dan SQLServer sangad besar bisa mencapai 15 GB, silakan beli DVD programnya saja

     Reply
     • elmizan says:

       March 15, 2011 at 11:42 pm

       ga boleh copy-paste y pak @-)

       Reply
4. Raka says:

   March 30, 2011 at 9:59 pm

   iya dong man…ga boleh copas…

   tapi boleh kayaknya kalo copas buat kutipan…hehehehe
   *cari alasan buat copas…

   Reply
5. jhonry says:

   February 20, 2012 at 3:08 am

   Thanks mas buat share ilmunya..lagi belajar vb.net ni.,,.topiknya sama lagi.,mantap.,.,,

   Reply
6. katirefa says:

   March 31, 2012 at 10:15 pm

   Salam kenal…
   Kalau untuk menyimpan file gambar ke Database dan menampilkannya kembali mungkin sudah banyak yang membahasnya, tapi kalau diganti dengan menyimpan file yang berupa PDF ke database dan menamplkannya kembali saya belum pernah ketemu, Nah… sekarang bisa nggak Mas Anto Aplikasi diatas diubah kebetulan saya punya kasus demikian dan sampai sekarang belum bisa saya pecahkan terutama untuk menampilkannya kembali pada form dengan VB.net dan MySql. mungkin sekiranya Mas Anto bisa bantu saya dan mungkin juga berguna bagi rekan2 yg ada disini…. Trims…

   Reply
7. katirefa says:

   March 31, 2012 at 10:23 pm

   Ini script yg saya buat hanya untuk menyimpan file PDF ke database MySQL dan sepertinya berfungsi baik, tapi mungkin Mas Anto atau sipa saja bisa mengkoreksinya.

   Imports System.IO
   Imports MySql.Data.MySqlClient

   Public Class F_Simpan
   Inherits System.Windows.Forms.Form
   Private conn As MySqlConnection
   Private adapter As MySqlDataAdapter
   Private currFile As String = Nothing

   Private Sub bt_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_keluar.Click
   End
   End Sub

   Private Sub bt_buka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_buka.Click
   OpenDlg.Title = “Mencari File Data”
   If (OpenDlg.ShowDialog() = DialogResult.OK) Then
   currFile = OpenDlg.FileName
   txt_file.Text = currFile
   End If
   End Sub

   Private Sub txt_file_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_file.TextChanged
   If Not (txt_file.Text = String.Empty) Then
   Dim PDF = AxAcroPDF1.LoadFile(txt_file.Text)
   AxAcroPDF1.OcxState = AxAcroPDF1.OcxState
   End If
   End Sub

   Private Sub bt_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_simpan.Click
   Dim ukuran As Integer
   Dim fs As FileStream
   Dim connStr As String
   connStr = “server=localhost;uid=root;database=datablob;”
   Try
   fs = New FileStream(currFile, FileMode.Open, FileAccess.Read)

   ukuran = fs.Length
   Dim rawData() As Byte = New Byte(ukuran) {}
   fs.Read(rawData, 0, ukuran)
   fs.Close()

   Dim sql As String = “SELECT * FROM data_blob”
   conn = New MySqlConnection(connStr)
   conn.Open()

   adapter = New MySqlDataAdapter(sql, conn)
   Dim CmdBuilder As MySqlCommandBuilder = New MySqlCommandBuilder(adapter)
   Dim ds As DataSet = New DataSet(“data_blob”)

   adapter.Fill(ds, “data_blob”)

   Dim row As DataRow = ds.Tables(“data_blob”).NewRow()
   row(“kode_file”) = txt_kode.Text
   row(“deskripsi”) = txt_des.Text

   row(“nama_file”) = Path.GetFileName(txt_file.Text)
   row(“ukuran”) = ukuran
   row(“file”) = rawData

   ds.Tables(“data_blob”).Rows.Add(row)

   adapter.Update(ds, “data_blob”)
   MsgBox(“Data berhasil disimpan”, MsgBoxStyle.Information, “Insert OK”)
   conn.Close()

   txt_kode.Text = “” : txt_des.Text = “”
   txt_file.Text = “” : txt_kode.Focus()
   ‘pic.Image = Nothing
   AxAcroPDF1.Refresh()
   Catch ex As Exception
   MsgBox(“Failed to Insert:” + ex.Message)
   End Try
   End Sub
   End Class

   Tapi untuk menampilkannya selalu gagal pesan yang muncul “Out of Memmory”

   ini script untuk menampilkannya ke Form

   Imports MySql.Data.MySqlClient
   Imports System.IO

   Public Class Tampil
   Inherits System.Windows.Forms.Form

   Private conn As MySqlConnection
   Private adapter As MySqlDataAdapter
   Private ds As DataSet

   Private Sub Tampil_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
   Dim sql As String = “SELECT * FROM data_blob”
   Dim ConnStr As String = “server=localhost;uid=root;database=datablob;”
   Try
   conn = New MySqlConnection(ConnStr)
   conn.Open()
   ds = New DataSet
   adapter = New MySqlDataAdapter(sql, conn)
   adapter.Fill(ds, “data_blop”)
   BindListControls()

   Catch ex As Exception
   MsgBox(ex.Message, MsgBoxStyle.Information, “Error”)
   End Try
   End Sub

   Private Sub BindListControls()
   cbxkode.DataSource = ds.Tables(0)
   cbxkode.DisplayMember = “kode_file”
   cbxdes.DataSource = ds.Tables(0)
   cbxdes.DisplayMember = “deskripsi”
   cbxnama.DataSource = ds.Tables(0)
   cbxnama.DisplayMember = “nama_file”
   cbxsize.DataSource = ds.Tables(0)
   cbxsize.DisplayMember = “ukuran”
   End Sub

   Private Sub btn_lihat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_lihat.Click
   Dim OpenFile As Image = Nothing
   Dim fs As FileStream = Nothing

   ‘Deklarasi variabel untuk temporary file
   Dim temp As String = “D:\” + cbxnama.Text

   ‘SQL dengan kondisi kode_file
   Dim sql As String = “SELECT * FROM data_blob WHERE kode_file=’” & cbxkode.Text & “‘”
   Try
   adapter = New MySqlDataAdapter(sql, conn)
   ds = New DataSet
   adapter.Fill(ds, “data_blob”)
   Dim myRow As DataRow

   ‘Menetapkan Index data
   myRow = ds.Tables(“data_blob”).Rows(0)

   Dim DataFL() As Byte
   DataFL = myRow(“file”)
   Dim Counter As Long

   ‘Mendapatkan jumlah total Elemen array
   Counter = UBound(DataFL)
   fs = New FileStream(temp, FileMode.OpenOrCreate, FileAccess.Write)
   fs.Write(DataFL, 0, Counter)
   fs.Close()
   adapter.Dispose()

   Catch ex As Exception
   MsgBox(“Error : ” + ex.Message)
   Finally
   ‘Menampilkan File
   PDF_Tampil.OcxState = Nothing
   OpenFile = Image.FromFile(temp)
   PDF_Tampil.OcxState = PDF_Tampil.OcxState
   End Try
   End Sub

   Private Sub bt_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_keluar.Click
   End
   End Sub

   End Class

   Reply
8. djie says:

   April 8, 2012 at 8:57 pm

   mantap…. contoh program kayak gini yang aku cari.. thk

   Reply
   • Katirefa says:

     April 8, 2012 at 10:36 pm

     ini script lengkapnya sudah saya lengkapi dan bisa jalan sempurna untuk menyimpan. MySql & VB.NET 2010

     Imports System.IO
     Imports MySql.Data.MySqlClient
     Imports System.Object
     Imports System.Windows.Forms
     Public Class Form1
     Inherits System.Windows.Forms.Form
     Private adapter As MySqlDataAdapter
     Private currFile As String = Nothing
     Dim table As DataTable
     Dim mysqlCmd As MySqlCommand
     Dim CommandText As MySqlCommand
     Dim ds As DataSet
     Dim fs As FileStream
     Sub Tabel()
     With LV1
     .Columns.Add(“KODE”, 0, HorizontalAlignment.Center)
     .Columns.Add(“KATEGORI”, 100, HorizontalAlignment.Center)
     .Columns.Add(“NOMOR”, 75, HorizontalAlignment.Center)
     .Columns.Add(“TAHUN”, 75, HorizontalAlignment.Center)
     .Columns.Add(“TENTANG”, 500, HorizontalAlignment.Left)
     .GridLines = True
     .FullRowSelect = True
     .View = View.Details
     End With
     End Sub
     Sub TampilLV()
     Dim DTLV As MySqlDataReader
     Try
     Conn.Open()
     Dim CC As New MySqlCommand(“select * from MASTER “, Conn)
     DTLV = CC.ExecuteReader()
     Dim i As Integer = 0
     LV1.Items.Clear()
     While DTLV.Read

     LV1.Items.Add(DTLV(“KOde”))
     LV1.Items(i).SubItems.Add(DTLV(“Kategori”))
     LV1.Items(i).SubItems.Add(DTLV(“Nomor”))
     LV1.Items(i).SubItems.Add(DTLV(“Tahun”))
     LV1.Items(i).SubItems.Add(DTLV(“Tentang”))
     i = i + 1
     End While
     Catch ex As Exception
     MessageBox.Show(ex.Message)
     Finally
     Conn.Close() ‘ must close after execute
     End Try

     End Sub
     Private Sub FrmKosong()
     TextBox1.Text = “”
     TextBox2.Text = “”
     TextBox3.Text = “”
     ComboBox1.Text = “”
     WebBrowser1.Navigate(“”)
     End Sub
     Private Sub FrmMati()
     TextBox1.Enabled = False
     TextBox2.Enabled = False
     TextBox3.Enabled = False
     ComboBox1.Enabled = False
     End Sub
     Private Sub FrmHidup()
     TextBox1.Enabled = True
     TextBox2.Enabled = True
     TextBox3.Enabled = True
     ComboBox1.Enabled = True
     End Sub
     Private Sub FrmAwal()
     FrmKosong()
     FrmMati()
     Button1.Text = “Baru”
     Button2.Text = “Edit”
     Button3.Text = “Hapus”
     Button4.Text = “Tutup”
     Button5.Text = “Open Pdf File”
     Button1.Enabled = True
     Button2.Enabled = True
     Button3.Enabled = True
     Button4.Enabled = True
     End Sub
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     Tabel()
     TampilLV()
     Conn.Open()
     Dim query As String = “SELECT * FROM KTGR”
     Dim DA = New MySqlDataAdapter(query, Conn)
     Dim DS = New DataSet
     DA.Fill(DS, “KTGR”)
     ComboBox1.Text = “”
     With ComboBox1
     .DataSource = DS.Tables(“KTGR”)
     .DisplayMember = “Kategori”
     .ValueMember = “Nomor”
     .SelectedIndex = 0
     .Text = “”
     End With
     Conn.Close()
     FrmAwal()
     TextBox2.MaxLength = 4
     TextBox1.MaxLength = 4
     End Sub
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim ukuran As Integer
     Dim fs As FileStream

     If Button1.Text = “Baru” Then
     Button1.Text = “Simpan”
     Button2.Enabled = False
     Button3.Enabled = False
     Button4.Text = “Batal”
     FrmHidup()
     TextBox1.Focus()
     FrmKosong()
     Else

     If ComboBox1.Text = “” Or TextBox1.Text = “” Or TextBox2.Text = “” Or TextBox3.Text = “” Then
     MsgBox(“Data Belum Lengkap…!”, 48, “Error”)
     Else

     Try
     fs = New FileStream(currFile, FileMode.Open, FileAccess.Read)
     ukuran = fs.Length
     Dim rawData() As Byte = New Byte(ukuran) {}
     fs.Read(rawData, 0, ukuran)
     fs.Close()

     Dim sql As String = “SELECT * FROM MASTER”
     conn = New MySqlConnection(ConnectionString)
     conn.Open()

     adapter = New MySqlDataAdapter(sql, Conn)
     Dim CmdBuilder As MySqlCommandBuilder = New MySqlCommandBuilder(adapter)
     Dim ds As DataSet = New DataSet(“MASTER”)
     adapter.Fill(ds, “MASTER”)
     Dim row As DataRow = ds.Tables(“MASTER”).NewRow()
     row(“Kode”) = ComboBox1.Text + TextBox1.Text
     row(“kategori”) = ComboBox1.Text
     row(“nomor”) = TextBox1.Text
     row(“tahun”) = TextBox2.Text
     row(“tentang”) = TextBox3.Text
     row(“na_file”) = Path.GetFileName(TPath.Text)
     row(“ukuran”) = ukuran
     row(“file”) = rawData
     ds.Tables(“MASTER”).Rows.Add(row)
     adapter.Update(ds, “MASTER”)
     MsgBox(“FIle Sudah Tersimpan”, MsgBoxStyle.Information, “OK”)
     conn.Close()
     FrmAwal()
     TampilLV()
     Catch ex As Exception
     MsgBox(“Gagal Menyimpan Data Silahkan Mengulang…! ” + ex.Message)
     End Try
     End If
     End If
     End Sub
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
     If Button2.Text = “Edit” Then
     Button2.Text = “Simpan”
     Button1.Enabled = False
     Button3.Enabled = False
     Button4.Text = “Batal”
     FrmHidup()
     TextBox1.Focus()
     Else
     If TextBox1.Text = “” Or TextBox2.Text = “” Then
     MsgBox(“Maaf Data Masih Kurang”, 48, “Error”)
     Else
     Conn.Open()
     Dim SQLUbah As String
     SQLUbah = “Update Master Set Kategori=’” & ComboBox1.Text & “‘,Nomor=’” & TextBox1.Text & “‘,Tahun=’” _
     & TextBox2.Text & “‘,Tentang=’” & TextBox3.Text & “‘Where Kode=’” & LBKODE.Text & “‘”
     Cmd = New MySqlCommand(SQLUbah, Conn)
     Cmd.ExecuteNonQuery()
     MsgBox(“Data Telah Di Ubah”, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, “Sukses”)
     FrmAwal()
     Conn.Close()
     TampilLV()
     End If
     End If
     End Sub
     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
     If TextBox1.Text = “” Then
     MsgBox(“Maaf Tidak ada data yang akan dihapus”, 48, “Perhatian”)
     Else
     Dim Pesan As String
     Pesan = MsgBox(“Yakin akan dihapus”, MsgBoxStyle.YesNo, “Konfirmasi”)
     If Pesan = vbYes Then
     Conn.Open()
     Dim SQLHapus As String
     SQLHapus = “Delete From Master Where Kode=’” & LBKODE.Text & “‘”
     Cmd = New MySqlCommand(SQLHapus, Conn)
     Cmd.ExecuteNonQuery()
     Conn.Close()
     FrmAwal()
     TampilLV()
     End If
     End If
     End Sub
     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
     Select Case Button4.Text
     Case “Tutup”
     Close()
     Case “Batal”
     FrmAwal()
     End Select
     End Sub
     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
     OpenDlg.Title = “Mencari File Data”
     If (OpenDlg.ShowDialog() = DialogResult.OK) Then
     currFile = OpenDlg.FileName
     TPath.Text = currFile
     TextBox1.Enabled = True
     TextBox2.Enabled = True
     TextBox3.Enabled = True
     End If
     End Sub
     Private Sub Lv1_DoubleClick1(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV1.DoubleClick
     With Me.LV1
     LBKODE.Text = .SelectedItems(0).SubItems(0).Text
     ComboBox1.Text = .SelectedItems(0).SubItems(1).Text
     TextBox1.Text = .SelectedItems(0).SubItems(2).Text
     TextBox2.Text = .SelectedItems(0).SubItems(3).Text
     TextBox3.Text = .SelectedItems(0).SubItems(4).Text
     End With
     TampilPdf()
     Button4.Text = “Batal”
     End Sub
     Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
     If Not ((e.KeyChar >= “0″ And e.KeyChar = “0″ And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then
     e.Handled() = True
     End If
     End Sub
     Sub TampilPdf()
     Dim fs As FileStream = Nothing

     Dim temp As String = "D:DataSiskumTemp" + LBKODE.Text

     Dim sql As String = "SELECT * FROM Master WHERE Kode='" & LBKODE.Text & "'"
     Try
     adapter = New MySqlDataAdapter(sql, Conn)
     ds = New DataSet
     adapter.Fill(ds, "Master")
     Dim myRow As DataRow

     myRow = ds.Tables("Master").Rows(0)

     Dim DataPDF() As Byte
     DataPDF = myRow("file")
     Dim Counter As Long

     Counter = UBound(DataPDF)
     fs = New FileStream(temp, FileMode.OpenOrCreate, FileAccess.Write)
     fs.Write(DataPDF, 0, Counter)
     fs.Close()
     adapter.Dispose()

     Catch ex As Exception
     MsgBox("Error : " + ex.Message)
     Finally
     WebBrowser1.Refresh()
     WebBrowser1.Navigate(temp)
     End Try
     End Sub
     Private Sub TPath_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TPath.TextChanged
     If Not (TPath.Text = String.Empty) Then
     WebBrowser1.Navigate(TPath.Text)
     End If
     End Sub

     End Class

     Reply
9. Katirefa says:

   April 8, 2012 at 10:46 pm

   Ini script untuk menampilkannya kembali

   Imports System.IO
   Imports MySql.Data.MySqlClient
   Imports System.Object
   Imports System.Windows.Forms
   Public Class Form2
   Inherits System.Windows.Forms.Form
   Private adapter As MySqlDataAdapter
   Private currFile As String = Nothing
   Dim table As DataTable
   Dim mysqlCmd As MySqlCommand
   Dim CommandText As MySqlCommand
   Dim ds As DataSet
   Dim fs As FileStream
   Sub Tabel()
   With LV1
   .Columns.Add(“KODE”, 0, HorizontalAlignment.Left)
   .Columns.Add(“KATEGORI”, 200, HorizontalAlignment.Left)
   .Columns.Add(“NOMOR”, 75, HorizontalAlignment.Left)
   .Columns.Add(“TAHUN”, 75, HorizontalAlignment.Left)
   .Columns.Add(“TENTANG”, 500, HorizontalAlignment.Left)
   .GridLines = True
   .FullRowSelect = True
   .View = View.Details
   End With
   End Sub
   Sub TampilLV()
   Dim DTLV As MySqlDataReader
   Try
   Conn.Open()
   Dim CC As New MySqlCommand(“select * from MASTER “, Conn)
   DTLV = CC.ExecuteReader()
   Dim i As Integer = 0
   LV1.Items.Clear()
   While DTLV.Read
   LV1.Items.Add(DTLV(“KODE”))
   LV1.Items(i).SubItems.Add(DTLV(“Kategori”))
   LV1.Items(i).SubItems.Add(DTLV(“Nomor”))
   LV1.Items(i).SubItems.Add(DTLV(“Tahun”))
   LV1.Items(i).SubItems.Add(DTLV(“Tentang”))
   i = i + 1
   End While
   Catch ex As Exception
   MessageBox.Show(ex.Message)
   Finally
   Conn.Close() ‘ must close after execute
   End Try

   End Sub
   Private Sub FrmKosong()
   ComboBox1.Text = “”
   TextBox1.Text = “”
   TextBox2.Text = “”
   TextBox3.Text = “”
   WebBrowser1.Navigate(“”)
   End Sub
   Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
   DataCombo()
   TampilLV()
   End Sub
   Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Tabel()
   End Sub
   Private Sub LV1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV1.DoubleClick
   With Me
   LBKODE.Text = LV1.SelectedItems(0).SubItems(0).Text
   t4.Text = LV1.SelectedItems(0).SubItems(1).Text
   T1.Text = LV1.SelectedItems(0).SubItems(2).Text
   t2.Text = LV1.SelectedItems(0).SubItems(3).Text
   t3.Text = LV1.SelectedItems(0).SubItems(4).Text
   End With
   ComboBox1.Text = t4.Text
   TextBox1.Text = T1.Text
   TextBox2.Text = t2.Text
   TextBox3.Text = t3.Text
   TampilPdf()
   End Sub
   Sub TampilPdf()
   Dim fs As FileStream = Nothing

   Dim temp As String = “D:DataSiskumTemp” + LBKODE.Text

   Dim sql As String = “SELECT * FROM Master WHERE Kode=’” & LBKODE.Text & “‘”
   Try
   adapter = New MySqlDataAdapter(sql, Conn)
   ds = New DataSet
   adapter.Fill(ds, “Master”)
   Dim myRow As DataRow

   myRow = ds.Tables(“Master”).Rows(0)

   Dim DataPDF() As Byte
   DataPDF = myRow(“file”)
   Dim Counter As Long

   Counter = UBound(DataPDF)
   fs = New FileStream(temp, FileMode.OpenOrCreate, FileAccess.Write)
   fs.Write(DataPDF, 0, Counter)
   fs.Close()
   adapter.Dispose()

   Catch ex As Exception
   MsgBox(“Error : ” + ex.Message)
   Finally
   WebBrowser1.Refresh()
   WebBrowser1.Navigate(temp)
   End Try
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   FrmKosong()
   Tabel()
   TampilLV()
   End Sub
   Sub DataCombo()
   Conn.Open()
   Dim query As String = “SELECT * FROM KTGR”
   Dim DA = New MySqlDataAdapter(query, Conn)
   Dim DS = New DataSet
   DA.Fill(DS, “KTGR”)

   With ComboBox1
   .DataSource = DS.Tables(“KTGR”)
   .DisplayMember = “Kategori”
   .ValueMember = “Nomor”
   .SelectedIndex = 0
   End With
   ComboBox1.Text = “”
   Conn.Close()
   End Sub
   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

   Dim DTLV As MySqlDataReader
   Try
   Conn.Close()
   Conn.Open()
   Dim CC As New MySqlCommand(“Select * From MASTER where Kategori Like’%” & ComboBox1.Text & “%’”, Conn)
   DTLV = CC.ExecuteReader()
   Dim i As Integer = 0
   LV1.Items.Clear()
   While DTLV.Read
   LV1.Items.Add(DTLV(“KODE”))
   LV1.Items(i).SubItems.Add(DTLV(“Kategori”))
   LV1.Items(i).SubItems.Add(DTLV(“Nomor”))
   LV1.Items(i).SubItems.Add(DTLV(“Tahun”))
   LV1.Items(i).SubItems.Add(DTLV(“Tentang”))
   i = i + 1
   End While
   Catch ex As Exception
   MessageBox.Show(ex.Message)
   Finally
   Conn.Close()
   End Try
   End Sub

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
   Dim DTLV As MySqlDataReader
   Try
   Conn.Open()
   Dim CC As New MySqlCommand(“Select * From MASTER where Nomor Like’%” & TextBox1.Text & “%’”, Conn)
   DTLV = CC.ExecuteReader()
   Dim i As Integer = 0
   LV1.Items.Clear()
   While DTLV.Read
   LV1.Items.Add(DTLV(“KODE”))
   LV1.Items(i).SubItems.Add(DTLV(“Kategori”))
   LV1.Items(i).SubItems.Add(DTLV(“Nomor”))
   LV1.Items(i).SubItems.Add(DTLV(“Tahun”))
   LV1.Items(i).SubItems.Add(DTLV(“Tentang”))
   i = i + 1
   End While
   Catch ex As Exception
   MessageBox.Show(ex.Message)
   Finally
   Conn.Close()
   End Try
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   Close()
   End Sub
   End Class

   Reply
10. Programmer Pemula says:

    April 12, 2012 at 7:12 pm

    Mas, koneksi vb.net ke sql servernya gmana?

    Reply
11. Mas Anto says:

    April 13, 2012 at 1:56 am

    silakan download di http://mas-anto.com/download/Clskoneksi

    Reply
12. djiesoft says:

    May 20, 2012 at 5:10 am

    ide nya bagus dan kreatif… bagus sekali aplikasinya

    Reply
13. Lupita Chyntia (@LupitaChyntia) says:

    February 27, 2013 at 8:21 am

    mas ko ga bisa di download?

    Reply

Leave a Reply Cancel reply