Separar Cadena de Texto - VB-MUNDO

saloas · #1 (**permalink**) 31-05-2007, 23:24:35

Hola a todos amigos mios,

Estoy desarrollando un nuevo sistema en el cual estoy utilizando un combobox en el cual junto el nombre el apellido paterno y el apellido materno (ej. Juan Perez Lopez) del cliente y en el mismo combobox puedo capturar 1 nuevo cliente pero para evitar la duplicidad del cliente, debo de hacer una consulta por los 3 campos (nombre, apellido paterno y apellido materno), por lo cual debo de separar la cadena para que en var1 se almacene el nombre, en var2 se almacene el apellido paterno y en var3 el apellido materno y entonces si hacer mi consulta, pero he usado el nom=split(combo1," ") sin tener ningun resultado y al momento de hacer consulta me dice que type mistmach.

Por lo tanto y como es de costumbre recurro a ustedes para que me puedan ayudar con este punto.

Por su atencion y apoyo mil gracias!!!

Saludos

Salomon Lara

atarantino · #2 (**permalink**) 01-06-2007, 04:06:18

Hola ....

Verifica si nom tiene que ver con esto:

Dim Nom() as string

Nom = Split(combo1," ")

if Ubound(Nom) >= 0 then
msgbox Nom(0)
end if

Espero que te sirva.

Saludos cordiales.

J.M.Movilla · #3 (**permalink**) 01-06-2007, 07:13:27

Amigo Salomón:

Debo advertirte del peligro que entraña tu método de trabajo. Imagínate qué ocurriría si te encuentras con el caso de una persona que se llama

Código:

Nombre: "Antonio Ricardo"
Apellido paterno: "de la Rivera"
Apellido materno: "Infante del Rincón".

Haciendo un Split del contenido del TextBox (que según tu método debiera ser "Antonio Ricardo de la Rivera Infante del Rincón") te resultaría que

Código:

Nombre = Nom(0) = "Antonio"
Apellido paterno = Nom(1) = "Ricardo"
Apellido materno = Nom(2) = "de"

Debes tratar esos campos de forma claramente diferenciada, con un TextBox para el Nombre, otro para el Apellido paterno y un tercero para el Apellido materno. Luego ya harás la oportuna concatenación para obtener el nombre completo, y no hacer lo contrario, como tú pretendes.

saloas · #4 (**permalink**) 01-06-2007, 15:16:25

Estimado Atarantino,

Gracias por tu ayuda porbare tu codigo y te dare mis comentarios posteriormente.

Estimado Sr. Movilla,

Como siempre su sabiduria sale a relucir, es cierto no habia pensado en ese tipo de nombres, sin embargo tengo un modulo independiente en el cual se captura la informacion del cliente por campos separados, sin embargo mi idea era que si en caso de no encontrarse el cliente en otro formulario de registro, se pudiese capturar en forma inmediata sin necesidad de ir al modulo especifico de clientes, pero creo que tendria que cambiar de metodo y tal vez aplicar un mini formulario en el cual solo permita capturar esos datos en el momento al detectar que no concuerda, pero de igual forma y para variar apreciaria si me diera un ejemplo de como poder hacer lo que pretendo hacer usando tal vez no un split sino alguna otra funcion o instruccion.

Saludos a ambos

Salomon Lara

J.M.Movilla · #5 (**permalink**) 01-06-2007, 18:01:03

Puedes poner una matriz de TetBoxes: Text(0), Text(1), Text(2)

Y en el evento KeyDown puedes poner:

Código:

Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        if Index = 0 Then
            ' Buscar si el nombre de la base de datos es igual al Text(Index)
        Elseif Index = 1 Then
            ' Buscar si el apellido paterno de la base de datos es igual al Text(Index)
        Elseif Index = 2 Then
            ' Buscar si el apellido materno de la base de datos es igual al Text(Index)
        End If
    End If
End Sub