Visual Basic Foro
Programación => Bases de Datos => Mensaje iniciado por: lucius en Junio 03, 2010, 11:35:26 pm
-
Como pasar un Datafield al Datareport desde codigo ya que desde las propiedades se coloca el nombre del campo y listo?
-
bueno no se si lo que queres es hacer que se rellene un rptlabel con el dato, por que de lo contrario tienes que crear en el dataenviroment una nueva conexión, despues crear una nueva consulta, despues de la consulta tienes que crear el reporte y al reporte ponerle que pertenece al dataenviroment y que el datasource pertenece a la consulta que creaste-.
Esto te sirve unicamente para poner los field's en la opción de detalle
pero si solo queres rellenar un label que no este en la sección de detalle te podria servir esta explicación:
http://www.recursosvisualbasic.com.ar/htm/tutoriales/datareport.htm
-
Otra opcion (ya que lo pediste por codigo) seria:
1.- Creas la conexión a tu bd y luego en tu botón Imprimir:
sql = "Select Campo1, Campo2, Campo3 From MisCampos"
Dim rs As New ADODB.Recordset
rs.Open sql, dB, 1, 1
'Esto es opcional, por si quieres meter a mano algun texto en la cabecera del reporte
With MiReporte.Sections("Cabecera")
.Controls("LbNomCliente").Caption = LbNombreCliente
.Controls("Lbfecha").Caption = Date
End With
Set MiReporte.DataSource = rs
MiReporte.Show
Luego abres un DataReport nuevo
Agregas en el detalle los RptTextBox y para que cargue la data, selecciona tu primer rptTextBox (por ejemplo) llamado rptCampo1, vas a propiedades seleccionas DataField y pones el campo asociado (en mi ejemplo: Campo1) y asi con todos los demás.
Espero aún te sirva