Hola,
disculpen mi codigo para consultas es este:
Dim miTabla As DataTable = DboDataSet.k
Dim cfilas As DataRowCollection = miTabla.Rows
Dim filaBuscada() As DataRow
Dim NL As String = Environment.NewLine
Dim criterio As String = "nombre like '*" & TextBox5.Text & "*'"
filaBuscada = miTabla.Select(criterio)
If (filaBuscada.GetUpperBound(0) = -1) Then
MessageBox.Show("no se encontrton registro coincidentes", "Buscar")
Exit Sub
End If
Dim i, j As Integer
For i = 0 To filaBuscada.GetUpperBound(0)
If (MessageBox.Show("¿Es este el nombre buscado?" & NL & TextBox5.Text & NL, "Buscar", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes) Then
For j = 0 To cfilas.Count - 1
If (cfilas(j).Equals(filaBuscada(i))) Then
BindingContext(DboDataSet, "k").Position = j
End If
Next j
Exit For
End If
Next i
y si busca los registros pero pues no los muestra en os textbox entonces kmo le hago para k se muestren los registros en el textbox
No tengo problemas en ayudarte, si quieres puedes agregarme a tu lista de contacto de messenger o escribirme un correo con PROYECTOSISTEMAS07@HOTMAIL.COM, te puedo ayudar con eso o algun programa completo.
ola me encontre este foro y me gustaria saber si me puedes ayudar con un programita que estoy aciendo es una conexion de VB2010 a un base de datos en acces
Tengo problema al guardar
Dim miTabla As DataTable = DsBDsiaspa.datos 'aqui me marca el error
Dim cfilas As DataRowCollection = miTabla.Rows
y la verda no se si me faltan imports o algun controlador...
31 jul 2011 a las 23:54
17 sep 2011 a las 02:00
17 sep 2011 a las 02:03
Dim miTabla As DataTable = DsBDsiaspa.datos 'aqui me marca el error
Dim cfilas As DataRowCollection = miTabla.Rows
y la verda no se si me faltan imports o algun controlador...
Te agradeceria si me aceptaras