none
STORE RRS feed

  • Pregunta

  • 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

    sábado, 5 de mayo de 2012 3:06

Respuestas

Todas las respuestas