.NET (Core and Framework)

FIELD Name  |  Data Type
ID              number
lastName        text
firstName       text
middleName      text
contactNum      number
add             text
eAdd            text
status          text
position        text

Try

            con.Open()
            Dim dt As New DataTable
            Dim ds As New DataSet
            ds = New DataSet("DataSet")
            ds.Tables.Add(dt)

            Dim da As OleDbDataAdapter
            da = New OleDbDataAdapter("Select * from empTable", con)
            da.Fill(dt)
            con.Close()

            Dim newrow As DataRow = dt.NewRow
            With newrow
                .Item("ID") = Val(txtEmpIDAdd.Text)
                .Item("lastName") = txtLastAdd.Text
                .Item("firstName") = txtFirstAdd.Text
                .Item("middleName") = txtMiddleAdd.Text
                .Item("contactNumber") = Val(txtContactAdd.Text)
                .Item("add") = txtAddressAdd.Text
                .Item("eAdd") = txtEmailAdd.Text
                .Item("status") = cmbStatusAdd.Text
                .Item("position") = txtPositionAdd.Text
            End With
            dt.Rows.Add(newrow)


            con.Open()
            da = New OleDbDataAdapter("Select * from empTable", con)
            Dim cb As New OleDbCommandBuilder
            cb = New OleDb.OleDbCommandBuilder(da)
            da.Update(dt)
            con.Close()


Catch ex As Exception
      MsgBox(ex.ToString)
End Try

xry2006 wrote:

_bmp = Bitmap.FromStream(_memoryStream)

_bmp = New Bitmap(_memoryStream)

Private Function GetImage(position As Long, size As Integer) As Image
    Dim string1 As String
    Dim byteArray1 As Byte()
    Dim bitmap1 As Bitmap
    Dim stream1 As Stream = DirectCast(Nothing, Stream)
    Dim binaryReader1 As BinaryReader = DirectCast(Nothing, BinaryReader)
    Dim memoryStream1 As MemoryStream = DirectCast(Nothing, MemoryStream)
    Try
        string1 = String.Format("{0}gallery{1:D2}.enc", Session.RootPath, Me.index)
        stream1 = DirectCast(File.OpenRead(string1), Stream)
        binaryReader1 = New BinaryReader(stream1, Encoding.ASCII)
        Dim int64_1 As Long = binaryReader1.BaseStream.Seek(position, SeekOrigin.Begin)
        byteArray1 = binaryReader1.ReadBytes(size)
        Me.ColorBalance(byteArray1)
        memoryStream1 = New MemoryStream(byteArray1)
        Try
            bitmap1 = New Bitmap(DirectCast(memoryStream1, Stream))
        Catch
            bitmap1 = New Bitmap(64, 64)
        End Try
    Finally
        If memoryStream1 IsNot Nothing Then
            memoryStream1.Close()
            memoryStream1 = DirectCast(Nothing, MemoryStream)
        End If
        If binaryReader1 IsNot Nothing Then
            binaryReader1.Close()
            binaryReader1 = DirectCast(Nothing, BinaryReader)
        End If
        If stream1 IsNot Nothing Then
            stream1.Close()
            stream1 = DirectCast(Nothing, Stream)
        End If
    End Try
    Return bitmap1
End Function

Bob Beaubien wrote:

TextBox1.Text = Toolclick.ToString

Dim temp = ArrayB.Select(AddressOf Double.Parse) _
                 .Except(ArrayA.Select(AddressOf Double.Parse)) _
                 .ToArray()

Dim parsedToRemove As New Dictionary(Of Double, Double)
Dim noDuplicates As New List(Of Double)

For Each parsedA In Array.ConvertAll(ArrayA, AddressOf Double.Parse)
    If Not parsedToRemove.ContainsKey(parsedA) Then
        parsedToRemove.Add(parsedA, parsedA)
    End If
Next
For Each parsedB In Array.ConvertAll(ArrayB, AddressOf Double.Parse)
    If Not parsedToRemove.ContainsKey(parsedB) Then
        noDuplicates.Add(parsedB)
    End If
Next
'noDuplicates now has the values in B not in A