DATAGRID
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
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
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
Otra cosa, para conectar un DataGrid a un recordset, es recomendable que :
CursorLocation = AdUseClient
CursorType = AdOpenStatic
Saludos