CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Lllenar combobox

(1/1)

S0sp3:
Buenos dias.

Aqui estoy otra vez, queria preguntaros como llenar un combobox con una columna de una tabla llamada "Nombre" y k ademas en otra columna de la misma tabla llamada "Tipo" la condione, por ejemplo en tipo solo hay 4 valores electricidad, fontaneria, calefacción y aire entonces yo tengo k decirle k me muestre toda la columna nombre pero que coincida con la columna tipo que contiene electricidad por ejemplo, asi me mostrara todos los nombres que contengan electricidad, me comprendeis?

Os dejo el codigo de como he llenado el combo pero me falta lo de condicionarlo con la otra columna.

cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:UsersFranDocumentsbd1.accdb;Persist Security Info=False"
cnn.Open()
Dim strSQL As String = "SELECT Nombre FROM Proveedores"
da = New OleDb.OleDbDataAdapter(strSQL, cnn)
da.Fill(ds, "log")

ComboBox3.DataSource = ds.Tables(0)
ComboBox3.DisplayMember = "Nombre"

cnn.Close()

Sagma:
buenos dias compañero, aca te muesto un dato, o como hago yo para cargar mi combobox desde una tabla de la DB.


--- Código: Text ---          Dim Trx As New accesodatos.Transacciones(False)        Dim DtModu As DataTable        Dim Ad As New accesodatos.Operaciones(Trx.Comand)         DtModu = Ad.EjecturarConsulta("SELECT cumpcodi, cumpdesc FROM cumodprg")        Me.cbx_modulo.DataSource = DtModu        Me.cbx_modulo.DisplayMember = "cumpdesc"        Me.cbx_modulo.ValueMember = "cumpcodi"   
el campo cumpcodi es el codigo o autonumerico que se guardara en la tabla
el campo cumpdesc es la descripcion

suerte  :comp:

fORU-:

--- Código: Text ---cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:UsersFranDocumentsbd1.accdb;Persist Security Info=False"cnn.Open()Dim strSQL As String = "SELECT Nombre FROM Proveedores WHERE [nombreColumna]=[valor,Si es numero sin comillas si es texto entre comillas]"da = New OleDb.OleDbDataAdapter(strSQL, cnn)da.Fill(ds, "log") ComboBox3.DataSource = ds.Tables(0)ComboBox3.DisplayMember = "Nombre" cnn.Close()[/quote] 

S0sp3:
Gracias, con vuestra ayuda lo he conseguido, pero seguire molestandoos hasta que consiga manehar bien el .net jeje

Navegación

[0] Índice de Mensajes