ADO NET
public sub llenarCombo()
Me.cmboEliminar.Items.Clear()
sql = "SELECT IDPERSONA FROM Persona"
cmd.CommandType = CommandType.Text
cmd.Connection = conn
cmd.CommandText = sql
dr = cmd.ExecuteReader
If dr.HasRows = True Then
While dr.read()
Me.cmbEliminar.Items.Add(dr.Getvalue(0))
End While
end If
Me.cmboEliminar.Items.Clear()
sql = "SELECT IDPERSONA FROM Persona"
cmd.CommandType = CommandType.Text
cmd.Connection = conn
cmd.CommandText = sql
dr = cmd.ExecuteReader
If dr.HasRows = True Then
While dr.read()
Me.cmbEliminar.Items.Add(dr.Getvalue(0))
End While
end If
Comentarios
Publicar un comentario