Buscar datos desde un datagridview

Solo disponible en BuenasTareas
  • Páginas : 3 (676 palabras )
  • Descarga(s) : 0
  • Publicado : 24 de febrero de 2011
Leer documento completo
Vista previa del texto
ConnectionString
Private Const s_CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Archivos de programa" & _"\Microsoft Visual Studio\VB98" & _
"NWIND.MDB;Persist Security Info=False"

' Colores de fondopara los textbox mientras se busca
Private Const COLOR_TEXTBOX_NO_FOUND As Long = &H8080FF
Private Const COLOR_TEXTBOX_FOUND As Long = &HC0FFFF
Private Const COLOR_TEXTBOX_NORMAL As Long =vbWhite
'***********************************************************************************


' Variable de tipo Recordset y con evento
Private WithEvents Recordset AsADODB.Recordset
'Botón para buscar hacia atrás
Private Sub Command1_Click()

' Si llega al final posiciona el recordset en el último registro
If Recordset.EOF ThenRecordset.MoveLast
End If
' Habilita y deshabilita los command de buscar
If Recordset.BOF Or Recordset.AbsolutePosition = Recordset.RecordCount Then
Command2.Enabled = FalseCommand1.Enabled = True
Command1.SetFocus
Exit Sub
End If

Dim Anterior As Long
' Almacena la fila actual
Anterior =Recordset.AbsolutePosition
' Mueve un registro hacia atrás
Recordset.Move 0, Recordset.Bookmark + 1

' Busca en cualquier parte de la cadena
If Check1.Value = 0 ThenRecordset.Find Combo1.Text & " LIKE '*" + Text1.Text + "*'", , adSearchForward
' Busca la cadena completa
ElseIf Check1.Value = 1 Then
Recordset.Find Combo1.Text & "='" +Text1.Text + "'", , adSearchForward
End If

Command1.Enabled = True

If Recordset.EOF Then
Command2.Enabled = False
Command1.SetFocus...
tracking img