CARA KONEKSI DATABASE MySql VB.Net

Database MySql
Pada artikel sebelumnya saya berikan artikel mengenai Koneksi database menggunakan Access 2000 dan Access 2003, kali ini saya akan berikan tutorial koneksi database vb.net menggunakan wamp server.
Berikut ini saya berikan langkah-langkan menginstal Wamp 3.51
Lakukan Instalasi Wamp 3.51









Lakukan Instalasi Driver ODBC 3.51




1. start > all programs
2. wampserver > start wampserver

3. klik kanan ikon wampserver (warna putih di taskbar sebelah kanan)
4. pilih phpmyadmin

5. ubah tampilan bahasa ke bahasa indonesia agar mudah dipahami

6. buatlah database dengan nama DBLatihan
7. klik ciptakan

8. buatlah tabel siswa dengan tiga buah field
9. klik go

10. buat struktur tabel siswa sebagai berikut

11. field nim dijadikan primary key
12. klik simpan

13. indikasi keberhasilan pembuatan tabel siswa

14. klik sisipkan untuk menambahkan data secara manual

15. isilah data sebagai berikut kemudian klik GO

16. indikasi keberhasilan penambahan data

17. klik BROWSE untuk meihat data hasil entri

18. tambahkan dua data berikutnya


Koneksi Vb.Net Dengan Database Mysql
9. Buka vb.net
10. Buatlah form seperti gambar di bawah ini

11. ubah nama Datagridview1 menjadi GDV

12. buka jendela coding dan tulis coding berikut :

1. Imports System.Data.Odbc  
2. Public Class TampilGrid  
3. Dim Conn As OdbcConnection  
4. Dim da As OdbcDataAdapter  
5. Dim ds As DataSet  
6. Sub Koneksi()  
7. str = "Driver={MySQL ODBC 3.51 
8. Driver};database=DBLatihan;server=localhost;uid=root"  
9. Conn = New OdbcConnection(str)  
10. If Conn.State = ConnectionState.Closed Then  
11. Conn.Open()  
12. End If  
13. End Sub  
14. Private Sub TampilGrid_Load(ByVal sender As System.Object, ByVal e  
15. As System.EventArgs) Handles MyBase.Load  
16. Koneksi()  
17. da = New OdbcDataAdapter("Select * from siswa", Conn)  
18. ds = New DataSet  
19. ds.Clear()  
20. da.Fill(ds, "Siswa")  
21. DGV.DataSource = (ds.Tables("Siswa"))  
22. End Sub  
23. End Class  

Hasil program :


Cara membuat string koneksi database mysql

1. klik kanan toolbox


2. choose items


3. ketik odbc


4. centang odbcconnection


5. klik dua kali object odbcconnection


6. klik dropdown connetionstring


7. pilih new connection









































21. paste string koneksi ke dalam coding

Menyimpan Foto ke database di Visual Basic

Karena banyak pertanyaan dari teman-teman dan komentar request tentang bagaimana membuat program menyimpan foto atau gambar di vb 6.
Maka pada pembahasan kali ini saya akan membahas tentang bagaimana cara menampilkan dan menyimpan foto pada folder yang kita buat menggunakan visual basic 6.
Untuk menyimpan foto, kita bisa menggunakan database atau tidak, pada program kali ini saya akan membuat program penyimpanan foto langsung ke folder foto yang saya buat, jadi foto tidak disimpan ke dalam database, tapi dalam folder foto yang sudah kita buat sebelumnya.

Sebelum kita mulai membuat programnya, buat dulu folder untuk tempat menyimpan database dan project yang akan kita buat, misalnya Latihan Foto, kemudian dalam folder latihan foto buat lagi folder dengan nama folderfoto untuk menampung foto-toto yang kita simpan nantinya.

Kemudian buat database access dengan nama dblatihan.mdb seperti dibawah ini :

Nama Database : dblatihan

Nama Tabel       : data

Field	Data Type	Size
NRP	Text	10
Nama	Text	30
Jurusan	Text	35

Simpan file database kedalam folder latihan foto yang sudah kita buat sebelumnya.

Kemudian buka Microsoft Visual Basic 6.0 dan desain form seperti dibawah ini :

 

 Componen tambahan yang digunakan pada desain form diatas adalah :

- Microsoft ADO Data Control 6.0

- Microsoft Common Dialog Control 6.0

- Microsoft DataGrid Control 6.0

Kemudian ubah properti name pada masing-masing command menjadi seperti ini :

untuk command Simpan = cmdsimpan

- Edit = cmdedit

- Hapus = cmdhapus

- Bersihkan = cmdbersih

- Cari Foto = cmdcari

- Keluar = cmdkeluar

Setelah desain dan edit property sudah selesai, kita buat modul untuk koneksi database nya, lalu ketikkan kode berikut dalam jendela kode modul :

1. Public conn As New ADODB.Connection  
2.   
3. Public RSdata As New ADODB.Recordset  
4.   
5.    
6.   
7. Sub koneksi()  
8.   
9. Set conn = New ADODB.Connection  
10.   
11. Set RSdata = New ADODB.Recordset  
12.   
13. conn.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\dblatihan.mdb"  
14.   
15. End Sub  

Kemudian pada form activate dan form load ketikkan kode perintah berikut :

1. Private Sub Form_Activate() ' perintah untuk koneksi database saat form aktif  
2. Call koneksi  
3.   
4. Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dblatihan.mdb"  
5.   
6. Adodc1.RecordSource = "data"  
7.   
8. Adodc1.Refresh  
9.   
10. Set DataGrid1.DataSource = Adodc1  
11.   
12. DataGrid1.Refresh  
13. End Sub  
14.   
15. Private Sub Form_Load()   
16. Text1.Text = ""  
17. Text2.Text = ""  
18. Text3.Text = ""  
19. Text4.Text = ""  
20. Text4.Enabled = False  
21. End Sub  

Buat sub Tampilkan data untuk menampilkan data saat pencarian data dilakukan :

1. Private Sub TampilkanData()  
2. Text2 = RSdata!nama  
3.   
4. Text3 = RSdata!jurusan  
5.   
6. Text4 = App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"  
7. End Sub  

Perintah untuk mencari data dengan acuan dari Text1 :

1. Function CariData()  
2.     Call koneksi  
3.   
4.     RSdata.Open "Select * From data where nrp='" & Text1 & "'", conn  
5. End Function  

Perintah untuk mengosongkan text inputan :

1. Function CariData()  
2.     Call koneksi  
3.   
4.     RSdata.Open "Select * From data where nrp='" & Text1 & "'", conn  
5. End FunctionPrivate Sub kosong()  
6.   
7. Text1.Text = ""  
8. Text2.Text = ""  
9. Text3.Text = ""  
10. Text4.Text = ""  
11. End Sub  

Perintah untuk menyimpan foto ke dalam folderfoto yang sudah kita buat sebelumnya dengan me rename nama foto menjadi kode nrp dari mahasiswa :

1. Private Sub simpan()  
2. SavePicture Image1.Picture, App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"  
3. End Sub  

Perintah untuk tombol Cari Foto, untu mencari dan membuka foto yang dipilih dari drive.

1. Private Sub cmdcari_Click()  
2. cmndialog.ShowOpen  
3. Text4 = cmndialog.FileName  
4. End Sub  

Perintah untuk tombol simpan, untuk menyimpan data pada database dan menyimpan foto kedalam folder.

1. Private Sub cmdsimpan_Click()  
2.   
3. Dim SQLTambah As String  
4.   
5.  Call simpan  
6.   
7.             SQLTambah = "Insert Into data (nrp,nama,jurusan) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"  
8.   
9.             conn.Execute SQLTambah  
10.   
11.             Form_Activate  
12.   
13. End Sub  

Perintah untuk tombol edit, untuk mengupdate data yang di edit pada database.

1. Private Sub cmdedit_Click()  
2.  Dim SQLEdit As String  
3.  Call simpan  
4.   
5.             SQLEdit = "Update data Set nama= '" & Text2 & "'," & " jurusan='" & Text3 & "' where nrp='" & Text1 & "'"  
6.   
7.             conn.Execute SQLEdit  
8.             Form_Activate  
9. End Sub  

Perintah untuk tombol hapus, untk menghapus data2 yang ada pada database.

1. Private Sub smdhapus_Click()  
2. Adodc1.Recordset.Delete  
3. Adodc1.Recordset.Update  
4. DataGrid1.Refresh  
5. End Sub  

Perintah untuk tombol bersih, yang berfungsi untuk membersihkan atau mengosongkan text yang ada pada textbox.

1. Private Sub cmdbersih_Click()  
2. Text1.Text = ""  
3. Text2.Text = ""  
4. Text3.Text = ""  
5. Text4.Text = ""  
6. Text1.SetFocus  
7. End Sub  

Perintah saat text1 kehilangan fokus maka akan langsung melakukan pencarian dengan memamnggil sub caridata dan tampilkandata untuk menampilkan data yang dicari.

1. Private Sub Text1_LostFocus()  
2. Call CariData  
3.   
4.         If Not RSdata.EOF Then  
5.   
6.             TampilkanData  
7.   
8.             MsgBox "Data Ditemukan"  
9.   
10.         Else  
11.   
12.             Text2.Text = ""  
13.   
14.             Text3.Text = ""  
15.   
16.             Text4.Text = ""  
17.   
18.         End If  
19.   
20. End Sub  

Perintah untuk memanggil gambar melalui alamat gambar yang berada pada text4.

1. Private Sub Text4_Change()  
2. Image1.Picture = LoadPicture(Text4)  
3. End Sub  

Jika Semua kode perintah pada masing-masing tool sudah di ketikkan kemudian Simpan Project ke dalam folder latihan foto yang sudah kita buat sebelumnya.,lalu coba jalankan program yang sudah kita buat, dan jika program sukses, hasilnya akan seperti ini :

 

Oke sampai disini dulu pembahasannya, semoga bermanfaat dan bisa membantu ^_^

Read more: http://komputerkampus.com/artikel-70/contoh-program-simpan-foto-menggunakan-visual-basic-60/#ixzz1whtrnSN5

CARA KONEKSI DATABASE Access2003 VB.NET 2005

Pada artikel sebelumnya telah saya berikan cara koneksi database Access 2000 ke VB.Net, kini saya akan berikan cara koneksi database 2003 ke VB.Net
Database Access 2003
1. Buka project vb.net 2005 pertemuan sebelumnya
2. buat form baru dengan nama ACCESS2003
3. buka access 2003
4. Create a new file

5. Blank database

6. Tulis nama file
7. simpan database (di folder project di posisi bin >debug)

8. Create
9. Klik dua kali object create table in desain view

10. Buatlah struktur tabel sebagai berikut

No	Nama Field	Type	Size	Ket
1	Kode_barang	Text	13	Primary Key
2	Nama_barang	Text	30
3	Harga_beli	Long Integer
4	Harga_jual	Long Integer
5	Jumlah_barang	Numeric
6	Satuan	Text	15

12. Klik kanan field kode_Barang
13. Pilih primary key (atau klik icon Primary Key Gambar kunci warna kuning)

14. Simpan struktur tabel > Klik ikon save (gambar disket)
15. Tulis nama tabel (barang)
16. Klik OK

17. Isilah tabel barang secara manual dengan data sebagai berikut


Koneksi Vb.Net 2005 Dengan Database Access 2003
1. Buka vb.net
2. Buatlah form seperti gambar di bawah ini

3. ubah nama Datagridview1 menjadi GDV

4. buka jendela coding dan tulis coding berikut :

1. Imports System.Data.OleDb  
2. Public Class TampilGrid  
3. Dim Conn As OleDbConnection  
4. Dim da As OleDbDataAdapter  
5. Dim ds As DataSet  
6. Sub Koneksi()  
7. str = "provider=microsoft.jet.oledb.4.0;data source=db1.mdb"  
8. Conn = New OleDbConnection(str)  
9. If Conn.State = ConnectionState.Closed Then Conn.Open()  
10. End Sub  
11. Private Sub TampilGrid_Load(ByVal sender As System.Object, ByVal e  
12. As System.EventArgs) Handles MyBase.Load  
13. Koneksi()  
14. da = New OleDbDataAdapter("Select * from barang", Conn)  
15. ds = New DataSet  
16. ds.Clear()  
17. da.Fill(ds, "Barang")  
18. DGV.DataSource = (ds.Tables("Barang"))  
19. End Sub  
20. End Class  

Hasil program :

CARA KONEKSI DATABASE Access 2000 VB.Net

Kini saya berikan cara mengkoneksikan database Access 2000 ke vb.net.

Cara membuat string koneksi access 2000

1. klik kanan toolbox
2. pilih choose items
3.
4. ketik oledd
5. centang oledbconnection
6. OK
7.

8. klik dua kali oledbconnection
9.

10.

11.

12.

13.

14.

15.

16. string koneksi yang dihasilkan adalah
Provider=Microsoft.Jet.OLEDB.4.0;Data Source="D:\1 vb.net 2005\modul vb.net
2005 April 2011\Latihan1\Latihan1\bin\Debug\db1.mdb"
Catatan : posisi drive dan folder dapat dilepas menjadi :
Str= “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb"
Database access 2007
1. Buka project vb.net 2005 pertemuan sebelumnya
2. buka access 2007
3. Blank Database



6. Ketik nama file dan simpan di folder BIN > DEBUG
7. Create



8.Memberi Nama Tabel





Rancangan Struktur Tabel Barang:

No	Nama Field	Type	Size	Ket
1	Kode_barang	Text	13	Primary Key
2	Nama_barang	Text	30
3	Harga_beli	Long Integer
4	Harga_jual	Long Integer
5	Jumlah_barang	Numeric
6	Satuan	Text	15

atau



Mengisi Data Secara Manual (Klik Dua Kali Nama Tabel)


Koneksi Vb.Net 2005 Dengan Database Access 2007
5. Buka vb.net
6. Buatlah form seperti gambar di bawah ini



7. ubah nama Datagridview1 menjadi GDV
8. buka jendela coding dan tulis coding berikut :

+ expand sourceview plaincopy to clipboardprint

1. Imports System.Data.OleDb
2. Public Class TampilGrid
3. Dim Conn As OleDbConnection
4. Dim da As OleDbDataAdapter
5. Dim ds As DataSet
6. Sub Koneksi()
7. str = "provider=microsoft.ACE.OLEDB.12.0;data
8. source=LATIHAN1.ACCDB.mdb"
9. Conn = New OleDbConnection(str)
10. If Conn.State = ConnectionState.Closed Then Conn.Open()
11. End Sub
12. Private Sub TampilGrid_Load(ByVal sender As System.Object, ByVal e
13. As System.EventArgs) Handles MyBase.Load
14. Koneksi()
15. da = New OleDbDataAdapter("Select * from barang", Conn)
16. ds = New DataSet
17. ds.Clear()
18. da.Fill(ds, "Barang")
19. DGV.DataSource = (ds.Tables("Barang"))
20. End Sub
21. End Class

Hasil program :