DATAGRID

MIGUEL
21 de Diciembre del 2005
TENGO EL SIGUIENTE ENUNCIADO OK?
Sub BusquedaPorTipo()
Dim rs As New ADODB.Recordset
Dim X As Integer
Dim Y As Integer
Set cmdBusqueda = New ADODB.Command
VentanaConBusqueda
MSFgBusqueda.Clear
cmdBusqueda.ActiveConnection = CNN
cmdBusqueda.CommandText = "SP_BUSQUEDA"
cmdBusqueda.CommandType = adCmdStoredProc

Set pBusqueda = cmdBusqueda.CreateParameter("", adInteger, adParamReturnValue)
cmdBusqueda.Parameters.Append pBusqueda
With cmdBusqueda
.Parameters.Append cmdBusqueda.CreateParameter("", adVarChar, adParamInput, 50, cadBusqueda)
.Parameters.Append cmdBusqueda.CreateParameter("", adInteger, adParamInput, , tipBusqueda)
End With
Set rs = cmdBusqueda.Execute

DataGrid1.DataSource = rs



End Sub


ME SALE QUE HAY UN ERROR ALGUIEN ME PUEDE DECIR COMO LE HAGO YA QUE NO DESEO USAR EL FLEXGRID

mvallejos
21 de Diciembre del 2005
Primero necesito saber cuál es el error y en que punto del programa te sale.
Otra cosa, para conectar un DataGrid a un recordset, es recomendable que :

CursorLocation = AdUseClient
CursorType = AdOpenStatic

Saludos

MIGUEL
21 de Diciembre del 2005
ME SALE QUE NO ADMITE MARCADORES

mvallejos
21 de Diciembre del 2005
Entonces es problema de cursor de Recordset, cambiaselo a AdOpenStatic, el problema es que el Command no tiene esas propiedades y te genera un cursor de tipo ForwardOnly.
Vas a tener que generar la consulta directamente sobre el recordset.

Saludos