Visual Basic

Dim bmp As Bitmap = CType(Image.FromFile("c:\bmp.png"), Bitmap)
For x As Integer = 0 To bmp.Width - 1
   For y As Integer = 0 To bmp.Height - 1
      Dim pixelAlpha As Byte = bmp.GetPixel(x, y).A
      Dim pixelRed As Byte = bmp.GetPixel(x, y).R
      Dim pixelGreen As Byte = bmp.GetPixel(x, y).G
      Dim pixelBlue As Byte = bmp.GetPixel(x, y).B
   Next
Next

bmp.SetPixel(x, y, Color.FromArgb(pixelAlpha, pixelRed, pixelGreen, pixelBlue))

with cmd
.connection = connection
.commandtext = "select count(ActAcct) as existingRecords from [SHACT] where yourtablenamehere = @CurrDepart"
.parameters.addwithvalue("@CurrDepart",me.txtCurGL.text.Tostring & "%")
end with
connection.open()

CCG3 wrote:

("Select Count(ActAcct) as ExistingRecords From [SHACT] where (@CurrDepart)=?", Connection)

cmd.Parameters.AddWithValue("@CurrDepart", OleDbType.VarChar).Value = Me.txtCurGL.Text.ToString + "%"

'Check to make sure the Current Department already exisits
Dim Count2 As Integer = 0
Using Connection As New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Comet 631 Databases\Converted to 2003\C022008.mdb")
Dim cmd As new OleDbCommand 
with cmd
.commandtext = "Select Count(ActAcct) as ExistingRecords From [SHACT] where (ActAcct) Like @department"
.parameters.addwithvalue("@department",me.txtCurGL.text & "%")
.connection = connection
end with
Connection.Open()
Count2 = CInt(cmd.ExecuteScalar)
End Using
'if the Current Department doesn't exisit then throw message and exit sub
If Count2 <= 0 Then
MessageBox.Show("The GL Department " & Me.txtCurGL.Text.ToString & " does not exisit.", _
"Copy Department", MessageBoxButtons.OK)
Me.txtCurGL.Focus()
Me.txtCurGL.SelectAll()
Return
End If