Insertar un codigo a partir dela seleccion de un nombre

[natalyro]

Hola,

tengo un combobox de clientes, pero resulta que cuando le de insertar a todo el formulario necesito es que inserte el codigo de ese cliente mas no el nombre que seleccione.

Me pueden ayudar? Gracias.

[culd]

No se entiende...

Pone tu codigo y explica lo que queres

[natalyro]

Mira:

en vez de insertar un nombre en la tabla lo que necesito es insertar el codigo.

en un combo escojo el nombre del cliente, pero al momento de insertarlo deberia insertar el codigo de ese cliente.

lo que he hecho es esto:

Arcusfil es la tabla cliente entonces el va hasta la tabla busca todos los clientes y los pone en el combo.

Cadena_SQL = "SELECT COUNT(*) as cus_name FROM ARCUSFIL_SQL"
Cadena_SQL_1 = "select * from ARCUSFIL_SQL"

'CARGA DE COMBO
CantReg = Rsl.Fields("cus_name")

Rs5.MoveFirst

For i = 0 To CantReg - 1
Cbo_Cliente.AddItem Rs5.Fields("cus_name")
Rs5.MoveNext

Next i


lo que necesito es en el momento ya de ingresar no me ingrese el nomebre (cus_name) si no el codigo (cus_no) en la tabla pedidos.

[culd]

Iniciado por natalyro

Mira:

en vez de insertar un nombre en la tabla lo que necesito es insertar el codigo.

en un combo escojo el nombre del cliente, pero al momento de insertarlo deberia insertar el codigo de ese cliente.

lo que he hecho es esto:

Arcusfil es la tabla cliente entonces el va hasta la tabla busca todos los clientes y los pone en el combo.

Cadena_SQL = "SELECT COUNT(*) as cus_name FROM ARCUSFIL_SQL"
Cadena_SQL_1 = "select * from ARCUSFIL_SQL"

'CARGA DE COMBO
CantReg = Rsl.Fields("cus_name")

Rs5.MoveFirst

For i = 0 To CantReg - 1
Cbo_Cliente.AddItem Rs5.Fields("cus_name")
Rs5.MoveNext

Next i


lo que necesito es en el momento ya de ingresar no me ingrese el nomebre (cus_name) si no el codigo (cus_no) en la tabla pedidos.

Lo que entendi es que actualmente en el combo te carga los nombres de los clientes, y vos necesitas que cargue el CODIGO del cliente, en vez del nombre... Si es asi en ves de usar "cus_name" usa "cus_no"

Pero, a lo ultimo decis que queres que ingrese en la tabla de pedidos el codigo del cliente.... Ahi ya cambiaste la jugada por que no se te entiende lo que vos queres.... Ahora interpreto que necesitas lo siguiente:

En el combo que cargue los nombres de los clientes, pero al guardar el pedido que en vez de guardar el nombre guarde el CODIGO del cliente (osea nombre) que seleccionaste en el combo...

Si es eso realmente lo que necesitas, crea una funcion que te devuelva el codigo del cliente apartir del nombre asi la podes usar en cualquier momento.

SELECT cus_no FROM ARCUSFIL_SQL WHERE cus_name='NOMBRE CLIENTE';

EDITO: Para que se entienda mejor... Crea una funcion publica algo asi

Public Function Cliente_codigoXnombre(Nombre as String) as String
pones la consulta de arriba en algun recorset libre y asignas el valor a "Cliente_codigoXnombre"
End Function

De esta manera no repetis el codigo, y siempre que lo necesitas llamas a la funcion

[seba123neo]

Hola, es simple, cuando cargas el combobox de clientes con los nombres , tambien carga en el ItemData el codigo del cliente...y cuando te toque guardar...guarda el Valor del ItemData...

saludos.

[culd]

Iniciado por seba123neo

Hola, es simple, cuando cargas el combobox de clientes con los nombres , tambien carga en el ItemData el codigo del cliente...y cuando te toque guardar...guarda el Valor del ItemData...

saludos.

Si el codigo de cliente es alfanumerico no sirve...

[seba123neo]

pues no dijo de que tipo era...pero se soluciona usando el Datacombo que si acepta...

[natalyro]

Bueno gracias a los dos por las respuestas..

ensayare la respuestas y ya les cuento.

Besitos

[natalyro]

es que hay un problema..

el formulario que estoy haciendo es pedido, pero el combo con los nombres los llamo de la tabla cliente igual el codigo, entonces lo que pasa es que necesito insertar el codigo del cliente en la tabla pedido.

[seba123neo]

y que problema hay?? cargas el datacombo con el nombre del cliente y en la propiedad BoundText cargas el id....algo asi:

Código:

Private Sub Cargar()
    Dim rsCargar As ADODB.Recordset
    Set rsCargar = New ADODB.Recordset
    
    rsCargar.Open "SELECT idCliente AS id,nombre FROM Clientes ORDER BY nombre", TuConexion, adOpenStatic, adLockReadOnly, adCmdText
    
    Set DataCombo1.DataSource = rsCargar
    Set DataCombo1.RowSource = rsCargar
    DataCombo1.ListField = "nombre"
    DataCombo1.BoundColumn = "id"
End Sub

ahi tenes cargado el combo con el nombre y los id...y cuando te toque guardar guardas el BoundText...que es el que tiene el id del cliente..

saludos.

[natalyro]

Sebal gracias por tu respuesta asi funciona muy bien, pero para mi no porque la empresa tiene visual y este tiene muchas restricciones y uns de ellas es que no acepta los controles como el datacombo.

[Avellaneda]

Iniciado por natalyro

Sebal gracias por tu respuesta asi funciona muy bien, pero para mi no porque la empresa tiene visual y este tiene muchas restricciones y uns de ellas es que no acepta los controles como el datacombo.

Con un control ComboBox normal:

With Rs5
Do Until .EOF
Combo1.AddItem .Fields("cus_name")
Combo1.ItemData(Combo1.NewIndex) = .Fields("cus_no")
.MoveNext
Loop
End With

Seleccionar el nombre y mostrar el número

Código:

Private Sub Combo1_Click()
    MsgBox Combo1.ItemData(Combo1.ListIndex)
End Sub

[natalyro]

Gracias por responderme Avellaneda,

pero si mi visual tampoco ecepta el with con cual lo podria reemplazar, la verdad estoy programando casi a pedal por todas esas restricciones.

Nota: el resto de lo que propones si lo acepta.

Slds

[Avellaneda]

Iniciado por natalyro

Gracias por responderme Avellaneda,

pero si mi visual tampoco ecepta el with con cual lo podria reemplazar, la verdad estoy programando casi a pedal por todas esas restricciones.

Nota: el resto de lo que propones si lo acepta.

Slds

¿Queee?

Tu visual no acepta el With, con qué visual estás programando?

De todas formas, si el resto si lo acepta, quita el With.. End With y delante de cada punto coloca Rs5

[seba123neo]

Iniciado por natalyro

Sebal gracias por tu respuesta asi funciona muy bien, pero para mi no porque la empresa tiene visual y este tiene muchas restricciones y uns de ellas es que no acepta los controles como el datacombo.

que barbaridad , el DataCombo no es un control estandar...lo tenes que agregar desde el menu Proyecto->Componentes y ahi seleccionas el que dice Microsoft DataList Controls 6.0..., eso te va a agregar 2 controles a la barra de herramientas...el DataList y el DataCombo...son igual que los originales pero especiales para trabajar con bases de datos...

Iniciado por Avellaneda

Con un control ComboBox normal:

With Rs5
Do Until .EOF
Combo1.AddItem .Fields("cus_name")
Combo1.ItemData(Combo1.NewIndex) = .Fields("cus_no")
.MoveNext
Loop
End With

si eso ya se lo habia propuesto antes, pero como el ItemData solo acepta numeros pues si es alfanumerica la clave no sirve...pero nosotros no tenemos la culpa..natalyro nunca dijo de que tipo es la clave...

Iniciado por natalyro

pero si mi visual tampoco ecepta el with con cual lo podria reemplazar, la verdad estoy programando casi a pedal por todas esas restricciones.

jaja y con esto tengo para reirme todo el dia...vos sabes que ya me quedan dudas...pone una captura de donde estas programando

saludos.

[natalyro]

pues la verdad a mi no me da mucha risa....

estoy que me estallo para hacer solo esa bobada.

de todas maneras gracias atodos.

chao. slds.

[seba123neo]

no te ofendas che...aparte no sos de explicar mucho...decis que no te lo reconoce...y la pregunta es ¿porque no te lo reconoce? te tira algun error..te marca algo...no somos adivinos...

[natalyro]

no no estoy brava ni mucho menos..

si a mi tambien me da risa por no llorar pero bueno..

es simple la empresa compro un sistema de informacion el cual ya venia con el visual pero limitado con restricciones y esa clase de cosas que ya les comente que no reconoce.

el caso es que mi consulta es la siguiente:

Cadena_SQL = "SELECT COUNT(*) as cus_no FROM ARCUSFIL_SQL where cus_name= '" & Cbo_Cliente.Text & "' "

SELECT COUNT PORQUE ERA DE LA UNICA MANERA QUE ME CARGABA EL COMBO.

'CARGA DE COMBO
CantReg = Rsl.Fields("cus_name")

Rs5.MoveFirst

For i = 0 To CantReg - 1
Cbo_Cliente.AddItem Rs5.Fields("cus_name")
Rs5.MoveNext

Next i

ME SACA UN ERROR 3265. QUE NO PUEDE ENCONTRAR EL NOMBRE O ALGO ASI.

[natalyro]

Alguna idea entonces?

[Avellaneda]

Iniciado por natalyro

no no estoy brava ni mucho menos..

si a mi tambien me da risa por no llorar pero bueno..

es simple la empresa compro un sistema de informacion el cual ya venia con el visual pero limitado con restricciones y esa clase de cosas que ya les comente que no reconoce.

el caso es que mi consulta es la siguiente:

Cadena_SQL = "SELECT COUNT(*) as cus_no FROM ARCUSFIL_SQL where cus_name= '" & Cbo_Cliente.Text & "' "

SELECT COUNT PORQUE ERA DE LA UNICA MANERA QUE ME CARGABA EL COMBO.

'CARGA DE COMBO
CantReg = Rsl.Fields("cus_name")

Rs5.MoveFirst

For i = 0 To CantReg - 1
Cbo_Cliente.AddItem Rs5.Fields("cus_name")
Rs5.MoveNext

Next i

ME SACA UN ERROR 3265. QUE NO PUEDE ENCONTRAR EL NOMBRE O ALGO ASI.

Un par de aclaraciones:

'Count' en una consulta de agrupamiento, solamente devuelve un registro con el número de registros (0, 2, 15, 222, etc) coincidentes en la consulta.

No encuentra el nombre 'cus_name' porque el nombre del campo lo estás asignando como 'cus_no' con la clausula As.

[natalyro]

Gracias Avellaneda, pero entonces quedaria asi:

Cadena_SQL = " select cus_no FROM ARCUSFIL_SQL where cus_name= '" & Cbo_Cliente.Text & "' "

igual ya lo probe, pero no se si te entendi.

[killerack]

oye, pero si estas ocupando el sql server o el postgresql, pudes llamar a un procedimietno de almacenado en el cual te inserta y él mismo te busca el code del cliente a través del nombre dado..