Visual Basic

Bitmap bmpResized = new Bitmap(width, height);

Graphics grph = Grphics.FromImage(bmpResized);
grph.DrawImage(...)

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

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

Member 2645365 wrote:

tank Rupesh Kumar Swami.

Member 2645365 wrote:

your code save image in database only. don 't resize it.

~Khatri Mitesh~ wrote:

when you use myform.close and then myform.show it shows old data on form but we you myform.dispose then myform.show it shows fresh form.

lucdt wrote:

I have a WebServices. I want to pass Instance of OracleConnection to Client because i don't want initialize a OracleConnection at Client for Security

OleDataAdapter1.Update(DataSet1)

Private Sub textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textbox1.KeyPress, txtFuelCostPerGallon.KeyPress<br />
         If Not (Char.IsControl(e.KeyChar) Or Char.IsNumber(e.KeyChar)) Then<br />
            e.Handled = True<br />
        End If<br />
    End Sub

kewyn wrote:

dim dr As Dataset2.CASHIER_INFORow

kewyn wrote:

Me.SqlDataAdapter1().Fill(Me.DataSet2) 'fill the data adapter with the dataset

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ' It look like your SQL statement returns a single record set.  This means just one table of records.
    ' You need to enumerate through the DataRow collection of the DataTable object in your DataSet.
    ' Get the individual values from each column in the row and format them for output to a String.
    Dim message As String = String.Empty
    For Each dr As DataRow In DataSet2.Tables(0).Rows
        message = message & String.Format("{0}: {1} {2}", dr("CashierId").ToString, dr("Cashier_Firstname").ToString, dr("Cashier_Lastname").ToString)
    Next
    TextBox1.Text = message
End Sub

kewyn wrote:

Catch