tengo un programa donde quiero utilizar el data report la verdad es que es
la primera vez que utilizo esto, busque por internet algo como para saber
como hacerlo, digamos un par de codigos para adaptarlo a lo mio
bueno he logrado hacer algo despues de algunos errores, pero ahora no se
porque no me muestra nada y me sale el siguiente mensaje
No se encontro el dataField '(Vacío)'
me abre el data report pero sin nada y con el mensaje de error, digamos que
pasa bien por todo el codigo y el drama aparece cuando quiere mostrar los
datos
bueno aca les dejo el codigo para ver si alguien tiene una idea de que puede
ser
Dim Ruta As String
Dim NomBase As String
'Dim Conexion As String
NomBase = "Personal.dat" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de
ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & Ruta
& ";" & "Jet OLEDB"
Set Datos1 = New ADODB.Connection
Datos1.ConnectionString = Conexion
Datos1.Open Conexion
Set rs1 = New Recordset
'--------------------------------------------------
strSQL = "(" & "SELECT Personal.legajo, Personal.Apellido,
Personal.Nombre AS Personal_Nombre,"
strSQL = strSQL & "Personal.Tipo AS Personal_Tipo, Personal.Documento AS
Personal_Documento, "
strSQL = strSQL & "Personal.CUIL, Familiares.Nombre AS
Familiares_Nombre, Familiares.Vínculo, "
strSQL = strSQL & "Familiares.[FNacim], Familiares.Tipo AS
Familiares_Tipo, Familiares.Documento AS Familiares_Documento, "
strSQL = strSQL & "Familiares.Actividad, Personal.Orden "
strSQL = strSQL & "FROM Personal INNER JOIN Familiares ON Personal.Orden
= Familiares.Orden;" & ")"
rs1.Open strSQL, Datos1
'--------------------------------------------------
CargasFamilia.DataMember = ""
Set CargasFamilia.DataSource = rs1.DataSource
'Carga los datos en el reporte, en los controles textbox
With CargasFamilia.Sections("Sección6").Controls
.Item("Texto1").DataField = rs1("legajo").Name
.Item("Texto2").DataField = rs1("Apellido").Name
.Item("Texto3").DataField = rs1("Personal_Nombre").Name
.Item("Texto4").DataField = rs1("Personal_Tipo").Name
.Item("Texto5").DataField = rs1("Personal_Documento").Name
.Item("Texto6").DataField = rs1("CUIL").Name
End With
'muestra el reporte
CargasFamilia.Show
Set rs1 = Nothing
