Mensajes

[Eleкtro]

Eleкtro me funciono con 

Código (vbnet) [Seleccionar] Expandir

CInt gracias!!!...

[Else]

mi error es un poco tonto, pero igual me estoy ahogando en este vasito de agua, es lo suiguiente, estoy introduciendo 2 numeros es 2 textbox diferentes y reviso de que el primero sea menor que el segundo:

Código (vbnet) [Seleccionar] Expandir


if Trim(TextBox1.Text()) <= Trim(TextBox2.Text() then
  'almaceno
else
  msgbox("Ingrese los datos corectos")
end if


resulta que ingrese los siguiente:

Código (vbnet) [Seleccionar] Expandir


TextBox1.Text() = 90
TextBox2.Text() = 100

al ejecutar salta al Else de la condicion, al parecer me esta comparando como si fueran tipos de datos textos, puesto que 1 es menor a 9 en terminos de ASCII, que puedo hacer para que lo compare como si fueran 2 numeros.??

la solucion es la siguiente:

Código (vbnet) [Seleccionar] Expandir


For fila As Integer = 0 To DataGridView1.RowCount - 1
            For columnas As Integer = 0 To DataGridView1.ColumnCount - 1               
                If columnas = 2 Then
                    If DataGridView1(2, fila).Value() = True Then
                        MsgBox(DataGridView1.Item(1, fila).Value)
                        'Operaciones a Efectuar 
                    End If
                End If
            Next
        Next


cabe destacar que en la columna 2 del DataGridView tengo al DataGridviewChekboxColumn y en la columna 1 tengo al nombre del Items Seleciionado. 

primero que nada, disculpenme soy nuevo en este lenguaje, y me falta por aprender, les comento tengo un datagridview cargado a traves de una base de datos, cada fila del datagridview tiene un chekbox para que el usuario seleccione, aqui algo de codigo:

Código (vbnet) [Seleccionar] Expandir



       Dim ds As New DataSet
       Dim col_select As New DataGridViewCheckBoxColumn()

       With col_select
           .Name = "Selecione"
           .DefaultCellStyle.BackColor = Color.AliceBlue
       End With

       orden = "Select descripcion from signos"
       ds.Tables.Add("signos")
       Dim adaptador As New OleDb.OleDbDataAdapter(orden, bd)
       adaptador.Fill(ds.Tables("signos"))
       ds.Tables(0).Columns(1).ColumnName = "Descripcion"
       DataGridView1.DataSource = ds_signos.Tables("signos")
       DataGridView1.Columns.Add(col_select) ' añado al datagridview


mi pregunta son las siguientes:
1) como hago el recorrido del datagridview, para saber que selecciono el usuario.

gracias!, por cualquier tipo de ayuda.

pude hacerlos, añadiendole una celda tipo checkbox, de esta forma:

Código (vbnet) [Seleccionar] Expandir



        Dim ds As New DataSet
        Dim col_select As New DataGridViewCheckBoxColumn()

        With col_select
            .Name = "Selecione"
            .DefaultCellStyle.BackColor = Color.AliceBlue
        End With

        orden = "Select descripcion from signos"
        ds.Tables.Add("signos")
        Dim adaptador As New OleDb.OleDbDataAdapter(orden, bd)
        adaptador.Fill(ds.Tables("signos"))
        ds.Tables(0).Columns(1).ColumnName = "Descripcion"
        DataGridView1.DataSource = ds_signos.Tables("signos")
        DataGridView1.Columns.Add(col_select) ' añado al datagridview



Saludos!,
estoy haciendo mi proyecto y necesito de su ayuda urgente,  como puedo hacer para añadir a una datagridview que se carga con datos de una base de datos access, que en cada fila tenga un boton tipo select de modo que si lo selecciono queda seleccionado la fila???

he buscado y investigado por internet y no consigo, ayudenme es de urgencia, se los agradezco.

saludos!

tengo un datagriedview y dentro de el en una de sus celdas tengo un combobox del tipo DataGridViewComboBoxColum

que mienbro dentro del DataGridViewComboBoxColumn existe que me ayude a fijar una opcion del combobox al correr el sistema.
ejempo:

si tengo

Código (vbnet) [Seleccionar] Expandir


Dim columna_combobox As New DataGridViewComboBoxColum

        columna_combobox.Name = "nombre"
        columna_combobox.Items.Add("No")
        columna_combobox.Items.Add("Si")
        DataGridView_signos.Columns.Add(columna_combobox_signo) ' Añado la columna combobox al datagrid


como podria hacer para que cuando este corriendo el sistema en la pantalla salga por defecto la opcion(NO) seleccionada??

el evento selectindex() no me sirviria claro esta.

gracias..............

Solucion:

Código (vbnet) [Seleccionar] Expandir


Dim colunma_combobox_signo As New DataGridViewComboBoxColumn

        colunma_combobox_signo.Name = "Valor" 'Nombre segunda columna
        colunma_combobox_signo.Items.Add("No")
        colunma_combobox_signo.Items.Add("Si")


tengo la siguiente tabla:

Código (vbnet) [Seleccionar] Expandir


signos:
-id
-descripcion


y lleno un datagridview con la siguiente forma:

Código (vbnet) [Seleccionar] Expandir


       Dim ds_signos As New DataSet
       orden = "Select descripcion,valor from signos"
       ds_signos.Tables.Add("signos")
       Dim adaptador_signos As New OleDb.OleDbDataAdapter(orden, bd)
       adaptador_signos.Fill(ds_signos.Tables("signos"))
       ds_signos.Tables(0).Columns(0).ColumnName = "Descripcion"
       ds_signos.Tables(0).Columns(1).ColumnName = "Valor"
       DataGridView_signos.DataSource = ds_signos.Tables("signos")



ahora como podría hacer para que la 2da columna(valor) tenga un combobox de respuesta SI/NO ????

de modo que seleccione los signos indicando con respuesta(SI y NO)

saludos!

en VB estoy haciendo un sistema, donde require de un usuario y una clave para ingresar al sistema, pero cuando ingreso el usuario y su clave, y presiono el boton Aceptar, al hacer la consulta, me esta borrando todos los registro de la tabla de la base de dtos, y no entiendo por que. Aqui el codigo:

Código (vbnet) [Seleccionar] Expandir


    Private Sub Button_aceptar_Click(sender As Object, e As EventArgs) Handles Button_aceptar.Click

        orden = "Select * from experto where usuario = '" & Trim(TextBox_usuario_experto.Text) & "'"
        t_experto.CommandText = orden
        registro = t_experto.ExecuteReader
       
        If registro.HasRows = True Then
            registro.Read()

            If registro(0) = Trim(TextBox_usuario_clave.Text) Then
                'Hacer
            Else
                MsgBox("Datos Incorectos", MsgBoxStyle.Critical, "Error")
            End If
        Else
            MsgBox("Datos Incorectos", MsgBoxStyle.Critical, "Error")
        End If

    End Sub


que estoy haciendo mal???