Date Mysql Vb.net

Semua tentu Menikmati 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

Coding

1. Public Class Form1  
2. Public Function harini(ByVal Input As Date)  
3. Dim hour As String = CStr(Input.Hour)  
4. Dim minute As String = CStr(Input.Minute)  
5. Dim second As String = CStr(Input.Second)  
6. Dim day As String = CStr(Input.Day)  
7. Dim month As String = CStr(Input.Month)  
8. If Len(CStr(Input.Hour)) = 1 Then  
9. hour = "0" & Input.Hour  
10. ElseIf Len(CStr(Input.Hour)) = 0 Then  
11. hour = "00"  
12. End If  
13. If Len(CStr(Input.Minute)) = 1 Then  
14. minute = "0" & Input.Minute  
15. ElseIf Len(CStr(Input.Minute)) = 0 Then  
16. minute = "00"  
17. End If  
18. If Len(CStr(Input.Second)) = 1 Then  
19. second = "0" & Input.Second  
20. ElseIf Len(CStr(Input.Second)) = 0 Then  
21. second = "00"  
22. End If  
23. If Len(CStr(Input.Day)) = 1 Then  
24. day = "0" & Input.Day  
25. ElseIf Len(CStr(Input.Day)) = 0 Then  
26. day = "00"  
27. End If  
28.   
29. If Len(CStr(Input.Month)) = 1 Then  
30. month = "0" & Input.Month  
31. ElseIf Len(CStr(Input.Month)) = 0 Then  
32. month = "00"  
33. End If  
34. harini = CStr(Input.Year & "-" & month & "-" & day & " " & hour & ":" & minute & ":" & second)  
35. End Function  

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

view plainprint?

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

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