26 Juli 2013

Date Mysql pada 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
 
adf.ly - shorten links and earn money! 
 
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

0 komentar:

Poskan Komentar

Silahkan TInggalkan Komentar Anda di Blog Saya..
No SPAM and No PORN...
Terimakasih Telah meninggalkan Jejak Anda

Related Posts Plugin for WordPress, Blogger...
Award Pertama
Photobucket
Langganan Artikel Si Boersan :

Enter your email address:

Delivered by FeedBurner

Monggo Di Copy Linknya :
Text Link

Banner Link

Komunitas Blogger Indonesia Komunitas Blogwalking