Visual Basic - Busca o no busca?

Life is soft - evento anual de software empresarial
 
Vista:

Busca o no busca?

Publicado por lenilax (165 intervenciones) el 06/06/2002 21:57:18
Hola amigos, gracias por leer este mensaje.
Tengo el siguiente codigo:
MyRst.Open "SELECT * FROM Operations WHERE [Customer Name] LIKE '*Gilmann*'", MiConexion, adOpenDynamic, adLockReadOnly, adCmdText
luego
idxRcds = MyRst.RecordCount
Ahora, el punto es que cuando verifico el valor de idxRcds es 0 aunque estoy compltamente seguro que en la tabla operations, en el campo Customer name hay por lo menos 2 Gilmann.
Por que no los encuentra?
Suponiendo que puedo solucionarlo con la ayuda de ustedes, como puedo llenar una dbgrid con los resultados?
Gracias amigos
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:Busca o no busca?

Publicado por carla (104 intervenciones) el 07/06/2002 14:48:06
el valor devuelto depende del tipo de cursor que estes usando, averigua eso.
en cuanto a la grilla yo uso msflexgrid y hago lo siguiente

Sub Inicializa_Grilla_cuenta(grilla As Control, total As Control)
Dim datos As String
Dim t
grilla.Clear
grilla.Visible = True
grilla.Enabled = True
t = Chr$(9)
grilla.Rows = 10000
grilla.Cols = 2
grilla.FixedRows = 0

datos = "Cuenta" + t + "Descripción"
grilla.AddItem datos, 0
grilla.Row = 1
grilla.FixedRows = 1
total.Caption = "0"

Screen.MousePointer = 11
If Sw_grilla = 1 Then
Mquery = "select * from softland.cwpctas where pcdesc LIKE '" & Trim(Letra_ini) & "%' "
Else
Mquery = "select * From softland.cwpctas "
End If
Set Cwpctas = bdcon.OpenRecordset(Mquery, 16)
lin = Cwpctas.RecordCount

If lin = 0 Then
MsgBox "no existen Registros", 16, "Error en Consulta"
Screen.MousePointer = Default
Exit Sub
End If
i = 1
Do While Not Cwpctas.EOF
grilla.Row = i
grilla.Col = 0
If Not IsNull(Cwpctas("pccodi")) Then
grilla.Text = Cwpctas("pccodi")
End If
grilla.Col = 1
If Not IsNull(Cwpctas("pcdesc")) Then
grilla.Text = Trim(Cwpctas("pcdesc"))
End If
Cwpctas.MoveNext
i = i + 1
Loop
total.Caption = Str(i - 1)
grilla.Rows = i%
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:Busca o no busca?

Publicado por lenilax (165 intervenciones) el 07/06/2002 16:28:18
Gracias por tu atencion Carla.
Podrias decirme si te refieres al CursorLocation o al CursorType?
Gracias :-)
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