Visual Basic

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

C:\Users\Selom\Documents\Visual Studio 2005\Projects\Printing And Copy1\Printing And Copy1\Database1.mdf

Private Sub frmColour_Copy_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try
            Dim con =  = New SqlConnection("Data        Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Selom\Documents\Visual Studio 2005  \Projects\Printing And Copy1\Printing And Copy1\Database1.mdf;Integrated Security=True;User Instance=True")

Dim cmd As New SqlCommand
cmd.Connection = con

cmd.CommandText = "INSERT INTO customer(cust_name, cust_Age) VALUES( '" + strCustName+ "', '" + strCust_Age + "')"

cmd1.ExecuteNonQuery()

 Catch ex As Exception
            MessageBox.Show("Error while inserting record on table..." & ex.Message, "Insert Records")
        Finally
            con.Close()
 End If 

AttachDbFilename=C:\Users\Selom\Documents\Visual Studio 2005  \Projects\Printing And Copy1\Printing And Copy1\Database1.mdf

Dim constring As String
constring = Application.StartupPath.ToString() + "\Database1.mdf"
Dim con = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" + constring + ";Integrated Security=True;User Instance=True")

"An attempt to attach an auto-named database for file C:\Program File\App\Customerdb.mdf failed. A database with the same name exits, or specified file cannot be opened, or it is located on UNC share."