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
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
EmoticonEmoticon