Program Entri untuk data Numeric dan Date di VB .Net




Contoh Database
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.