Date Mysql Vb.net

Kawan, tentu nikmat jika kita bisa membuat aplikasi database dengan mysql dan vb.net. Dan pembuatan aplikasi database hampir dipastikan terdapat tabel yang mempunya field bertipe DATE. Secara defaut jika kawan mencoba melakukan insert data bertipe date menggunakan vb.net maka yang terjadi adalah error. tentu saja karena format date pada mysql dengan vb.net bebeda.


Secara format data pda mysql adalah tahun-bulan-tanggal sedangkan pada vb.net tanggal/bulan/ tahun. Maka satu-satunya cara adalah mengubah format tanggal pada vb.net agar bisa diterima oleh mysql. Caranya dengan membuat suatu fungsi yang merubah tanggal vb.net menjadi format tanggal mysql. berikut adalah potongan script yang bisa di jalankan

Public Class Form1

Public Function harini(ByVal Input As Date)

Dim hour As String = CStr(Input.Hour)

Dim minute As String = CStr(Input.Minute)

Dim second As String = CStr(Input.Second)

Dim day As String = CStr(Input.Day)

Dim month As String = CStr(Input.Month)

If Len(CStr(Input.Hour)) = 1 Then

hour = "0" & Input.Hour

ElseIf Len(CStr(Input.Hour)) = 0 Then

hour = "00"

End If

If Len(CStr(Input.Minute)) = 1 Then

minute = "0" & Input.Minute

ElseIf Len(CStr(Input.Minute)) = 0 Then

minute = "00"

End If

If Len(CStr(Input.Second)) = 1 Then

second = "0" & Input.Second

ElseIf Len(CStr(Input.Second)) = 0 Then

second = "00"

End If

If Len(CStr(Input.Day)) = 1 Then

day = "0" & Input.Day

ElseIf Len(CStr(Input.Day)) = 0 Then

day = "00"

End If

If Len(CStr(Input.Month)) = 1 Then

month = "0" & Input.Month

ElseIf Len(CStr(Input.Month)) = 0 Then

month = "00"

End If

harini = CStr(Input.Year & "-" & month & "-" & day & " " & hour & ":" & minute & ":" & second)

End Function

dan contoh pemanggilan fungsi diatas sebagai berikut

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tgl As Date = Date.Now
MessageBox.Show("#format mysql :" & harini(tgl) & " #format VB:" & tgl)
End Sub

Untuk source code vb.net bisa di download di SINI