Year Month Picker for .Net

Hi , This post will show you about .net user control YearMonthPicker which I created.

Let's start...

1.  For using my user control you have to download .dll file from   Knightsorf YearMonthPicker

2.  Add user control to your project.

    

    2.1  Choose Items...

   

    2.2   Browse to Knightsoft.dll  from download

    

    2.3  YearMonthPicker  control has added.

3. How to use YearMonthPicker control

  

    3.1  Drag YearMonthPicker control to form.

  Basic properties

    

     On running 

  Default value is current year and month.

  Select year and month from control.

4. How to get values from YearMonthPicker control

    From example selection     "201902" 

    

Get value (return value as string)

     VB :    YearMonthPicker1.Value      >>>>     "201902"

Assign value to YearMonthPicker control   

     VB :    YearMonthPicker1.Value = Now.Date.ToString("yyyyMM", CultureInfo.CreateSpecificCulture("en-GB")) 

or     VB :  YearMonthPicker1.Value = "201902"  

*** YearMonthPicker always working on culture info "en-GB" ***

Optional value from YearMonthPicker 

Text (return as string) 

      VB : YearMonthPicker1.Text         >>>>     "201902"

First date of your YearMonthPicker selection  (return as date)

      VB :  YearMonthPicker1.FirstDate

  or VB :  YearMonthPicker1.FirstDate.ToString("yyyy-MM-d")

Last date of your YearMonthPicker selection (return as date)

      VB : YearMonthPicker1.LastDate

  or VB : YearMonthPicker1.LastDate.ToString("yyyy-MM-d")

Thank you.

[Complete] How to save/load RichTextbox content (with images) to/from database

[Complete] How to save/load RichTextbox content (with images) to/from database

Hi, This blog will show you about “How to save/load RichTextbox content (with format) to/from database. With this example working on VB.Net and MySQL database.

First, Take a look RichTextbox. Simple use rtf property.

VB Code

Public Class FormTest01

    Private Sub FormTest01_Load(sender As Object, e As EventArgs) Handles Me.Load

        Try

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try

                                       Dim MRTF As String

            MRTF = RichTextBox1.Rtf

            RichTextBox2.Rtf = MRTF

        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString)

        End Try

    End Sub

End Class

Result

We can send content with easy code.

Solution 2 : Working with “SaveFile” and “LoadFile”

VB Code

Public Class FormTest01

    Private Sub FormTest01_Load(sender As Object, e As EventArgs) Handles Me.Load

        Try

        Catch ex As Exception

        End Try

    End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Try

            'SaveFile From RichTextbox1

            RichTextBox1.SaveFile(Application.StartupPath & "\tmpRTF\rtfRichTextbox1.txt", RichTextBoxStreamType.RichText)

            'LoadFile to RichTextbox2

            RichTextBox2.LoadFile(Application.StartupPath & "\tmpRTF\rtfRichTextbox1.txt", RichTextBoxStreamType.RichText)

        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString)

        End Try

    End Sub

End Class

Result

Solution 3 : working with database

Prepare database table

Table name : myblobtable

Columns :     mbt_id (Integer),  mbt_richtextbox  (MediumBlob)

Why it’s Mediumblob

         BLOB can be 65535 bytes (64 KB) maximum.  *64KB is too small to save file.

         MEDIUMBLOB for 16777215 bytes (16 MB)

 LONGBLOB for 4294967295 bytes (4 GB).

Save form

Input content and click Button1

VB Code (Concept is just save rtf to blob column)

Imports System.IO

Imports MySql.Data.MySqlClient

Public Class FormTest02

    Dim objConn As MySqlConnection

    Dim objCmd As New MySqlCommand

    Dim dtAdapter As New MySqlDataAdapter

    Dim Trans As MySqlTransaction

    Dim StrSql As String

    Dim RowExc As Integer

    Private Sub FormTest02_Load(sender As Object, e As EventArgs) Handles Me.Load

        Try

            ConDB()

        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString)

        End Try

    End Sub

    Public Sub ConDB()

        Try

            Dim StrWer As StreamReader

            StrWer = File.OpenText(Application.StartupPath & "\AppConn.ini")

            Dim strConnString As String

            strConnString = StrWer.ReadLine()

            objConn = New MySqlConnection(strConnString)

            objConn.Open()

        Catch ex As Exception

            Throw ex

        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try

            'Save

            If objConn.State = ConnectionState.Closed Then

                ConDB()

            Else

            End If

            Dim blob_bytes_RichTextboxData As Byte() = System.Text.Encoding.Default.GetBytes(RichTextBox1.Rtf)

            Trans = objConn.BeginTransaction(IsolationLevel.ReadCommitted)

            StrSql = "INSERT INTO myblobtable (mbt_richtextbox) VALUES (?BlobRTBData);"

                                        With objCmd

                                       .CommandType = CommandType.Text

                                       .CommandText = StrSql

                                       .Parameters.AddWithValue("?BlobRTBData", blob_bytes_RichTextboxData)

                                        .Connection = objConn

                                       .Transaction = Trans

            End With

            RowExc = objCmd.ExecuteNonQuery

            If RowExc > 0 Then

                Trans.Commit()

           objCmd.Parameters.RemoveAt("?BlobRTBData")

           objCmd.Dispose()

                                    MessageBox.Show("Save success.")

            Else

           Trans.Rollback()

                                    MessageBox.Show("Save fail.")

            End If

        Catch ex As Exception

                                  MessageBox.Show(ex.Message.ToString)

        End Try

    End Sub

End Class

Data in database

Table : myblobtable

Load form

VB Code  Exp1 : Read string from blob and set to RichTextBox1.Rtf

Imports System.IO

Imports MySql.Data.MySqlClient

Public Class FormTest03

    Dim objConn As MySqlConnection

    Dim objCmd As New MySqlCommand

    Dim dtAdapter As New MySqlDataAdapter

    Dim StrSql As String

    Dim dtRTB As New DataTable

    Private Sub FormTest03_Load(sender As Object, e As EventArgs) Handles Me.Load

        Try

            ConDB()

            LoadRichTextbox()

        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString)

        End Try

    End Sub

    Public Sub ConDB()

        Try

            Dim StrWer As StreamReader

            StrWer = File.OpenText(Application.StartupPath & "\AppConn.ini")

            Dim strConnString As String

            strConnString = StrWer.ReadLine()

            objConn = New MySqlConnection(strConnString)

            objConn.Open()

        Catch ex As Exception

            Throw ex

        End Try

    End Sub

    Private Sub LoadRichTextbox()

        Try

            If objConn.State = ConnectionState.Closed Then

                ConDB()

            Else

            End If

            dtRTB.Clear()

            StrSql = "SELECT * FROM myblobtable WHERE mbt_id=1;"

            With objCmd

                .Connection = objConn

                .CommandText = StrSql

                .CommandType = CommandType.Text

            End With

            Dim myData As MySqlDataReader

            myData = objCmd.ExecuteReader

            myData.Read()

            Dim rfile As Byte() = myData("mbt_richtextbox")

  RichTextBox1.Rtf = System.Text.Encoding.Default.GetString(rfile)

            myData.Close()

        Catch ex As Exception

            Throw ex

        End Try

    End Sub

End Class

VB Code Exp2 : Read blob to file and set to RichTextbox

Imports System.IO

Imports MySql.Data.MySqlClient

Public Class FormTest03

    Dim objConn As MySqlConnection

    Dim objCmd As New MySqlCommand

    Dim dtAdapter As New MySqlDataAdapter

    Dim StrSql As String

    Dim dtRTB As New DataTable

    Private Sub FormTest03_Load(sender As Object, e As EventArgs) Handles Me.Load

        Try

            ConDB()

            LoadRichTextbox()

        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString)

        End Try

    End Sub

    Public Sub ConDB()

        Try

            Dim StrWer As StreamReader

            StrWer = File.OpenText(Application.StartupPath & "\AppConn.ini")

            Dim strConnString As String

            strConnString = StrWer.ReadLine()

            objConn = New MySqlConnection(strConnString)

            objConn.Open()

        Catch ex As Exception

            Throw ex

        End Try

    End Sub

    Private Sub LoadRichTextbox()

        Try

            If objConn.State = ConnectionState.Closed Then

                ConDB()

            Else

            End If

            dtRTB.Clear()

            StrSql = "SELECT * FROM myblobtable WHERE mbt_id=1;"

            With objCmd

                .Connection = objConn

                .CommandText = StrSql

                .CommandType = CommandType.Text

            End With

            Dim myData As MySqlDataReader

            myData = objCmd.ExecuteReader

            myData.Read()

            Dim rfile As Byte() = myData("mbt_richtextbox")

  File.WriteAllBytes(Application.StartupPath & "\tmpRTF\rtfData.txt", rfile)

            RichTextBox1.LoadFile(Application.StartupPath & "\tmpRTF\rtfData.txt", RichTextBoxStreamType.RichText)

            myData.Close()

        Catch ex As Exception

            Throw ex

        End Try

    End Sub

End Class

Result

End of simple way to working with RichTextbox.

Thank you