En este grupo En todos

Grupo de .NET y C



FECHA EN VISUAL BASIC 2005

Heysson
Ingeniero de sistemas universidad auto...
Escrito por Heysson Gutierrez
el 24/04/2008

El problema que tengo es que deseo cargar un combobox con varias fecha solamente el año y en otro cargar los meses y en otro los dias. Urgente

Oscar Zumaran Maceda
Ing. de sistemas universidad privada d...
Escrito por Oscar Zumaran Maceda
el 24/04/2008

combobox1.items.add(now. Year)'año actual en el combo
comobox2. Seletedindex=now. Month - 1 ' seleccionara el numero del index ke coincida con el numero del mes - 1 porke como es index empieza desde 0
comobox3. Seletedindex=now. Day - 1 ' seleccionara el numero del index ke coincida con el numero del dia - 1 porke como es index empieza desde 0
al combo 2 y 3 tendras ke agregar los items manualmente por codigo o por diseñador

Jose Peguero
Ing. en sistemas universidad dominican...
Escrito por Jose Peguero
el 25/04/2008

Lo que te dice oscar funciona muy bien pero solo te dara la fecha actual del dia. Y tu quieres desplegar varias fechas en distintos combobox, cada una con una parte de la fecha. Verdad?
bueno aqui te envio un ejemplo, crea tres combobox y un boton, en el boton pega esto:

Dim a, b, c As Integer

For a = 1970 To 1985

Me.ComboBox1.Items. Add(a)

Next a

For b = 1 To 12

Me.ComboBox2.Items. Add(b)

Next

For c = 1 To 31

Me.ComboBox3.Items. Add(c)

Next

Enrique Avila
Ingenieria en computacion universidad ...
Escrito por Enrique Avila
el 26/04/2008

Muchas gracias Jose me ha servido de mucho tu ejemplo. Una pregunta mas. Yo quiero hacer el primer for de manera descendente, es decir for a=2008 to 1970. Como seria la sintaxis? El downto no funciona.

Gracias

Jose Peguero
Ing. en sistemas universidad dominican...
Escrito por Jose Peguero
el 26/04/2008

Es simple. Solo haces esto

...
for a = 2008 to 1970 step -1
.....

y despues todo lo demas

Naiara Cantero Garcia
Guipúzcoa, España
Escrito por Naiara Cantero Garcia
el 27/01/2009

A mi no m sale cn el step - 1 y me da fallo en eso....

For a = 30 to 1 step - 1

Naiara Cantero Garcia
Guipúzcoa, España
Escrito por Naiara Cantero Garcia
el 27/01/2009

A vale jeejj si sale es que no tenia puesto el next! Gracias

Omar Roldan
Distrito Federal, Mé...
Escrito por Omar Roldan
el 05/08/2009

Alguien me podria ayudar en saber por que este codigo no me trae todos los registros de mi campo cliente? Mi base es en access y mi tabla se llama clientes

Ruta_sistema_local_inicio = Application. StartupPath

Provider = ("Provider=Microsoft.Jet.OLEDB.4. 0;Data Source=")

Database_local_inicio = ("clientes. Mdb")

Ruta_completa_local_inicio = provider & ruta_sistema_local_inicio & slash & database_local_inicio

Mconsql = New OleDb. OleDbConnection

Strconn = ruta_completa_local_inicio

Mconsql. ConnectionString = strconn

Mconsql. Open()

'este ejemplo crea un dataset

Comsql. CommandText = "select cliente FROM clientes"

Comsql. Connection = mconsql

Drcontact = comsql. ExecuteReader

If drcontact. HasRows Then

Drcontact. Read()

ComboBox1.Items.Add(drcontact. Item("cliente"))

End If

'drcontact. Close()

Wilmer Arevalo Cabrera
Computación e informatica istp cibertec
Escrito por Wilmer Arevalo Cabrera
el 07/08/2009

Mira, para poder llenar un comboBox con registros de una Base de Datos, deberiamos utilizar la propiedad datasource, algo asi:
cboEmpleado. DataSource = EmpleadoLN. Mostrar()

CboEmpleado. DisplayMember = EmpleadoLN.Mostrar.Columns(1). ToString

CboEmpleado. ValueMember = EmpleadoLN.Mostrar.Columns(0). ToString

'EmpleadoLN. Mostrar() = es un datatable que contiene la consulta.
EmpleadoLN.Mostrar.Columns(1). ToString = es el valor que mostrara el combo(apellidos y nombres del empleado)
leadoLN.Mostrar.Columns(0). ToString = en mi caso esto oculta el codigo del empleado que sera necesario para hacer otras consultas.

espero te sirva, pero si no entendi bien tu consulta, espero una nueva interrogante.

Omar Roldan
Distrito Federal, Mé...
Escrito por Omar Roldan
el 10/08/2009

Wilmer mi hermano.

Creo que a lo mejor no me explique bien... Jajajajajajaja.

Pasa lo siguiente, mi base de datos tiene unicamente una tabla llamada clientes, la cual consta de un solo campo, llamada cliente, la cual contiene 10 registros unicamente, pero en mi combo solo me muestra el 1er registro, no logro que me muestre los 10 registro que contiene el campo cliente.

El codigo antes mencionado es el que estoy utilizando para hacer la conexion, algo esta mal.

Espero me puedas ayudar mi hermano


Saludos

Wilmer Arevalo Cabrera
Computación e informatica istp cibertec
Escrito por Wilmer Arevalo Cabrera
el 11/08/2009

Creo que este codigo que muestras:
If drcontact. HasRows Then

Drcontact. Read()

ComboBox1.Items.Add(drcontact. Item("cliente"))

End If

en. HasRows consultas si tiene datos y luego con. Read() solo capturas un registro del datareader; por eso lo más recomendable en el caso de llenar un comboBox con datos es utilizando su propiedad dataSource, parece que por ahi va el error, porque si tuvieras error de conexion no te mostraria ningun registro, espero te sirva.

Omar Roldan
Distrito Federal, Mé...
Escrito por Omar Roldan
el 11/08/2009

Wilmer

Mi hermano


Agradesco tu ayuda.



Omar Roldan
Distrito Federal, Mé...
Escrito por Omar Roldan
el 11/08/2009

Mi estimado wilmer

La forma en como tiene que ir el codigo es de la siguiente forma, la cual funciona

If drcontact. HasRows Then

While Drcontact. Read()

ComboBox1.Items.Add(drcontact. Item("cliente"))

End If

End while