Hola que tal estoy con un dataset, pero al momento q lo quiero
filtar no me deja alguien tiene un metodo,
Imports System.Data
Imports System.Data.SqlClient
Module Module1
Sub Main()
Console.WriteLine("Inicio de información directa de la BD--------------------------")
Dim strConnection As String = "server=basededatsos;database=base;UID=user;PWD=pa ss"
Dim strSQL As String = "Select top 100 * From Pruebas"
Dim objConnection As SqlConnection = New SqlConnection(strConnection)
Dim objAdapter As New SqlDataAdapter(strSQL, objConnection)
Dim objDataset As New DataSet()
Dim cb As New SqlCommandBuilder(objAdapter)
objAdapter.Fill(objDataset, "Nombres")
Dim R As DataRow
For Each R In objDataset.Tables("Nombres").Rows
Console.WriteLine(R("nombre"))
Next
Console.WriteLine("Agregamos info solo en RAm--------------------------")
Console.WriteLine()
Dim r2 As DataRow = objDataset.Tables("Nombres").NewRow()
r2("nombre") = "Alberto"
'Actualiza en memoria RAm
objDataset.Tables("Nombres").Rows.Add(r2)
'Actualiza directo a Disco
'objAdapter.Update(objDataset, "Nombres")
For Each R In objDataset.Tables("Nombres").Rows
Console.WriteLine(R("nombre"))
Console.WriteLine()
'////////// aqui es el filtrado ///////////////////
Dim n As String = "xxxx"
Dim rowFoundRow As DataRow = objDataset.Tables("Nombres").Rows.Find(n)
If Not (rowFoundRow Is Nothing) Then
Else
End If
'//////////
Next
objConnection.Close()
End Sub
End Module
