Mensajes

Muchas gracias seba, lo voy a probar. eso se ajusta mas a lo que queria.

ya lo solucuione gracias, usando un poco el cerebelo.

Código [Seleccionar] Expandir


   Public Function Obtiene_ListIndex(ByVal UnCOmbo As ComboBox, ByVal pItemdata As Integer) As Integer

       Dim DRWItem As System.Data.DataRowView
       Dim i As Integer
       For Each DRWItem In UnCOmbo.Items
           i = i + 1
           If pItemdata = DRWItem.Row(0) Then
               Obtiene_ListIndex = i - 1
               Exit Function
           End If

       Next
       Obtiene_ListIndex = -1
   End Function

Como carge el Combo con un datatable el item aparece en una de las columnas, asique puse un for para recorrer los items e ir viendo la columna 0 en la que esta el item, la variable i me va a decir la posicion en la lista.
Gracias igual bye

si, hace eso, lo que quiero hacer es algo igual a lo que estaba en vb 6.0 pero en .net, hmm lo que me pasaste no me sirvio poruqe lo use pero todos los valores que me da son -1 como itemdata.

Código [Seleccionar] Expandir


       Public Function Obtiene_ListIndex(ByVal UnCOmbo As ComboBox, ByVal pItemdata As Integer) As Integer

       Dim I As Integer

       For I = 0 To UnCOmbo.Items.Count
           If pItemdata = UnCOmbo.Items.IndexOf(I) Then
               Obtiene_ListIndex = I
           End If
       Next
   End Function

en esto todos los valores son - 1   -->   UnCOmbo.Items.IndexOf(I)

pitem es el numero del item del que yo quiero saber su listidex

hola gente les pido ayuda, estuve buscando y pensando pero no veo la solucion trate de agarrar un codigo viejo de vb 6.0 que tenia e intentar pasarlo a vb.net pero no me resulta hay algo que me falta. miren..

asi obtenia el itemddata de un combo en vb 6.0

Código [Seleccionar] Expandir


Public Function ObtieneListIndex(unCombo As ComboBox, pItemData As Long) As Integer
Dim i As Integer
For i = 0 To unCombo.ListCount - 1
   If pItemData = unCombo.ItemData(i) Then
       ObtieneListIndex = i
       Exit Function
   End If
Next
ObtieneListIndex = -1
End Function

'de esta forma puedo saber que listindex le corresponde a cada item
pero obviamente no pude pasarlo a .net ya que ahora cargo el combo diferente que antes.

el comobo lo cargo asi ahora:

Código [Seleccionar] Expandir


Dim da As New OleDb.OleDbDataAdapter(STRSQL, CN)
       'Dim da As New OleDbDataAdapter(STRSQL, conexion)
       Dim ds As New DataTable(Tabla)
       '  Conexion.Open()
       da.Fill(ds)
       With CMB
           CMB.DisplayMember = Campo
           CMB.ValueMember = Indice
           CMB.DataSource = ds
           CMB.Text = " "
       End With

ahora como hago para saber que item le corresponde a que listindex, siempre comparando con el item de la base de datos y la listindex de los combos.

esto lo hago para que al cargarse un formulario con un por ejemplo IDcliente especifico en los combos se muestren los item correspondientes.
espero que me hayan entendido si por favor me puedieran ayudar. Gracias

Gracias dario, me andubo de 10, me aliviaste el dia. muchas gracias.
solo tuve que modificar.
en vez de poner la tabla tuve que poner RS que seria el recordset, pero despues nada mas
SAlu2

Gracias dario por la solucion me aliviaste el dia, pero como dicen aca creo que vamos a tener que leer mas.
Salu2

lo voy a probar gracias.

Hola gente tengo este problemita, estuve googleando pero los contenido que encuentro nose como adaptarlos a mi problema, hace rato que no programo y estoy migrando a .Net.

les muetro primero lo que quiero hacer y si me pueden ayudar.

'inicio la conexion en un modulo
   Public CN As New ADODB.Connection
Sub Main()

       CN.CursorLocation = ADODB.CursorLocationEnum.adUseClient
       CN.Open("Controldecuentas")

   End Sub

'en otro formulario con un boton aceptar y una vaja de texto donde se ingresa un password

Private Sub CMBAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMBAceptar.Click
       Apertura.Main()

       Dim STRSQL As String
       Dim RS As ADODB.Recordset
       Dim STRDBPass As String

       RS = New ADODB.Recordset
       STRSQL = "SELECT Password.IDPassword, Password.Password, Password.Activo " _
                   & "FROM Password WHERE Password.IDPassword = 1"

       RS.Open(STRSQL, CN, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)

       STRIngPass = Me.TXTPassword.Text
       STRDBPass = RS.Fields("Password")


   End Sub
mi problema esta en que nose como pasar a esta variable "STRDBPass" el valor de un campo de la base de datos, aqui le asigno una fila pero obviamente no me lo acepta.
yo antes en visual 6.0 se lo asinaba asi STRDBPass = RS!Password
pero ahora no el .net esto no se puede

Si me ayudan gracias.