Vb2005 Database Sql

Membuat Program D Database tabase MySQL dengan Visual Basic 2005

Membuat Program Database MySQL SQL Dengan Visual Basic 2005 Part 1 Pada paper ini kita akan membuat sebuah program database, yang akan dihubungkan dengan MySql. Program ini akan membaca dan menampilkan item yang terdapat didalam tabel database yang anda pilih. Paper ini akan saya bagi menjadi beberapa bagian, jadi paper ini akan ada lanjutannya dalam wakti dekat. Server yang digunakan pada saat paper ini dibuat ad adalah alah Xamp, anda boleh memakai server lain selain yang saya sebutkan diatas, yang penting server tersebut sudah terintegrasi Mysql. Untuk data providernya download mysql-connector connector net 5.2.5 yang menjadi connector antara VB 2005 dan Mysql Anda. Klik link tersebut rsebut jika belum memiliki data providernya. lanjutkan paper ini. Installah terlebih dahulu program--program yang saya sebutkan diatas sebelum melanjutkan untuk database mysql-nya nya anda tidak perlu membuatnya lagi, download dbdatalist dan jalankan file tersebut melalui ui command prompt atau mengimportnya melalui phpMyAdmin-nya nya Xamp. Desain Form ukalah visual studio 2005 dan buat project baru dengan properti name frmSql.. Masukan beberapa Bukalah kontrol berikut pada project anda dan ganti properties properties-nya.

No

TextBox TextBox TextBox TextBox TextBox TextBox TextBox Label Label Label Label Label Label Label GroupBox GroupBox Listview

Name tsqlServer tsqlName tsqlpasw tsqldata tidtabel tidname tidImage ListSql

Text Localhost root dbdatalist Server Nama Password Database Tabel Nama Image Setting Sql Database Tabel Database -

Page

1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Properties

Control

visit me at: mubon.co.cc

Membuat Program D Database tabase MySQL dengan Visual Basic 2005

aturlah tata letak dari program yang anda buat, berikut capture aturan dari saya

Coding

kode-kode berikut Checklist MySql.Data pada imported namespace. Setelah itu ketik kode

Page

2

Untuk dapat menggunakan data provider MySql yang telah anda instal caranya double klik Project pada solution explorer. Klik References pada sebelah kiri kiri, Klik Add kemudian pilih MySql.Data pada tab .NET Add References, Klik OK. Jika berhasil maka MySql.Data terdapat pada References name

visit me at: mubon.co.cc

Membuat Program D Database tabase MySQL dengan Visual Basic 2005

Ketik kode berikut kedalam frmSql Option Explicit On Public Class frmSql #Region "Deklarasi" Dim Sqldatabase As New classSqlDatabase #End Region #Region "Function & sub" Sub ViewSqltabel(ByVal tabel As String) Dim intdsk As Integer = 1 Dim list As ListViewItem Sqldatabase.sqlOpen() Try ListSql.Items.Clear() sqlread = Sqldatabase.sqlReadData( Sqldatabase.sqlReadData("SELECT " & tabel & ".Tabel, " & tabel & ".Nama, " & tabel & ".t_Image FROM `t_menus`" `t_menus`") While sqlread.Read list = ListSql.Items.Add(intdsk) list.SubItems.Add(sqlread. list.SubItems.Add(sqlread.Item("Tabel").ToString) list.SubItems.Add(sqlread.Item( list.SubItems.Add(sqlread.Item("Nama").ToString) list.SubItems.Add(sqlread.Item( list.SubItems.Add(sqlread.Item("t_Image").ToString) intdsk = intdsk + 1 End While Catch ex As Exception MsgBox(ex.Message) End Try Sqldatabase.sqlClose() sqlread = Nothing End Sub Sub ShowSqlTabel(ByVal PerintaSql As String) End Sub #End Region #Region "Control" Private Sub tSqlData_KeyDown( tSqlData_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tSqlData.KeyDown Dim intdsk As Integer = 1 If e.KeyCode = Keys.Enter Then konstring = "Server=" & tSqlServer.Text & ";uid=" & tSqlName.Text & ";pwd=" & tSqlPasw.Text & ";data ";database=" & tSqlData.Text & ";" ViewSqltabel("t_Menus" "t_Menus") End If End Sub #End Region End Class

Page

3

Buatlah sebuah class baru dengan nama classSqlDatabase dan masukan kode berikut: Option Explicit On Imports MySql.Data.MySqlClient Public Class classSqlDatabase Public Sub sqlOpen() sqlcon.Close() If sqlcon.State = ConnectionState.Open Then sqlcon.Close() sqlcon.ConnectionString = konstring Try sqlcon.Open() Catch ex As Exception visit me at: mubon.co.cc

Membuat Program D Database tabase MySQL dengan Visual Basic 2005

sqlcon.Close() sqlcon.Open() End Try End Sub Public Sub sqlClose() sqlcon.Close() End Sub Public Function sqlReadData( sqlReadData(ByVal Perintahsql As String) As MySqlDataReader Try sqlcmd = sqlcon.CreateCommand() sqlcmd.CommandText = Perintahsql Return sqlcmd.ExecuteReader Catch ex As Exception MsgBox(ex.Message) Return Nothing End Try End Function End Class

Buatlah h sebuah module baru dan ketik kode berikut:

Page

4

Option Explicit On Imports MySql.Data.MySqlClient Module modDeklarasi Public sqlcmd As New MySqlCommand Public sqlcon As New MySqlConnection Public sqlread As MySqlDataReader Public konstring As String = "" End Module

visit me at: mubon.co.cc