Visual Basic

<br />
<br />
<br />
    Private Sub frmTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        conn = New MySqlConnection()<br />
        'connection <br />
        myConnString = "connection to server"      <br />
 conn.ConnectionString = myConnString<br />
        conn.Open()<br />
        If conn.State = ConnectionState.Closed Then conn.Open()<br />
        massDataTable.Clear()<br />
        massCommand = New MySqlCommand<br />
        massCommand = conn.CreateCommand<br />
        massCommand.CommandText = "SELECT * FROM `test` where `mark-1` = 1"<br />
        massAdapter.SelectCommand = massCommand<br />
        massAdapter.Fill(massDataTable)<br />
        With Me<br />
            .RichTextBox1.Text = (massDataTable.Rows(0)(1))<br />
        End With<br />
    End Sub<br />
<br />

<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        With Me<br />
            Try<br />
                Dim ms As MemoryStream = New MemoryStream<br />
                'initializing picture<br />
                .RichTextBox1.SaveFile(ms, RichTextBoxStreamType.RichText)<br />
                Dim bytBlobData(ms.Length - 1) As Byte<br />
                ms.Position = 0<br />
                ms.Read(bytBlobData, 0, ms.Length)<br />
<br />
                Dim DatabaseParameter As New MySql.Data.MySqlClient.MySqlParameter("@BlobData", MySql.Data.MySqlClient.MySqlDbType.Blob, bytBlobData.Length, ParameterDirection.Input, False, 0, 0, Nothing, DataRowVersion.Current, bytBlobData)<br />
                If conn.State = ConnectionState.Closed Then conn.Open()<br />
                massCommand = New MySqlCommand<br />
                massCommand = conn.CreateCommand<br />
                massCommand.CommandText = "insert into `test`" & _<br />
                "(`mark-2` ) " & _<br />
                "values(@BlobData)"<br />
                massCommand.Parameters.Add(DatabaseParameter)<br />
                massCommand.ExecuteNonQuery()<br />
            Catch ex As Exception<br />
                writelog("0001", userid, Now.Date.ToString("MM/dd/yyyy"), Microsoft.VisualBasic.Left(Now.TimeOfDay.ToString, 8), "TEST")<br />
                Exit Sub<br />
            End Try<br />
        End With<br />
    End Sub<br />
<br />
    Private Sub frmTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        conn = New MySqlConnection()<br />
        'connection <br />
        myConnString = "server connection"<br />
        conn.ConnectionString = myConnString<br />
        conn.Open()<br />
        If conn.State = ConnectionState.Closed Then conn.Open()<br />
        massDataTable.Clear()<br />
        massCommand = New MySqlCommand<br />
        massCommand = conn.CreateCommand<br />
        massCommand.CommandText = "SELECT * FROM `test` where `mark-1` = 3"<br />
        massAdapter.SelectCommand = massCommand<br />
        massAdapter.Fill(massDataTable)<br />
        With Me<br />
            Dim rtfcontent As Byte() = DirectCast(massDataTable.Rows(0)(1), Byte())<br />
            If Not rtfcontent Is Nothing Then<br />
                Using stream As New IO.MemoryStream(rtfcontent)<br />
                    .RichTextBox1.LoadFile(stream, RichTextBoxStreamType.RichText)<br />
                End Using<br />
            End If<br />
        End With<br />
    End Sub<br />
<br />

nadeem2003 wrote:

its urgent.

Christian Graus wrote:

I asked everyone here, and we all agreed,