Visual Basic - ayuda urgente porfavor

Life is soft - evento anual de software empresarial
   
Vista:

ayuda urgente porfavor

Publicado por alex (19 intervenciones) el 01/10/2009 21:13:58
amigos este es mi codigo, en el cual estoy haciendo una busqueda de las solicitudes que hace una unidad de mi empresa, este codigo me resulta pero me muestra solo una solicitud que hiso la respectiva unidad y me la muestra en el mshflexcrid lo que yo quero es que me muestra todas las ornes o peticiones que has hecho.

me pueden ayudar a solucionar esto porfavor como hacer que esto mueste en el mshflexgrid tdos las concidencia que le digito en text1

codigo

Dim cnn As New ADODB.Connection
Dim rs2 As New ADODB.Recordset

Private Sub Command1_Click()
'Dim buscar As String
'buscar = UCase(InputBox("Ingrese el Codigo de Producto.", "Buscar Producto"))





'rs2.Open "Select * From crusadas where idl =" & """" & Text1.Text & """", cnn, adOpenKeyset, adLockOptimistic
rs2.MoveFirst

flag = 0

While Not rs2.EOF

If Text1.Text = rs2.Fields!unidadl Then

Set rs2 = cnn.Execute("Select * from crusadas where unidadl = '" & Text1.Text & "'")
'Muestra los datos en el FlexGrid
Set MSHFlexGrid1.DataSource = rs2
' Visualiza la cantidad de registros filtrados
Me.Caption = "Registros encontrados: " & CStr(rs2.RecordCount)


flag = 1
rs2.MoveNext
Else
'MsgBox ("Dato no Existe!") ', vbExclamation, "Inicio de sesion.")
'DataList1.SetFocus
'TxtContraseña.Text = ""
rs2.MoveNext

End If


Wend


If flag = 0 Then MsgBox "el id: " & Text1.Text & " No está en la Base de Datos", vbExclamation, "Búsquedas de Matrícula"


End Sub

Private Sub Command2_Click()
Set rs2 = cnn.Execute("Select * from usuarios where admin = '" & Text14.Text & "'")
'Muestra los datos en el FlexGrid
Set MSHFlexGrid1.DataSource = rs2
' Visualiza la cantidad de registros filtrados
Me.Caption = "Registros encontrados: " & CStr(rs2.RecordCount)

End Sub

Private Sub Form_Load()
' establece la cadena de conexión a utilizar en la propiedad ConnectionString
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.25\bs\db1.mdb;Persist Security Info=False"

' abre la base de datos
cnn.Open

' Abre el recordset enviando la consulta sql

rs2.Open "Select * from crusadas", cnn, adOpenDynamic, adLockOptimistic
End Sub

Private Sub volver_Click()
Form1.Show
Form5.Hide

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda urgente porfavor

Publicado por juan carlos (518 intervenciones) el 03/10/2009 17:38:53
Hola Alex
ya utilizaste un for

algo parecido a esto:

dim registros as integer
registros = rs2.RecordCount
for r = 0 to registros
codigo....
r = r + 1
next r
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar