Tags Posts tagged with "koneksi database VB.net"

koneksi database VB.net

0 35

Pada posting kali ini saya akan membahas bagaimana cara melakukan proses crud(create, read, update, delete) tabel database MySql dengan VB.net. Sebagai percobaan saya membuat project aplikasi sederhana untuk mempraktekan proses insert, update, delete di VB.net dengan database mysql. Untuk koneksi VB.net silahkan baca petunjuknya di postingan saya koneksi VB.net dengan mysql. Kemudian buat database mysql dan tabelnya. Kali ini saya membuat database bernama phonebook, dengan tabel phonebook. Tabel phonebook terdiri dari field id, nomor, nama, dan email

Setelah database dibuat, kita memulai membuat project baru di vb.net. Beri nama project phonebook. Lakukan koneksi vb.net dengan mysql. Kemudian mulai mendesign form vb.net. Design form yang saya buat adalah seperti berikut ini:


Untuk memudahkan proses coding, saya merubah nama textbox dan button. Kemudian kita dapat memulai coding. Kita deklarasikan variable yang akan kita gunakan untuk menampung data dari database. Source nya sebagai berikut:

Public strconn As String = "server=localhost; uid=root; pwd=; database=phonebook;"
'buat objek adapter
Dim myadp As MySqlDataAdapter
'buat data tabel (agar data disusun tabel)
Dim dt As New DataTable
'buat perintah query disini
Public conn As New MySqlConnection(strconn)

Kemudian kita membuat event onLoad yang akan kita beri code berikut:

'jika koneksi tertutup
If conn.State = ConnectionState.Closed Then
Try
'buka koneksi
conn.Open()
'tangkap error mysql, jika ada ( ini hanya sebagian)
Catch mex As MySqlException
If mex.Number = 0 Then
MsgBox("Tidak bisa connect ke db", "no server")
ElseIf mex.Number = 1045 Then
MsgBox("Salah user/pass mysql", "akses ditolak")
Else
MsgBox(mex.Number & mex.Message)
End If
'tangkap error umum
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Call read_data()

Untuk function read_data() kita gunakan untuk membaca data dari database. isi source codenya adalah sebagai berikut:


Private Sub read_data()
Dim query As String
query = "select * from phonebook"
Try
'jalankan perintah baca
myadp = New MySqlDataAdapter(query, conn)
'isi data tabel
dt.Clear()
myadp.Fill(dt)
'pindahkan isi data tabel ke dgv_data
Dgv_data.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

 

Setelah ini kita dapat memasukan source code untuk melakukan insert, update, dan delete. source code insert adalah sebagai berikut:

If btntambah.Text = "simpan" Then
Dim mycmd As New MySqlCommand("insert into phonebook (id,nomorHp,nama,email) values ('','" & txtnumber.Text & "','" & txtnama.Text & "','" & txtemail.Text & "')", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("insert data berhasil")
txtnumber.Text = ""
txtnama.Text = ""
txtemail.Text = ""

txtnumber.Enabled = False
txtnama.Enabled = False
txtemail.Enabled = False

btnhapus.Enabled = True
btnubah.Enabled = True
btntambah.Text = “tambah”
Call read_data()
Exit Sub
End If

Untuk source code hapus, adalah sebagai berikut:

Dim mycmd As New MySqlCommand("delete from phonebook where id='" & txtidku.Text & "'", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("Hapus data berhasil")
Call read_data()
End If
Catch ex As MySqlException
MsgBox("insert data gagal")
End Try
Else
MsgBox("Pilih data yang ingin dihapus")

terakhir untuk proses update record database, dapat menggunakan source code berikut:


If btnubah.Text = "simpan" Then
Dim mycmd As New MySqlCommand("update phonebook set nomorHp='" & txtnumber.Text & "', nama='" & txtnama.Text & "',email='" & txtemail.Text & "' where id='" & txtidku.Text & "'", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("update data berhasil")
txtnumber.Text = ""
txtnama.Text = ""
txtemail.Text = ""

txtnumber.Enabled = False
txtnama.Enabled = False
txtemail.Enabled = False

btnhapus.Enabled = True
btnubah.Enabled = True
btnubah.Text = “Ubah”
Call read_data()
Exit Sub
End If

Catch ex As MySqlException
MsgBox(“update data gagal”)
End Try
End If

Silahkan coba compile dan jalankan aplikasinya. Aplikasi ini masih sederhana dan jauh dari sempurna, namun sudah mencukupi untuk melakukan uji coba sederhana. Saran dan masukan sangat diharapkan untuk menyempurnakan panduan ini. Semoga bermanfaat.

Link source code:

download

 

0 21

Koneksi Database VB.net dengan ADO.NET
ADO.NET digunakan sebagai Data Provider untuk membangun session dengan Data Source. Sebagai bentuk koneksi dengan data source digunakanlah object Connection Object. Connection object sendiri memegang peran penting dalam koneksi antara aplikasi dengan data source. ADO.NET connection object sendiri terhubung dengan database dalam aplikasi yang kita bangun. Ketika koneksi database sudah dibuat, kita dapat memberikan perintah SQL untuk menerima data atau memanipulasi database. Setelah aktivitas berakhir kita perlu menutup koneksi ke database. Pada ADO.NET jenis koneksi ditentukan oleh sistem database yang kita gunakan. Untuk membangun koneksi database kita dapat menggunakan cara berikut:
1. SqlConnection

Kita membangun koneksi database dengan menggunakan Sql Server connection string. Syntax yang digunakan adalah sbb:

connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName; User ID=UserName;Password=Password"
Jika kita sudah memberikan nama pada instance di SQL Server kita perlu mengubahnya menjadi “Server=localhost\sqlexpress”
Untuk menutup koneksi kita gunakan method Close(). Denga method close() transaction pending akan di rools back dan koneksi akan diputus. Jika kita ingin membangun koneksi database dengan menggunakan authentikasi windows kita dapat menggunakan syntax berikut ini:
"Server= localhost; Database= employeedetails; Integrated Security=SSPI;"
sedangkan jika hendak melakukan koneksi dengan menggunakan IP syntaxnya adalah sbb:

connetionString="Data Source=IP_ADDRESS,PORT; Network Library=DBMSSOCN; Initial Catalog=DatabaseName; User ID=UserName;Password=Password"

1433 is the default port for SQL Server.
Contoh program untuk membangun koneksi DB dengan sqlConnection adalah sbb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim connetionString As String Dim cnn As SqlConnection connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password" cnn = New SqlConnection(connetionString) Try cnn.Open() MsgBox("Koneksi berhasil ! ") cnn.Close() Catch ex As Exception MsgBox("koneksi database gagal ! ") End Try

Untuk melakukan pengujian kali ini saya membuat project baru, kemudian menambahkan form baru dengan sebuah button. Saya menambahkan event click pada button. Kemudian saya menambahkan source code berikut untuk melakukan koneksi dan melakukan perintah SQL. Koneksi database dapat disesuikan dengan kondisi di PC anda.

Dim connetionString As String Dim connection As SqlConnection Dim command As SqlCommand Dim sql As String connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password" sql = Select * from employe" connection = New SqlConnection(connetionString) Try connection.Open() command = New SqlCommand(sql, connection) Dim sqlReader As SqlDataReader = command.ExecuteReader() While sqlReader.Read() MsgBox(sqlReader.Item(0) & " - " & sqlReader.Item(1) & " - " & sqlReader.Item(2)) End While sqlReader.Close() command.Dispose() connection.Close() Catch ex As Exception MsgBox("Koneksi gagal ! ") End Try

2. OleDbConnection

Koneksi databasea OleDbConnection menggunakan driver yang sudah tersedia. Contoh syntax yang digukanan adalah sbb:
connetionString = “Provider = Microsoft.Jet.OLEDB.4.0; Data Source = yourdatabasename.mdb;”

contoh penggunaaannya dalah program adalah sbb:
Dim connetionString As String
Dim cnn As OleDbConnection
connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabasename.mdb;"
cnn = New OleDbConnection(connetionString)
Try
cnn.Open()
MsgBox("Connection Open ! ")
cnn.Close()
Catch ex As Exception
MsgBox("Can not open connection ! ")
End Try

3. OdbcConnection
Cara terakhir untuk membangun koneksi database adalah dengan menggunakan OdbcConnection. Untuk cara ini kita harus mendeskripsikan koneksi database degan syntax berikut:
connetionString = "Driver = {Microsoft Access Driver (*.mdb)}; DBQ = yourdatabasename.mdb;"

contoh source code adalah berikut ini:
Dim connetionString As String
Dim cnn As OdbcConnection
connetionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=yourdatabasename.mdb;"
cnn = New OdbcConnection(connetionString)
Try
cnn.Open()
MsgBox("Koneksi berhasil ! ")
cnn.Close()
Catch ex As Exception
MsgBox("koneksi database gagal ! ")
End Try

Demikian penjelasa singkat mengenai cara membuat koneksi database di VB.net dengan tiga macam cara. Semoga bermanfaat