border
VB 6
 
 
/
  #1 (permalink)  
Antiguo 19-09-2011, 03:17:47
Nuevo Amigo
 
Registrado: sep 2011
Posts: 2
Créditos: 664
dianam0423 Aun no valorado
Predeterminado borrar contenido de combobox

hola a todos,
tengo un problema desde hace días que no he podido solucionar, tengo un combobox que según la selección llena otro combobox con datos desde un mdb, el problema es que cada vez que hago la seleccion se llena el otro combobox sin borrar la informacion anterior entonces me quedan repetidos los datos.
aqui les dejo el codigo:

aqui hace la consulta a la bd

' "tabla clientes nat"
Private CmdClientesNat As New OleDbCommand("SELECT [NombreUno] & ' ' & [ApellidoUno] AS NomApel, * FROM TbClientesNat ORDER BY NombreUno", CnMegaproyectos)
Private DaClientesNat As New OleDbDataAdapter(CmdClientesNat)
Private BuildClientesNat As New OleDbCommandBuilder(DaClientesNat)
Private DsClientesNat As New DataSet()

' "tabla ClientesEmp"
Private CmdClientesEmp As New OleDbCommand("SELECT [Nombre], * FROM TbClientesEmp ORDER BY Nombre", CnMegaproyectos)
Private DaClientesEmp As New OleDbDataAdapter(CmdClientesEmp)
Private BuildClientesEmp As New OleDbCommandBuilder(DaClientesEmp)
Private DsClientesEmp As New DataSet()

Este el codigo del 1er combox

Private Sub CbxTipoCliente_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbxTipoCliente.SelectionChangeCommitted
Dim SelItem As String = CbxTipoCliente.SelectedItem
CargarTipoCliente(SelItem)
End Sub

Esta la funcion que carga el contenido del 2do combox



Private Sub CargarTipoCliente(ByVal SelItem)

'limpia los DataBindings
LblNombreUno2.DataBindings.Clear()
LblDireccion.DataBindings.Clear()
LblTelefono.DataBindings.Clear()
LblCiudad.DataBindings.Clear()
LblPersonaID2.DataBindings.Clear()


If SelItem = "PN" Then
DaClientesNat.Fill(DsClientesNat, "TbClientesNat")
CbxClientes.DataSource = DsClientesNat
CbxClientes.DisplayMember = "TbClientesNat.NomApel"
CbxClientes.ValueMember = "TbClientesNat.ClienteID"

LblNombreUno2.DataBindings.Add("Text", DsClientesNat, "TbClientesNat.NombreUno")
LblDireccion.DataBindings.Add("Text", DsClientesNat, "TbClientesNat.Direccion")
LblTelefono.DataBindings.Add("Text", DsClientesNat, "TbClientesNat.Telefono")
LblCiudad.DataBindings.Add("Text", DsClientesNat, "TbClientesNat.Ciudad")
LblPersonaID2.DataBindings.Add("Text", DsClientesNat, "TbClientesNat.ClienteID")

End If

If SelItem = "EMP" Then
DaClientesEmp.Fill(DsClientesEmp, "TbClientesEmp")
CbxClientes.DataSource = DsClientesEmp
CbxClientes.DisplayMember = "TbClientesEmp.Nombre"
CbxClientes.ValueMember = "TbClientesEmp.ClienteID"

LblNombreUno2.DataBindings.Add("Text", DsClientesEmp, "TbClientesEmp.Nombre")
LblDireccion.DataBindings.Add("Text", DsClientesEmp, "TbClientesEmp.Direccion")
LblTelefono.DataBindings.Add("Text", DsClientesEmp, "TbClientesEmp.Telefono")
LblCiudad.DataBindings.Add("Text", DsClientesEmp, "TbClientesEmp.Ciudad")
LblPersonaID2.DataBindings.Add("Text", DsClientesEmp, "TbClientesEmp.ClienteID")
End If

End Sub

ya he intentado asignando nothing al datasource, con clear(), con "", y nada funciona,
les agradezco su ayuda
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 19-09-2011, 06:11:30
Avatar de Scherzo
Gran Participación en el Foro
 
Registrado: may 2006
Posts: 473
Créditos: 2.735
Scherzo Valoración +2
Predeterminado Re: borrar contenido de combobox

Hola, prueba a utilizar esta instrucción para limpiar el contenido:

Código:
CbxClientes.Items.Clear()
Saludos
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 26-09-2011, 15:15:50
Nuevo Amigo
 
Registrado: sep 2011
Posts: 2
Créditos: 664
dianam0423 Aun no valorado
Predeterminado Re: borrar contenido de combobox

tambien lo intente con esa instruccion pero me sale un error referente al datasource entonces le asigne nothing al datasource y nadaa,
por favor si alguien tiene alguna idea de como solucionar el problema se lo agradeceria muchooo..
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 27-09-2011, 06:48:25
Avatar de Scherzo
Gran Participación en el Foro
 
Registrado: may 2006
Posts: 473
Créditos: 2.735
Scherzo Valoración +2
Predeterminado Re: borrar contenido de combobox

¿Podrías poner el mensaje literal que te muestra en ese error que comentas? Lo mismo nos da alguna pista de por dónde van los tiros.

Saludos
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #5 (permalink)  
Antiguo 09-10-2011, 02:56:38
Nuevo Amigo
 
Registrado: oct 2011
Posts: 4
Créditos: 615
rivelli7 Aun no valorado
Predeterminado Re: borrar contenido de combobox

Prueba con esto

Código PHP:
Dim cAs Double
ComboBox1.Items.Count
While c
     x 
1
     ComboBox1
.Items.RemoveAt(1)
End While 
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT. Ahora son las 00:17:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design