Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - Kal_El_00100

#1
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

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:

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
#2
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.