Foros del Web - Ver Mensaje Individual

seba123neo · #8 (**permalink**) 31/01/2009, 13:38

que hace esa funcion VisualizarReceta??, pone el codigo capas que el problema lo esta generando ahi...y yo lo pondria todo en un mismo Sub a el codigo...por ejemplo:

Código:

Private Sub ConsultaReceta()
    Dim sql As String, cadena As String
    Call VisualizarReceta
    cadena = Text1(3).Text
    sql = "SELECT receta,fecha,nombre,apellidos,proxima FROM receta WHERE idpaciente Like '" & cadena & "' "
    Set receta1 = New ADODB.Recordset
    receta1.Open sql, BD, adOpenKeyset, adLockOptimistic

    DataReceta.Sections("section1").Controls.Item("Text2").DataField = "receta"
    DataReceta.Sections("section1").Controls.Item("text3").DataField = "fecha"
    DataReceta.Sections("section1").Controls.Item("text4").DataField = "nombre"
    DataReceta.Sections("section1").Controls.Item("text5").DataField = "apellidos"
    DataReceta.Sections("section1").Controls.Item("text6").DataField = "proxima"
    Set DataReceta.DataSource = receta1
    DataReceta.Show
End Sub

pero sigo teniendo la duda de que hace el VisualizarReceta...

saludos.