Como concatenar campos en datareport de visual 6.0

[Carlitoscl]

Hola amigos, tengo el siguiente codigo en un form de visual 6.0

Private Sub Imprimir()
sql1 = "SELECT ide_pcte,pri_nom,seg_nom,pri_ape,seg_ape FROM t_paciente WHERE ide_pcte= '" + txt_ide + "' "
imprime.Open sql1, conecta, adOpenKeyset, adLockReadOnly
With rpt_pcte
.Sections("Sección1").Controls.Item("Texto1").Data Field = "ide_pcte"
.Sections("Sección1").Controls.Item("Texto2").Data Field = "pri_nom"
.Sections("Sección1").Controls.Item("Texto3").Data Field = "seg_nom"
.Sections("Sección1").Controls.Item("Texto4").Data Field = "pri_ape"
.Sections("Sección1").Controls.Item("Texto5").Data Field = "seg_ape"
Set .DataSource = imprime
.Show vbModal
If imprime.State = adStateOpen Then imprime.Close
Set imprime = Nothing
End With
End Sub

Y al dar click en el boton imprimir del form, me funciona perfectamente, pero lo que necesito es concatenar los nombres y apellidos, de tal forma que salga el nombre completo en el datareport. Si el alguien me puede ayudar le agradeceria.

Hasta pronto.

[David]

Puedes concatenar directamente en la consulta SQL los campos.

Código sql:

SELECT ide_pcte, pri_nom + ' ' + seg_nom + ' ' + pri_ape + ' ' + seg_ape AS Nombre FROM ... WHERE ...
 

Luego, asignas como DataField "Nombre".

[Carlitoscl]

Hola David, probe lo de concatenar en la sql y quedo asi:

Private Sub Imprimir()
sql1 = "SELECT ide_pcte,pri_nom + ' ' + seg_nom + ' ' + pri_ape + ' ' + seg_ape as NOMBRE FROM t_paciente WHERE ide_pcte= '" + txt_ide + "' "

imprime.Open sql1, conecta, adOpenKeyset, adLockReadOnly
With rpt_pcte
.Sections("Sección1").Controls.Item("Texto1").Data Field = "NOMBRE"
Set .DataSource = imprime
.Show vbModal
If imprime.State = adStateOpen Then imprime.Close
Set imprime = Nothing
End With
End Sub


pero no me funciona, me aparece un mensaje que dice NO SE ENCONTRO EL DATAFIELD '(Vacío)'

[seba123neo]

Hola, pues fijate que en el datareprot antes tenias 5 campos y ahora son 2...fijate que esten esos 2 solamente y no haya otros...

saludos.

[Carlitoscl]

Ok gracias, ya encontre el error.