CERCARE UN RECORDCON VB.NET

Dim Riga As DataRow = foundRows(0)

foundRows(0)(indice_colonna)

Private Function GetRowsByFilter(id As String) As DataRowCollection
  Dim dt As New DataTable("customers")
  Dim dr As DataRowCollection = Nothing
  Using conn As New OleDbConnection("tua conn string")
    conn.Open()
    Using cmd As New OleDbCommand("SELECT * FROM Customer WHERE id = @id", conn)
      cmd.Parameters.AddWithValue("@id", id)
      Using da As New OleDbDataAdapter(cmd)
        da.Fill(dt)
        If dt.Rows.Count > 0 Then
          dr = dt.Rows
        End If
      End Using
    End Using
    conn.Close()
  End Using
  Return dr
End Function

' ricava le righe
Private Function GetRowsByFilter(id As String, source As DataTable) As DataRow()
  Dim drs As DataRow() = source.[Select]([String].Format("id={0}", id))

  If drs.Length > 0 Then
    Return drs
  End If

  Return Nothing
End Function

' per leggere le righe basta fare un for each sull'array
Private Sub DisplayRows()
  Dim table As DataTable = objDataSet.Tables("customers")
  Dim drs As DataRow() = GetRowsByFilter("a", table)

  For Each dr As var In drs
    MessageBox.Show(dr("colonna").ToString())
  Next
End Sub

        For Each dr As DataRow In drs
            MessageBox.Show(dr("colonna").ToString())
        Next

myRows = myTable.Select(String.Format("id='{0}'", TextBox1.Text))

    Private Sub DisplayRows(ByVal id As String)
        Dim table As DataTable = objDataSet.Tables("customers")
        Dim drs As DataRow() = GetRowsByFilter(id, table)
        Dim dr As DataRow
        Dim I As Integer
        Dim POS As Integer

        'For Each dr In drs
        'MessageBox.Show(dr(1).ToString())
        'Next
        'LEGGE TUTTI I CAMPI DEL DB

        For Each table In objDataSet.Tables
            For Each dr In table.Rows
                I = I + 1
                If Not dr.IsNull(0) Then
                    If dr(0).ToString = id Then
                        POS = I - 1
                    End If
                End If
            Next dr
        Next table
        objCurrencyManager.Position = POS
    End Sub

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

    Private Sub FillDataSetAndView()

        ' Initialize a new instance of the DataSet object...
        objDataSet = New DataSet()

        ' Fill the DataSet object with data...
        objDataAdapter.Fill(objDataSet, "customers")

        ' Set the DataView object to the DataSet object...
        objDataView = New DataView(objDataSet.Tables("customers"))

        ' Set our CurrencyManager object to the DataView object...
        objCurrencyManager = CType(Me.BindingContext(objDataView), CurrencyManager)
        DgViewAllCustomers.DataSource = objDataView

    End Sub

    ' This method will bind the textboxes to the dataview object
    ' and it will enable us to use currency manager to move throught
    ' records in teh database with buttons that we will
    ' create later
    Private Sub BindFields()

        ' Clear any previous bindings...
        txtCustomerID.DataBindings.Clear()
        txtFirstName.DataBindings.Clear()
        txtLastName.DataBindings.Clear()
        txtAddress.DataBindings.Clear()


        ' Add new bindings to the DataView object...
        ' First parameter in the Add method
        ' is the name of the control property that we wish to bind to the data source
        ' Second parameter is the data view object 
        ' Third parameter is the name of the column in the Microsoft Access database
        txtCustomerID.DataBindings.Add("Text", objDataView, "ID")
        txtFirstName.DataBindings.Add("Text", objDataView, "FirstName")
        txtLastName.DataBindings.Add("Text", objDataView, "LastName")
        txtAddress.DataBindings.Add("Text", objDataView, "Address")

    End Sub