Ayudenme por fa

31/03/2005 - 21:33 por Penélope Glamour | Informe spam
Estoy tratando de hacer algo similar a la opción del MSN para bloquear
contactos, tengo 2 listbox y 2 botones uno para agregar y otro para borrar en
la BD, en vb 6.0 se me hizo muy sencillo ya que la propiedad del listbox,
me.miLista tomaba todos los items que se encontraran dentro de este, lo cual
me facilitaba el query para sql, a esto me refiero:

"select myreg from users where id = " & Me.cbobox.ListIndex + 1 & " and
myreg != '" & Me.miLista & "'"

y de esta manera comparaba el nombre de c/u de los registros con los que se
encontraban en el miLista

Ahora en VB.NET, esto no me sirve porque no existe me.miLista, es decir, se
debe colocar miLista.NOSEQUÉ

Cómo hago para que este select funcione de la misma manera que lo hizo en VB
6.0

Agradezco quien pueda ayudarme en mi problema
 

Leer las respuestas

#1 Jorge Serrano [MVP VB]
01/04/2005 - 15:39 | Informe spam
Hola Penélope,

El código en VB6 de esto sería similar al siguiente:

Private Sub Form_Load()
Dim I As Integer
For I = 1 To 7
Combo1.AddItem ("Elemento " & I)
Next
End Sub

Private Sub Command1_Click()
MsgBox (Combo1.ListIndex + 1)
End Sub



El código anterior equivalente en VB.NET sería:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim I As Integer
For I = 1 To 7
ComboBox1.Items.Add("Elemento " & I)
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Messagebox.Show(ComboBox1.SelectedIndex + 1)
End Sub


Espero que esto te lo aclare.


Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"Penélope Glamour" wrote:

Estoy tratando de hacer algo similar a la opción del MSN para bloquear
contactos, tengo 2 listbox y 2 botones uno para agregar y otro para borrar en
la BD, en vb 6.0 se me hizo muy sencillo ya que la propiedad del listbox,
me.miLista tomaba todos los items que se encontraran dentro de este, lo cual
me facilitaba el query para sql, a esto me refiero:

"select myreg from users where id = " & Me.cbobox.ListIndex + 1 & " and
myreg != '" & Me.miLista & "'"

y de esta manera comparaba el nombre de c/u de los registros con los que se
encontraban en el miLista

Ahora en VB.NET, esto no me sirve porque no existe me.miLista, es decir, se
debe colocar miLista.NOSEQUÉ

Cómo hago para que este select funcione de la misma manera que lo hizo en VB
6.0

Agradezco quien pueda ayudarme en mi problema

Preguntas similares