STORE

Question

Hola a todos, una consulta como reemplazarían esta consulta con un store

Dim rs As New ADODB.Recordset
    Call Conectar
    On Error Resume Next
    strSQL = "SELECT TOP(20) pro_codigo as Código, pro_descripcion as Descripción, pro_medida as Unidad, pro_prevta as PVenta, pro_codmed2 as    Unidad, pro_precio2 as PVenta, cdscto as Dscto"
    strSQL = strSQL & " FROM Productos"
    strSQL = "xspProductos "
    rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
    Set GetProductos = rs

---

Pedro Avila

Answer 1

Crea el procedimiento con esa cadena select.(revisa porque la variable strSQL 'se pierde' cuando le asignas la cadena xspProductos.

Luego llamas al procedimiento para obtener el recordset.

Answer 2

Ya lo solucione, gracias de todas maneras

---

Pedro Avila