Hola amigos resulta que tengo un trabajito de la U, que esta en VB 6 y mysql y tengo que obviamente imprimir algunos reportes, como por ejemplo este:
http://www.4shared.com/photo/zLfi59X...e_medicos.html
el codigo es el siguiente y funciona perfecto:
Private Sub activos()
Set act = New ADODB.Recordset
With act
.ActiveConnection = conecta
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
End With
act.Open "SELECT ide_med,ced_med,concatm,tel_med,especialidades.nom _esp,activo FROM medicos,especialidades WHERE medicos.cod_esp=especialidades.cod_esp AND activo='S'"
With rpt_imed
.LeftMargin = 300
.RightMargin = 100
.ReportWidth = 11040
.Sections("Sección1").Controls.Item("Texto1").Data Field = "ide_med"
.Sections("Sección1").Controls.Item("Texto2").Data Field = "ced_med"
.Sections("Sección1").Controls.Item("Texto3").Data Field = "concatm"
.Sections("Sección1").Controls.Item("Texto4").Data Field = "tel_med"
.Sections("Sección1").Controls.Item("Texto5").Data Field = "nom_esp"
.Sections("Sección1").Controls.Item("Texto6").Data Field = "activo"
Set .DataSource = act
.Show vbModal
If act.State = adStateOpen Then act.Close
Set act = Nothing
End With
End Sub
pero resulta que tengo que poner como encabezado los datos de la empresa que adquiera el SW. Los datos de la empresa estan guardados en una tabla independiente y tienes los campos
-nit_emp
-nom_emp
-dir_emp
-tel_emp
-fax-emp
El problema es que no se en que parte del datareport meterlo o en que parte de este codigo. Les agradeceré su valiosa ayuda
