Imprimir texbox en un datareport

spiderman78 · #1 (**permalink**) 30/01/2009, 10:15

Que tal como estan, tengo un problemita, lo q estoy tratando de hacer es tengo un formulario con 6 textbox en los cuales escribo y selecciono cierta informacion para ser mas explicito es una receta, lo q neceito hacer es imprimir esos datos en un data report q ya tengo diseñado pero no se como hacer el enlace, investigando llegue a este codigo pero no me funciona

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
End Sub

Private Sub Imprimir()
  Call ConsultaReceta
    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

y la verda ya no tengo idea de como podria solucionar este problema.......... de antemano muchas gracias por las respuestas

saludos

Avellaneda · #2 (**permalink**) 31/01/2009, 05:51

Cita:

Iniciado por spiderman78

Que tal como estan, tengo un problemita, lo q estoy tratando de hacer es tengo un formulario con 6 textbox en los cuales escribo y selecciono cierta informacion para ser mas explicito es una receta, lo q neceito hacer es imprimir esos datos en un data report q ya tengo diseñado pero no se como hacer el enlace, investigando llegue a este codigo pero no me funciona

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
End Sub

Private Sub Imprimir()
  Call ConsultaReceta
    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

y la verda ya no tengo idea de como podria solucionar este problema.......... de antemano muchas gracias por las respuestas

saludos

Para poder responder bien, deberías sustituir "pero no me funciona" por el motivo por el cual no funciona (da error, no salen los datos deseados..)
De todas formas ahí van unas observaciones:
1º Si el campo idpaciente es numérico, le tienes que quitar las comillas simples a la variable "cadena"
2º Si idpaciente es único, es mas efectivo utilizar el operador de igual que Like.
3º Se da por hecho que la variable receta1 está declarada para todo el módulo.
4º Antes ( y no después) de asignar los campos a la propiedad DataField le tienes que asignar al DataReport el recordset.

Código:

Set DataReceta.DataSource = receta1
With DataReceta.Sections("section1").Controls
	.Item("Text2").DataField = "receta"
	.Item("Text3").DataField = "fecha"
	.Item("Text4").DataField = "nombre"
	' .....
End With
DataReceta.Show

Asumiendo que tu DataReport está en inglés.

spiderman78 · #3 (**permalink**) 31/01/2009, 07:33

Cita:

Iniciado por Avellaneda

Para poder responder bien, deberías sustituir "pero no me funciona" por el motivo por el cual no funciona (da error, no salen los datos deseados..)
De todas formas ahí van unas observaciones:
1º Si el campo idpaciente es numérico, le tienes que quitar las comillas simples a la variable "cadena"
2º Si idpaciente es único, es mas efectivo utilizar el operador de igual que Like.
3º Se da por hecho que la variable receta1 está declarada para todo el módulo.
4º Antes ( y no después) de asignar los campos a la propiedad DataField le tienes que asignar al DataReport el recordset.

Código:

Set DataReceta.DataSource = receta1
With DataReceta.Sections("section1").Controls
	.Item("Text2").DataField = "receta"
	.Item("Text3").DataField = "fecha"
	.Item("Text4").DataField = "nombre"
	' .....
End With
DataReceta.Show

Asumiendo que tu DataReport está en inglés.

Que tal gracias por las observaciones, haciendo las modificaciones recomendadas mi codigo quedaria de la siguiente manera

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=" & cadena & " "
        Set receta1 = New ADODB.Recordset
        receta1.Open sql, BD, adOpenKeyset, adLockOptimistic
End Sub

Private Sub Imprimir()
  Call ConsultaReceta
    Set DataReceta.DataSource = receta1
With DataReceta.Sections("section1").Controls
    .Item("Text2").DataField = "receta"
    .Item("Text3").DataField = "fecha"
    .Item("Text4").DataField = "nombre"
    .Item("text5").DataField = "apellidos"
    .Item("text6").DataField = "proxima"
End With
    DataReceta.Show
End Sub

Pero me marca el siguiente error " Report sections do not match data source"

Y si efectivamente la variable receta1 la tengo dada de alta en todo el modulo, lo q si no entendi fue eso de suponiendo q mi datareport estuviera en ingles....

Tambien lo q tengo una duda desde q estuve investigando sobre como mandar los datos es: si en este linea
.Item("Text2").DataField = "receta", el text2 debe de ser el campo del datareport o el campo del formulario??

Gracias por la ayuda
Saludos

Avellaneda · #4 (**permalink**) 31/01/2009, 08:03

Cita:

Iniciado por spiderman78

Que tal gracias por las observaciones, haciendo las modificaciones recomendadas mi codigo quedaria de la siguiente manera

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=" & cadena & " "
        Set receta1 = New ADODB.Recordset
        receta1.Open sql, BD, adOpenKeyset, adLockOptimistic
End Sub

Private Sub Imprimir()
  Call ConsultaReceta
    Set DataReceta.DataSource = receta1
With DataReceta.Sections("section1").Controls
    .Item("Text2").DataField = "receta"
    .Item("Text3").DataField = "fecha"
    .Item("Text4").DataField = "nombre"
    .Item("text5").DataField = "apellidos"
    .Item("text6").DataField = "proxima"
End With
    DataReceta.Show
End Sub

Pero me marca el siguiente error " Report sections do not match data source"

Y si efectivamente la variable receta1 la tengo dada de alta en todo el modulo, lo q si no entendi fue eso de suponiendo q mi datareport estuviera en ingles....

Tambien lo q tengo una duda desde q estuve investigando sobre como mandar los datos es: si en este linea
.Item("Text2").DataField = "receta", el text2 debe de ser el campo del datareport o el campo del formulario??

Gracias por la ayuda
Saludos

1º si el campo idpaciente es numérico:
sql = "SELECT receta,fecha,nombre,apellidos,proxima FROM receta WHERE idpaciente=" & cadena

2º Si el DataReport está en español, tendrás que sustituir Section1 por Sección1 y TextN por TextoN

3º .Item("Text??") se refiere al nombre del campo del DataReport (el que asigna cuando insertas un control de cuadro de texto).

Saludos

spiderman78 · #5 (**permalink**) 31/01/2009, 08:28

Cita:

Iniciado por Avellaneda

1º si el campo idpaciente es numérico:
sql = "SELECT receta,fecha,nombre,apellidos,proxima FROM receta WHERE idpaciente=" & cadena

2º Si el DataReport está en español, tendrás que sustituir Section1 por Sección1 y TextN por TextoN

3º .Item("Text??") se refiere al nombre del campo del DataReport (el que asigna cuando insertas un control de cuadro de texto).

Saludos

A ok perfecto pues bueno entonces ifectivamente todo esta bien hasta la opcion dela consulta q ya le quite los caracteres q me estban haciendo falta ya la tengo de la siguiente manera

Código:

sql = "SELECT receta,fecha,nombre,apellidos,proxima FROM receta WHERE idpaciente=" & cadena

Pero me sigue marcando el error: "Report sections do not match data source"
alguna sugerencia por lo q me este marcando este error.........

Saludos

Avellaneda · #6 (**permalink**) 31/01/2009, 09:03

Cita:

Iniciado por spiderman78

A ok perfecto pues bueno entonces ifectivamente todo esta bien hasta la opcion dela consulta q ya le quite los caracteres q me estban haciendo falta ya la tengo de la siguiente manera

Código:

sql = "SELECT receta,fecha,nombre,apellidos,proxima FROM receta WHERE idpaciente=" & cadena

Pero me sigue marcando el error: "Report sections do not match data source"
alguna sugerencia por lo q me este marcando este error.........

Saludos

¿En qué linea del código marca ese error?

spiderman78 · #7 (**permalink**) 31/01/2009, 13:28

Cita:

Iniciado por Avellaneda

¿En qué linea del código marca ese error?

no me lo marca en ninguna linea sino oprimo el boton empieza abrir el datareport y marca ese error le doy aceptar y se queda abierto la pantalla del datareport pero sin ninguna informacion solo en blanco todo.......

Saludos y gracias por la ayuda

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.

Avellaneda · #9 (**permalink**) 31/01/2009, 13:56

Cita:

Iniciado por spiderman78

no me lo marca en ninguna linea sino oprimo el boton empieza abrir el datareport y marca ese error le doy aceptar y se queda abierto la pantalla del datareport pero sin ninguna informacion solo en blanco todo.......

Saludos y gracias por la ayuda

Evidentemente la consulta no devuelve ningún registro.
deberías controlar eso!

seba123neo · #10 (**permalink**) 31/01/2009, 14:04

si no devuelve registros me parece no importa, te muestra el reporte bien , pero vacio...yo tengo algunos hechos y si no devuelven registros los muestra...

espero la respuesta de spiderman78

Avellaneda · #11 (**permalink**) 31/01/2009, 14:19

Cita:

Iniciado por seba123neo

si no devuelve registros me parece no importa, te muestra el reporte bien , pero vacio...yo tengo algunos hechos y si no devuelven registros los muestra...
espero la respuesta de spiderman78

que muestra qué?

seba123neo · #12 (**permalink**) 31/01/2009, 14:27

muestra el reporte...no tira error porque el datasource tenga 0 registros...a eso me refiero...

Avellaneda · #13 (**permalink**) 31/01/2009, 14:35

Cita:

Iniciado por seba123neo

muestra el reporte...no tira error porque el datasource tenga 0 registros...a eso me refiero...

Ah, que muestra el reporte, pero...

¿pero si no devuelve registros, muestra los registros o no?

Deberías leerte tus respuestas anteriores!

seba123neo · #14 (**permalink**) 31/01/2009, 14:57

Cita:

Iniciado por YO

si no devuelve registros me parece no importa, te muestra el reporte bien, pero vacio...yo tengo algunos hechos y si no devuelven registros los muestra...

toda la confusión por esa "S" demas..me referia al reporte no a los registros......lo que quiero decir para terminar es que...

"el reporte se muestra SIEMPRE, independientemente si el recordset tiene registros o no"

spiderman78 · #15 (**permalink**) 31/01/2009, 15:49

Que tal pues no me muestra el reporte........ solo muestra como si lo abriera marca el error y despues de eso le doy click en aceptar y no me muestra ni reporte ni datos ni nada

saludos y gracias por la ayuda

seba123neo · #16 (**permalink**) 31/01/2009, 17:23

no me resondiste a que hace el procedimeinto ese....podes subir el proyecto asi lo
vemos y estoy seguro que si lo subis se soluciona el problema...

spiderman78 · #17 (**permalink**) 31/01/2009, 17:49

Cita:

Iniciado por seba123neo

no me resondiste a que hace el procedimeinto ese....podes subir el proyecto asi lo
vemos y estoy seguro que si lo subis se soluciona el problema...

Ok mira el procedimiento lo que hace es esto

Cita:

Public Sub VisualizarReceta()
Set RECBDDD = New ADODB.Recordset
RECBDDD.Open "select * from receta", BD, adOpenStatic, adLockOptimistic
End Sub

y bueno como puedo subir el proyecto junto con la base de datos q esta en mysql para q puedas verlo o a donde puedo enviartelo

Saludos

seba123neo · #18 (**permalink**) 31/01/2009, 17:55

bueno lo podes subir a cualquier servidor como Rapidshare...o cualquiera hay muchos...lo subis en un .zip o .rar y si esta en mysql exporta la base a un script .sql asi yo lo pruebo..

spiderman78 · #19 (**permalink**) 31/01/2009, 19:15

Cita:

Iniciado por seba123neo

bueno lo podes subir a cualquier servidor como Rapidshare...o cualquiera hay muchos...lo subis en un .zip o .rar y si esta en mysql exporta la base a un script .sql asi yo lo pruebo..

Ok lo subi en esta pagina
http://rapidshare.de/files/44426644/...edmac.rar.html
y su nombre es proyectoedmac, espero haberlo hecho bien, solo tengo un reporte que esta dentro del formulario pacientes y posteriormente dentro de receta, hay q seleccionar un paciente para entrar a la receta

saludos

seba123neo · #20 (**permalink**) 31/01/2009, 20:15

esta bien , pero tengo que tener la base , no se que gestor de bases de datos MySQL usas pero en cualquiera que uses te debe dar la opcion de exportar la base a un script .sql, sino es imposible acceder al programa....

spiderman78 · #21 (**permalink**) 31/01/2009, 20:28

Cita:

Iniciado por seba123neo

esta bien , pero tengo que tener la base , no se que gestor de bases de datos MySQL usas pero en cualquiera que uses te debe dar la opcion de exportar la base a un script .sql, sino es imposible acceder al programa....

ok ya encontre una manera con mysqldump pero sigo estos paso y no se donde estos poniendo el backup, o mas bien no se si lo estoy haceidno bien

estas son las instrucciones

Cita:

mysql> FLUSH TABLES WITH READ LOCK;

mysqldump -h localhost -u root -p control_pacientes --routines> backup.sql

mysql> UNLOCK TABLES;

Saludos

seba123neo · #22 (**permalink**) 31/01/2009, 21:09

recien me baje ese programa y la verdad no tiene casi opciones de anda, yo uso el SQLyog es para mi el mejor que hay, y tiene opciones para lo que quieras...sin la base lamentablemente no se puede probar como lo estas haciendo vos..

spiderman78 · #23 (**permalink**) 31/01/2009, 21:37

Cita:

Iniciado por seba123neo

recien me baje ese programa y la verdad no tiene casi opciones de anda, yo uso el SQLyog es para mi el mejor que hay, y tiene opciones para lo que quieras...sin la base lamentablemente no se puede probar como lo estas haciendo vos..

listo consegui el programa y logre exportarlo, por cierto tienes razon lo poco que vi es mucho mejor este programa que el q estaba usando ya subi la base de datos a

http://rapidshare.de/files/44431351/EDMAC.sql.html

Saludos y gracis por la ayuda

seba123neo · #24 (**permalink**) 31/01/2009, 22:42

bueno SOLUCIONADO jeje, despues de muhcas pruebas llege a la conclusión que el problema no esta en el codigo sino en el reporte...por alguna razon el reporte esta relacionado con un enlece de datos que ya no existe o se borro y quedo "enlazado" de alguna manera...para solucionar el problema se debe hacer click en el reporte y elegir la opcion llamada "Borrar Estructura" , pero guarda esto te borra todo los controles del reporte,pero antes de hacer eso hace una copia del reporte...al borrarse todo, abri la copia y vas copiando los controles sección por sección asi te queda como el otro...y ahi te tiene que funcionar porque a mi me funciono y mostro el reporte...

saludos.

spiderman78 · #25 (**permalink**) 01/02/2009, 08:42

Cita:

Iniciado por seba123neo

bueno SOLUCIONADO jeje, despues de muhcas pruebas llege a la conclusión que el problema no esta en el codigo sino en el reporte...por alguna razon el reporte esta relacionado con un enlece de datos que ya no existe o se borro y quedo "enlazado" de alguna manera...para solucionar el problema se debe hacer click en el reporte y elegir la opcion llamada "Borrar Estructura" , pero guarda esto te borra todo los controles del reporte,pero antes de hacer eso hace una copia del reporte...al borrarse todo, abri la copia y vas copiando los controles sección por sección asi te queda como el otro...y ahi te tiene que funcionar porque a mi me funciono y mostro el reporte...

saludos.

Muchas gracias ya realice lo que me comentas de limpiar la estructura y ya me funciono perfectamente bien, gracias por el tiempo invertido en ayudarme a encontrar la solucion

Saludos