===================================================================================

=
1. KONEKSI
===================================================================================
=
'harus sudah instal driver mysql ODBC

Imports System.Data.Odbc
-----------------------------------------------------------------

Public NAMA_VAR_KONEKSI As OdbcConnection

Public NAMA_VAR_DATAREADER As OdbcDataReader
Public NAMA_VAR_COMMAND As OdbcCommand
Public NAMA_VAR_DATAADAPTER As OdbcDataAdapter
Public NAMA_VAR_DATATABLE As DataTable

-----------------------------------------------------------------

Sub koneksi()
Dim db_name, db_server, db_port, db_user, db_pass As String

db_name = "NAMA DATABASE"

db_server = "NAMA SERVER"
db_port = "PORT"
db_user = "USER USER"
db_pass = "PASSWORD"

Try
'mencoba untuk koneksi
Dim str As String
str = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & db_server & ";DATABASE=" &
db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"
NAMA_VAR_KONEKSI = New OdbcConnection(str)
If NAMA_VAR_KONEKSI.State = ConnectionState.Closed Then
NAMA_VAR_KONEKSI.Open()
End If
Catch
'jika koneksi gagal
MsgBox("Koneksi Erorr", MsgBoxStyle.Information, "Info")
end
End Try

end sub

===================================================================================
=
2. MENAMPILKAN DATA DI GRID
===================================================================================
=
Imports System.Data.Odbc

--------------------------------------------------------
'menampilkan data di gridview
NAMA_VAR_DATAADAPTER= New OdbcDataAdapter("SELECT * FROM nama_tabel",
NAMA_VAR_KONEKSI)
NAMA_VAR_DATATABLE = New DataTable
NAMA_VAR_DATAADAPTER.Fill(NAMA_VAR_DATATABLE)
NAMA_DATAGRID.DataSource = NAMA_VAR_DATATABLE
'mengatur judul
NAMA_DATAGRID.Columns(0).HeaderText = "JUDUL"
NAMA_DATAGRID.Columns(1).HeaderText = "JUDUL"
NAMA_DATAGRID.Columns(2).HeaderText = "JUDUL"

'mengatur lebar kolom

NAMA_DATAGRID.Columns(0).Width = 80
NAMA_DATAGRID.Columns(1).Width = 200
NAMA_DATAGRID.Columns(2).Width = 100

------------------------------------------------------------
3. Cari / Validasi
------------------------------------------------------------
NAMA_VAR_COMMAND = New OdbcCommand("select*from nmtabel where field='" & nmobjeck &
"'", NAMA_VAR_KONEKSI)
NAMA_VAR_READER = NAMA_VAR_COMMAND.ExecuteReader
If NAMA_VAR_READER.HasRows Then
'statement2
End If

---------------------------------------------------------
4. Simpan
---------------------------------------------------------
NAMA_VAR_COMMAND = New OdbcCommand("insert into nmtabel values('" & nmobjeck &
"','" & nmobjeck & "','" & nmobjeck & "','" & nmobjeck & "')", NAMA_VAR_KONEKSI)
NAMA_VAR_COMMAND.ExecuteNonQuery()

-----------------------------------------------------------
5. Memindah data dari grid ke textbox/combobox
KET : letakkan di procedure grid_cellmouseclick
-----------------------------------------------------------
Dim baris As Integer
baris = e.RowIndex
If e.RowIndex >= 0 Then
With NAMA_DATAGRID
NAMA_OBJEK = .Item(0, baris).Value
NAMA_OBJEK= .Item(1, baris).Value
NAMA_OBJEK = .Item(2, baris).Value
End With
end if
----------------------------------------------------------
6. Update
----------------------------------------------------------
NAMA_VAR_COMMAND = New OdbcCommand("update nmtabel set nmfield='" & nmobjeck & "',
nmfield='" & nmobjeck & "',nmfield='" & nmobjeck & "' where nmfieldKunci='" &
nmobjeck & "'", NAMA_VAR_KONEKSI)
NAMA_VAR_COMMAND.ExecuteNonQuery()

-----------------------------------------------------------
7. Hapus data
-----------------------------------------------------------

NAMA_VAR_COMMAND = New OdbcCommand("delete from nmtabel where nmfieldKunci='" &

nmobjeck & "'", NAMA_VAR_KONEKSI)
NAMA_VAR_COMMAND.ExecuteNonQuery()

---------------------------------------------------------
8. Hanya Angka (letakkan di keypress)
-------------------------------------------------------------
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then
e.Handled = True

atau

Dim Boleh As String

'daftar karakter yg diperbolehkan
Boleh = "0123456789"

e.Handled = Not (Boleh.Contains(e.KeyChar) Or e.KeyChar = Chr(Keys.Back))

-----------------------------------------------------------------
9. Laporan Crystal Report
------------------------------------------------------------------

Imports System.Data.Odbc
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

---------------------

Dim NAMA_ADAPTER As New OdbcDataAdapter("SELECT * FROM nama_tabel",

NAMA_VARIABEL_KONEKSI)

Dim NAMA_DATASET As New DataSet

NAMA_ADAPTER.Fill(NAMA_DATASET, "NAMA_TABEL_DI_DATASET")

Dim NAMA_REPORT_DOCUMENT As New ReportDocument

NAMA_REPORT_DOCUMENT.Load(Application.StartupPath &
"...\NAMAFOLDER\NAMAFILECRYSTALREPORT.rpt")
NAMA_REPORT_DOCUMENT.SetDataSource(NAMA_DATASET.Tables("NAMA_TABEL_DI_DATASET"))

NAMA_CRYSTALREPORT_VIEW.ReportSource = NAMA_REPORT_DOCUMENT

-----------------------------------------------------------------------------------
10. Crystal Report Parameter
-----------------------------------------------------------------------------------

Dim NAMA_VAR_PF As New ParameterField

Dim NAMA_VAR_PFS As New ParameterFields
Dim NAMA_VAR_PD As New ParameterDiscreteValue

-----------------------------------------------

NAMA_VAR_PF.ParameterFieldName = "NAMA_PARAMETER"
NAMA_VAR_PD.Value = NAMA_OBJECT
NAMA_VAR_PF.CurrentValues.Add(NAMA_VAR_PD)
NAMA_VAR_PFS.Add(NAMA_VAR_PF)

NAMA_CRVIEWER.ParameterFieldInfo = NAMA_VAR_PFS

-------------------------------------------------------------------------------
11. no otomatis
-------------------------------------------------------------------------------
NAMA_VAR_COMMAND = New OdbcCommand("select*from nmtabel order by mnfieldkunci
desc", NAMA_VAR_KONEKSI)
NAMA_VAR_READER = NAMA_VAR_COMMAND.ExecuteReader
If NAMA_VAR_READER.HasRows Then
nmobject = Microsoft.VisualBasic.Right("000" &
Trim(Str(Val(Microsoft.VisualBasic.Right(NAMA_VAR_READER.Item(0), 4)) + 1)), 4)
Else
nmobject = "0001"
End If

--------------------------------------------------
12. Mengisi Combobox dari Tabel
--------------------------------------------------
NAMA_VAR_COMMAND = New OdbcCommand("select*from nmTabel", NAMA_VAR_KONEKSI)
NAMA_VAR_READER = NAMA_VAR_COMMAND.ExecuteReader

NAMA_COMBOBOX.Items.Clear()
While NAMA_VAR_READER.Read()
NAMA_COMBOBOX.Items.Add(NAMA_VAR_READER("nmFIeld"))
End While

--------------------------------------------------
13. Menampilkan data berdasarkan kondisi
--------------------------------------------------
NAMA_VAR_COMMAND = New OdbcCommand("select*from nmTabel where nmFIeld='" &
NAMA_COMBOBOX & "'", NAMA_VAR_KONEKSI)
NAMA_VAR_READER = NAMA_VAR_COMMAND.ExecuteReader
If NAMA_VAR_READER.HasRows Then
NAMA_OBJECT = NAMA_VAR_READER.Item(index)
NAMA_OBJECT = NAMA_VAR_READER.Item(index)
NAMA_OBJECT = NAMA_VAR_READER.Item(index)
End If

--------------------------------------------------
14. membuka form (MDI Form)
--------------------------------------------------

Dim NAMA_CHILD As New NAMA_FORM

NAMA_CHILD.MdiParent = Me
NAMA_CHILD.Show()

-----------------------------------------------------
15. setting background MDI
------------------------------------------------------
Private Sub myMdiControlPaint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs)
e.Graphics.DrawImage(Me.NAMA_PICTUREBOX.Image, 0, 0, Me.Width, Me.Height)
End Sub

Private Sub myMdiControlResize(ByVal sender As Object, _

ByVal e As System.EventArgs)
CType(sender, MdiClient).Invalidate()
End Sub

Sub setbackground()
For Each c As Control In Me.Controls
If TypeOf c Is MdiClient Then
AddHandler c.Paint, AddressOf myMdiControlPaint
AddHandler c.SizeChanged, AddressOf myMdiControlResize
Exit For
End If
Next
End Sub

-------------------------------------------
16. BACKUP
------------------------------------------
Imports System.IO

NAMA_FOLDER_BROWSE.ShowNewFolderButton = True
If (NAMA_FOLDER_BROWSE.ShowDialog() = DialogResult.OK) Then
NAMA_TEXTBOX = NAMA_FOLDER_BROWSE.SelectedPath
Dim root As Environment.SpecialFolder = NAMA_FOLDER_BROWSE.RootFolder
End If

Dim myProcess As New Process()

Process.Start("PATHNYA\mysqldump.exe", " -u root NAMADATABASE -r " & NAMA_TEXTBOX

& "NAMAFILE.sql")
myProcess.Close()
-----------------------------------------
17. RESTORE
-----------------------------------------
Imports System.IO

Dim myProcess As New Process()

myProcess.StartInfo.FileName = "cmd.exe"
myProcess.StartInfo.UseShellExecute = False
myProcess.StartInfo.WorkingDirectory = "PATHNYA"
myProcess.StartInfo.RedirectStandardInput = True
myProcess.StartInfo.RedirectStandardOutput = True
myProcess.Start()
Dim myStreamWriter As StreamWriter = myProcess.StandardInput
Dim mystreamreader As StreamReader = myProcess.StandardOutput
myStreamWriter.WriteLine("mysql.exe -u root NAMADATABASE < " & NAMA_TEXTBOX
& "")
myStreamWriter.Close()
myProcess.WaitForExit()
myProcess.Close()
myProcess.Close()

------------------------------------------------------------
18. ENKRIPSI DAN DEKRIPSI
------------------------------------------------------------
Imports System.Security.Cryptography
Imports System.Text
Imports Microsoft.VisualBasic

'Function untuk Encrypt dan Decrypt

Private Shared Function GetMD5Hash(ByVal md5hash As MD5, ByVal input As String) As
String
Dim data As Byte() = md5hash.ComputeHash(Encoding.UTF8.GetBytes(input))
Dim sBuilder As New StringBuilder()
For i As Integer = 0 To data.Length - 1
sBuilder.Append(data(i).ToString("x2"))
Next i
Return sBuilder.ToString()
End Function

Public Shared Function CompareThem(ByVal hashedStr As String, ByVal str As String)

As Boolean
Dim md5hash As MD5 = MD5.Create()
Dim comparer As StringComparer = StringComparer.OrdinalIgnoreCase
 If comparer.Compare(hashedStr, GetMD5Hash(md5hash, str)) = 0 Then
Return True
Else
Return False
End If
End Function

Sub enkrip()
Dim base64Decoded As String = NAMA_TEXTBOX
Dim base64Encoded As String
Dim data As Byte()
data = System.Text.ASCIIEncoding.ASCII.GetBytes(base64Decoded)
base64Encoded = System.Convert.ToBase64String(data)
NAMA_VARIABEL= base64Encoded
End Sub

Sub dekrip()
Dim base64Encoded As String = NAMA_VARIABEL
Dim base64Decoded As String
Dim data() As Byte
data = System.Convert.FromBase64String(base64Encoded)
base64Decoded = System.Text.ASCIIEncoding.ASCII.GetString(data)
NAMA_TEXTBOX = base64Decoded
End Sub

----------------------------------------------------------
19. SIMPAN GAMBAR
----------------------------------------------------------

Dim rawData() As Byte

Dim fs As FileStream

fs = New FileStream(NAMA_OPENFILEDIALOG.FileName, FileMode.Open, FileAccess.Read)

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

'letakkan diantara proses SQL Insert & Execute Non Query

'pada values untuk field image, cukup diberi tanda ?
NAMA_VAR_COMMAND .Parameters.AddWithValue("@bin_data", rawData)