Visual Basic

Dim PictureBox1Data As Byte()<br />
        If PictureBox1.Image Is Nothing Then<br />
            PictureBox1Data = Nothing<br />
        Else<br />
            PictureBox1Data = imageToByteArray(PictureBox1.Image)'See below this function<br />
        End If

Dim QueryText As String<br />
        Dim QueryValue As String<br />
        Dim command As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand()<br />
QueryText = "INSERT INTO Settings(PrintCompany,IsUploadLogo,LogoGraphic )"<br />
            QueryValue = "Values(@PrintCompany, @IsUploadLogo,@LogoGraphic)" <br />
            command.CommandText = QueryText & QueryValue<br />

command.Parameters.Add("@PrintCompany", SqlDbType.TinyInt, 10).Value = True<br />
        command.Parameters.Add("@IsUploadLogo", SqlDbType.TinyInt, 10).Value =True<br />
If Not PictureBox1Data Is Nothing Then<br />
            command.Parameters.Add("@LogoGraphic", SqlDbType.Image, PictureBox1Data.Length).Value = PictureBox1Data<br />
        Else<br />
            command.Parameters.Add("@LogoGraphic", SqlDbType.Image, 0).Value = System.DBNull.Value<br />
        End If

Public Function imageToByteArray(ByVal ImageIn As System.Drawing.Image) As Byte()<br />
       Dim ms As MemoryStream = New MemoryStream()<br />
       Dim FormatImage1 As Imaging.ImageFormat = ImageIn.RawFormat<br />
       ImageIn.Save(ms, FormatImage1)<br />
       'ImageIn.Save(ms, Imaging.ImageFormat.Bmp)<br />
       Return ms.ToArray()<br />
   End Function

str = "select * from Settings"<br />
        Dim ds As New DataSet<br />
        ds = mdIns.GetResultFromQuery(str)'this function return dataset<br />

If ds.Tables(0).Rows.Count > 0 Then<br />
             chkPrintCompanyName.Checked = CBool(ds.Tables(0).Rows(0).Item(0))<br />
            chkLogoGraphic.Checked = CBool(ds.Tables(0).Rows(0).Item(1))<br />
            If Not IsDBNull(ds.Tables(0).Rows(0).Item(4)) And Not ds.Tables(0).Rows(0).Item(2) Is Nothing Then<br />
                PictureBox1.Image = ByteArrayToimage(ds.Tables(0).Rows(0).Item(2))<br />
            End If<br />
            <br />
        End If

Public Function ByteArrayToimage(ByVal ImageArray As Byte()) As Image<br />
       Dim ms As MemoryStream = New MemoryStream(ImageArray)<br />
       Dim ReturnImage As Image = Image.FromStream(ms)<br />
       Return ReturnImage<br />
   End Function

Private Function FolderExists() As Boolean
        Return System.IO.Directory.Exists("J:\Template_Alpha\")
End Function

mighty_mouse wrote:

need a sample code for email attachment

Dim oMail As New System.Net.Mail.MailMessage("senders@emailaddress.com", "reciepients@emailaddress.com")
oMail.Priority = Net.Mail.MailPriority.Normal
oMail.Subject = "My Subject"
oMail.Attachments.Add(New System.Net.Mail.Attachment("C:\My Documents\MyFile.Doc"))
oMail.IsBodyHtml = False
oMail.Body = "Please the file attached."
Dim smtp As New System.Net.Mail.SmtpClient("smtp.mailserver.net")

smtp.Credentials = New System.Net.NetworkCredential("myUserName", "MyPassword")
smtp.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
smtp.Send(oMail)