campos diferentes parte2

evisa las funciones PatIndex, Left y Substring.



"tech dep" escribió en el mensaje
news:

Hola amigos tengo un pequeño problema quiero sacar el nombre y apellido
de
un solo campo y ponerlo en diferentes campos respectivamente esto es lo
que tengo:

ejemplo
campo1
aguilar, jose

quiero esto y lograrlo con la instruccion Select en un solo query.
ejemplo
campo1 campo2
aguilar jose


Espero que me ayuden

Teniendolos separados por un caracter (ej. la coma) es sencillo, solamente
tienes que calcular donde está la coma y coger los caracteres anteriores
para un campo o siguientes para otro, ej.:

SELECT Tabla1.Campo1,
Left([Campo1],InStr([campo1],",")-1) AS Expr1,
Right([Campo1],Len([campo1])-InStr([campo1],",")) AS Expr2,
Mid([campo1],InStr([campo1],",")+2) AS Expr3,
Mid([campo1],1,InStr([campo1],",")-1) AS Expr4
FROM Tabla1;

Aqui tienes 2 formas sencillas de hacerlo, con left y right una y con mid la
otra, solo tienes que cambiar campo1 por tu campo y tabla1 por tu tabla, en
un control independiente sería lo mismo cambiando la , por ; en los
separadores, ej.:

=Right([Campo1];Len([campo1])-InStr([campo1];","))


**
Salu2/Regards
[MVP Access] 2006/08
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
www.juank.tk
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**
"tech dep" escribió en el mensaje
news:

Hola amigos tengo un pequeño problema quiero sacar el nombre y apellido
de
un solo campo y ponerlo en diferentes campos respectivamente esto es lo
que tengo:

ejemplo
campo1
aguilar, jose

quiero esto y lograrlo con la instruccion Select en un solo query.
ejemplo
campo1 campo2
aguilar jose


Espero que me ayuden

Lo mismo con una función

'
' Procedure : DevApeNom
' DateTime : 07/10/2008 18:14
' Author : JuanK
' Purpose : Separa apellidos y nombre que están separados por , y devuelve
uno
'
'
Public Function DevApeNom(ByVal stApeyNom As String, _
Optional stCual As Long = 1) As String

Dim stApe As String
Dim stNom As String
Dim x As Long
Dim y As Long

On Error GoTo DevApeNom_Error

x = InStr([stApeyNom], ",")
y = Len([stApeyNom])
stApe = Right([stApeyNom], y - x)
stNom = Mid(stApeyNom, 1, x - 1)

Select Case stCual
Case 1
DevApeNom = stApe
Case Else
DevApeNom = stNom
End Select

On Error GoTo 0
Exit Function

DevApeNom_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
DevApeNom of Módulo Módulo1"
End Function

**
Salu2/Regards
[MVP Access] 2006/08
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
www.juank.tk
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**
"tech dep" escribió en el mensaje
news:

Hola amigos tengo un pequeño problema quiero sacar el nombre y apellido
de
un solo campo y ponerlo en diferentes campos respectivamente esto es lo
que tengo:

ejemplo
campo1
aguilar, jose

quiero esto y lograrlo con la instruccion Select en un solo query.
ejemplo
campo1 campo2
aguilar jose


Espero que me ayuden