Consulta con un MSFlexGrid
Publicado por Rafael (13 intervenciones) el 14/05/2010 03:52:42
buenas el que me pueda ayudar, tengo una BD de la cual quiero consultar varios datos que tengan un mismo codigo y quiero ver esos registros por medio de un MSFlexGrid tengo el MSFlexGrid y un textbox el codigo que tengo es el siguiente:
Dim sw As Integer
sw = 0
Data1.Recordset.MoveFirst
Do
Do Until Data1.Recordset.EOF
If MSFlexGrid1.(***) = Text13.Text Then
Label15.Caption = "Registro encontrado"
sw = 1
Exit Do
Else
Data1.Recordset.MoveNext
End If
Label15.Caption = "Registro no encontrado"
sw = 1
Loop
Loop Until sw = 1
End Sub
(***) NO SE QUE VA SI ALGUIEN ME PUEDE AYUDAR PARA PODER MOSTRAR LOS REGISTRO QUE QUIERO POR FAVOR !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
Dim sw As Integer
sw = 0
Data1.Recordset.MoveFirst
Do
Do Until Data1.Recordset.EOF
If MSFlexGrid1.(***) = Text13.Text Then
Label15.Caption = "Registro encontrado"
sw = 1
Exit Do
Else
Data1.Recordset.MoveNext
End If
Label15.Caption = "Registro no encontrado"
sw = 1
Loop
Loop Until sw = 1
End Sub
(***) NO SE QUE VA SI ALGUIEN ME PUEDE AYUDAR PARA PODER MOSTRAR LOS REGISTRO QUE QUIERO POR FAVOR !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
Valora esta pregunta
0