Nama Database : dbcoba
Nama Tabel : tblcoba
+------------+-----------+----------+
| Field Name | Field Type | Field Size |
+------------+-----------+----------+
| nama | Varchar | 30 |
| tgl_lahir | Date | 30 |
| gaji | Double | 30 |
+------------+-----------+----------+
Kode Program :
Gunakan MyODBC sebagai penghubung antara Database MySQL dengan Visual Basic .Net. Sebelum membuat program diatas Public Class Form1, import terlebih dahulu system ODBC ke program, perontahnya :
Imports System.Data.Odbc
Selanjutnya dibawah Public Class Form1, deklarasikan variabel-variabel yang diperlukan, perintahnya :
Dim Conn As OdbcConnection
Dim da As OdbcDataAdapter
Dim ds As DataSet
Dim Str As String
Dim cmmd As OdbcCommand
Dim dReader As OdbcDataReader
Berikutnya buat Sub Koneksi dibawah deklarasi variabel
Sub Koneksi()
Str = "Driver={MySQL ODBC 3.51 Driver};database=dbcoba;server=localhost;uid=root"
Conn = New OdbcConnection(Str)
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
End Sub
Kode Program untuk simpan seperti dibawah ini
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 1 To 31
ComboBox1.Items.Add(i)
Next
For i = 1 To 12
ComboBox2.Items.Add(i)
Next
For i = 1970 To 2016
ComboBox3.Items.Add(i)
Next
End Sub
Private Sub Form Load digunakan untuk mengisi item data ComboBox1, ComboBox2 dan ComboBox3. ComboBox1 digunakan untuk memasukkan tanggal (1- 31), ComboBox2 untuk Bulan dan ComboBox untuk Tahum.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String
Dim tgl As Date
Dim gaji As Double
gaji = 1000000
tgl = DateSerial(ComboBox3.Text, ComboBox2.Text, ComboBox1.Text)
Koneksi()
sql = "Insert into Tbcoba(Nama, tgl_lahir, gaji) values " & _
"('" & TextBox1.Text & _
"','" & Format(tgl, "yyyy-MM-dd") & _
"'," & gaji & ")"
cmmd = New OdbcCommand(sql, Conn)
dReader = cmmd.ExecuteReader
tampil()
bersih()
End Sub
Seperti terlihat diatas, data dengan type tanggal harus diinput dengan format "yyyy-MM-dd". Format ini menyesuaikan dengan format baku dari MySQL. Data dalam bentuk angka tidak diapit tanda kutip 1.