Visual Basic - ayuda urgente

Life is soft - evento anual de software empresarial
   
Vista:

ayuda urgente

Publicado por alex (19 intervenciones) el 30/09/2009 22:22:18
este es mi codigo para que me muestra todo lo que busco dentro de una base de datos y me lo muestre en un MSHFlexGrid1, lo hace pero me muestra solo una coincidencia y yo quero que me muestre todas las que estan en la base datos access que tengo .

necesito ayuda para poder ver todos los datos coincidentes a mi busqueda que en este caso en lo escribo en text1.text y lo comparo con el campo unidad de la base de datos

les agredecria a alguin que me pueda ayudar a este problema

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.")

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"
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

Publicado por energy (5 intervenciones) el 30/09/2009 23:48:08
segun pides kieres ke en tu grid se vean todos los datos de la tabla, entonces:

pon esto antes de que hagas tu consulta

Set rs2 = cnn.Execute("Select * from crusadas"
Set MSHFlexGrid1.DataSource = rs2

y listo, apareceran todos los datos
saludos
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

RE:ayuda urgente

Publicado por Pedro Luis (878 intervenciones) el 01/10/2009 13:27:45
Lo que propones no tiene ninguna lógica, yo lo veo así

Set rs2 = cnn.Execute("Select * from crusadas where unidadl = '" & Text1.Text & "'")
Set MSHFlexGrid1.DataSource = rs2
data1.refesh
rs2.movelast ' Para que cuente
if rs2.recordcount>0 then
msgbox="Hay " & rs2.recordcount & " registros que coinciden"
else
msgbox="no hay ...."
endif
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

RE:ayuda urgente

Publicado por alex (19 intervenciones) el 01/10/2009 14:48:03
amigos lo que pa' establece la cadena de conexión a utilizar en la propiedad
es que yo no me conecto con data a la base me conecto asi

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, adLockOptimisticsa

entonces al correr tu codigo me da un error por el data

gracias por contestar
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