Visual Basic - [Ayuda] tengo problemas al conectar un reporte con mi recordset

Life is soft - evento anual de software empresarial
   
Vista:

[Ayuda] tengo problemas al conectar un reporte con mi recordset

Publicado por cristian cristian_fer_87@hotmail.com (1 intervención) el 25/11/2012 16:09:29
saludos, tengo un problema al conectar un DataReport con un RecordSet, estoy trabajando en un "padron electoral" el cual tiene un abm para agregar votantes y otro para agregar escuelas y mesas donde vota. estoy conectandome con tecnologia DAO a una base de datos en access.mdb.
El problema surge en el abm de ¿Dónde voto? el el cual dependiendo si la persona es hombre o mujer se realiza una busqueda de tal persona por medio de su clave primaria que es el dni. y esta consulta trae el nombre, apellido, dni, nombre de la escuela, direccion, y nº de mesa. Bueno el resultado de esa busqueda tengo que mostrar en mi reporte les pego el codigo de esa parte para que lo vean:

Private Sub cmdDonde_Click()

If (cmbSexo.Text = "Femenino") Then
sql = "SELECT mujer.nombre as persona, mujer.apellido, mujer.dni, mujer.codigo_mesa, escuela.nombre as escuela, escuela.direccion FROM (mujer INNER JOIN mesa ON mujer.codigo_mesa = mesa.codigo) INNER JOIN escuela ON escuela.codigo = mesa.codigo_escuela where dni = " & Val(txtDni.Text)
Else
sql = "SELECT hombre.nombre as persona, hombre.apellido, hombre.dni, hombre.codigo_mesa, escuela.nombre as escuela, escuela.direccion FROM (hombre INNER JOIN mesa ON hombre.codigo_mesa = mesa.codigo) INNER JOIN escuela ON escuela.codigo = mesa.codigo_escuela where dni = " & Val(txtDni.Text)
End If

Set rsPadron = base.OpenRecordset(sql)
If (rsPadron.RecordCount > 0) Then
lblNombre.Caption = rsPadron!persona
PersonaVoto = rsPadron!persona
lblApellido.Caption = rsPadron!apellido
ApellidoVoto = rsPadron!apellido
lblDni.Caption = rsPadron!dni
DniVoto = rsPadron!dni
lblEscuela.Caption = rsPadron!escuela
EscuelaVoto = rsPadron!escuela
lblDireccion.Caption = rsPadron!direccion
DireccionVoto = rsPadron!direccion
lblMesa.Caption = rsPadron!codigo_mesa
mesavoto = rsPadron!codigo_mesa
Else
MsgBox ("la persona no esta registrada")
End If

End Sub

Private Sub cmdReporte_Click()
Set data.DataSource = rsPadron "Aqui me sale Erro #### no coinciden los tipos"
data.Sections("sección1").Controls("Etiqueta2").Caption = DniVoto
data.Sections("sección1").Controls("Etiqueta3").Caption = PersonaVoto
data.Sections("sección1").Controls("Etiqueta4").Caption = ApellidoVoto
data.Show
End Sub
las variables esas son de tipo global creadas en mi modulo.
Espero haberme explicado bien, desde ya muchas gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder